mirror of
https://github.com/troydhanson/tpl.git
synced 2024-12-27 08:05:39 +08:00
22 lines
387 B
Plaintext
22 lines
387 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use lib "..";
|
||
|
|
use Tpl;
|
||
|
|
|
||
|
|
# this test only works on 64-bit Perl
|
||
|
|
|
||
|
|
my ($i,$j) = (-4294967296,4294967296); # 2^32 (can't fit in a 32-bit value)
|
||
|
|
my $tpl = Tpl->tpl_map("IU",\$i,\$j);
|
||
|
|
$tpl->tpl_pack(0);
|
||
|
|
my $img = $tpl->tpl_dump();
|
||
|
|
|
||
|
|
my ($x,$y);
|
||
|
|
my $tpl2 = Tpl->tpl_map("IU",\$x,\$y);
|
||
|
|
$tpl2->tpl_load(\$img);
|
||
|
|
$tpl2->tpl_unpack(0);
|
||
|
|
print "$x $y\n";
|
||
|
|
|