/dports/converters/p5-Storable-AMF/Storable-AMF-1.00/examples/ |
H A D | bench_storage_thaw.pl | 45 $s = thaw( $ff_bobj, $option); 46 $s = thaw( $ff_bobj, $option); 47 $s = thaw( $ff_bobj, $option); 48 $s = thaw( $ff_bobj, $option); 49 $s = thaw( $ff_bobj, $option); 66 $s = thaw( $ff_obj, $option); 67 $s = thaw( $ff_obj, $option); 68 $s = thaw( $ff_obj, $option); 69 $s = thaw( $ff_obj, $option); 70 $s = thaw( $ff_obj, $option); [all …]
|
H A D | bench_thaw0_sv.pl | 48 $s = thaw( $ff_bobj, $option); 49 $s = thaw( $ff_bobj, $option); 50 $s = thaw( $ff_bobj, $option); 51 $s = thaw( $ff_bobj, $option); 52 $s = thaw( $ff_bobj, $option); 53 $s = thaw( $ff_bobj, $option); 94 $s = thaw( $ff_obj, $option); 95 $s = thaw( $ff_obj, $option); 96 $s = thaw( $ff_obj, $option); 97 $s = thaw( $ff_obj, $option); [all …]
|
H A D | bench_storage_freeze.pl | 184 $s = thaw( $ff_obj, $option); 185 $s = thaw( $ff_obj, $option); 186 $s = thaw( $ff_obj, $option); 187 $s = thaw( $ff_obj, $option); 188 $s = thaw( $ff_obj, $option); 189 $s = thaw( $ff_obj, $option); 194 $s = thaw( $ff_obj, $storage) ; 195 $s = thaw( $ff_obj, $storage) ; 196 $s = thaw( $ff_obj, $storage) ; 197 $s = thaw( $ff_obj, $storage) ; [all …]
|
/dports/converters/p5-Storable-AMF/Storable-AMF-1.00/t/ |
H A D | 47-mem-safe-AMF3.t | 3 use Storable::AMF3 qw(freeze thaw ref_lost_memory ref_clear deparse_amf); 32 ok( ! loose { my $a = thaw($image_amf3, 1); 1}, "thaw recurrent $name - $msg"); 38 … ok( ! loose { my $a = thaw $image_amf3;ref_clear($a); $a= {}; 1}, "thaw destroy $name - $msg"); 47 ok(! loose { my $a = thaw $image_amf3;1}, "thaw $name - $msg"); 48 ok(! loose { my $a = thaw $freeze}, "thaw $name - $msg"); 50 ok(! loose { my $a = thaw freeze $obj;1}, "thaw freeze $name - $msg"); 51 ok(! loose { my $a = \freeze thaw $image_amf3}, "freeze thaw $item - $msg"); 52 ok(! loose { my $a = freeze thaw $freeze;1}, "freeze thaw $name - $msg");
|
H A D | 51-strict-pragma.t | 5 use Storable::AMF0 qw(freeze thaw); 10 ok(thaw $s, 1); 11 is(ref (thaw $s, 1), 'testlib'); 13 is( ref( thaw $s, 1), 'HASH'); 14 is( ref thaw($s), 'nooplib'); 20 ok(Storable::AMF3::thaw $s, 1); 21 is(ref (Storable::AMF3::thaw $s, 1), 'testlib'); 23 is( ref( Storable::AMF3::thaw $s, 1), 'HASH'); 24 is( ref Storable::AMF3::thaw($s), 'noopPPP');
|
H A D | 46-mem-safe-AMF0.t | 3 use Storable::AMF0 qw(freeze thaw ref_lost_memory ref_clear); 30 ok(!loose { my $a = thaw $image_amf0, 1;; 1}, "thaw $name - $msg - recurrent"); 37 …ok( ! loose { my $a = thaw( $image_amf0);ref_clear($a); 1}, "thaw(strict) destroy $name - $msg") ; 45 ok( ! loose { my $a = thaw $image_amf0; 1}, "thaw $name - $msg"); 47 ok( ! loose { my $a = thaw freeze $obj;$a = undef;1}, "thaw freeze $name - $msg"); 48 ok( ! loose { my $a = freeze thaw $image_amf0;1 }, "freeze thaw $name - $msg");
|
/dports/devel/py-pyrsistent/pyrsistent-0.14.11/tests/ |
H A D | freeze_test.py | 3 from pyrsistent import v, m, s, freeze, thaw, PRecord, field, mutant 46 assert thaw(1) == 1 47 assert thaw('foo') == 'foo' 50 result = thaw(v(1, 2)) 55 result = thaw(m(a='b')) 60 result = thaw(s(1, 2)) 65 result = thaw(m(a=v(1))) 70 result = thaw(v('a', m(b=3))) 75 result = thaw(('a', m())) 83 result = thaw(R(x=1))
|
/dports/devel/p5-POE/POE-1.368/lib/POE/Filter/ |
H A D | Reference.pm | 87 my $thaw=$freezer->can('thaw'); 88 return unless $freeze and $thaw; 89 return ($freeze, $thaw); 128 my($freeze, $thaw); 134 $thaw = $DEF_THAW; 142 $thaw = sub { $thawtmp-> ($freezer, @_) }; 147 ($freeze, $thaw) = _get_methods($freezer); 150 unless ($freeze and $thaw) { 166 ($freeze, $thaw) = _get_methods($freezer); 177 return unless $freeze and $thaw; [all …]
|
/dports/devel/p5-DateTime/DateTime-1.54/t/ |
H A D | 23storable.t | 26 my $copy = Storable::thaw( Storable::nfreeze($dt) ); 30 'Storable freeze/thaw preserves tz' 35 'Storable freeze/thaw preserves locale' 40 'Storable freeze/thaw preserves rd values' 45 'Storable freeze/thaw preserves rd values' 50 'Storable freeze/thaw preserves rd values' 58 my $dt3 = Storable::thaw( Storable::nfreeze($dt2) ); 66 'explicit freeze and thaw produces date equal to original' 81 'check locale id after explicit freeze/thaw' 97 my $copy = Storable::thaw( Storable::nfreeze($dt) ); [all …]
|
/dports/devel/p5-DateTime/DateTime-1.54/xt/author/ |
H A D | pp-23storable.t | 30 my $copy = Storable::thaw( Storable::nfreeze($dt) ); 34 'Storable freeze/thaw preserves tz' 39 'Storable freeze/thaw preserves locale' 44 'Storable freeze/thaw preserves rd values' 49 'Storable freeze/thaw preserves rd values' 54 'Storable freeze/thaw preserves rd values' 62 my $dt3 = Storable::thaw( Storable::nfreeze($dt2) ); 70 'explicit freeze and thaw produces date equal to original' 85 'check locale id after explicit freeze/thaw' 101 my $copy = Storable::thaw( Storable::nfreeze($dt) ); [all …]
|
/dports/lang/perl5.34/perl-5.34.0/dist/Storable/t/ |
H A D | utf8.t | 25 use Storable qw(thaw freeze); 29 is($x, ${thaw freeze \$x}); 33 is($x, ${thaw freeze \$x}); 40 is($x, ${thaw freeze \$x}); 47 is($x, ${thaw $data}); 51 is($x, ${thaw $data}); 56 eval {thaw $data};
|
H A D | interwork56.t | 29 use Storable qw(freeze thaw); 58 my $result = eval {thaw $test}; 87 my $result = eval {thaw $real_thing}; 92 $result = eval {thaw $real_thing}; 110 $result = eval {thaw $test}; 126 $result = eval {thaw $test_kludge}; 131 $result = eval {thaw $test}; 139 $result = eval {thaw $test_kludge}; 144 $result = eval {thaw $test}; 151 $result = eval {thaw $test};
|
H A D | freeze.t | 20 use Storable qw(freeze nfreeze thaw); 44 $root = thaw($f1); 69 $root3 = thaw($f3); 74 $root = thaw($f2); 82 $root2 = thaw($other); 94 $VAR2 = thaw($x); 108 my $thawed = thaw $thaw_me; 120 eval { thaw $thaw_me }; 124 thaw $frozen; # used to segfault here
|
/dports/lang/perl5.32/perl-5.32.1/dist/Storable/t/ |
H A D | utf8.t | 25 use Storable qw(thaw freeze); 29 is($x, ${thaw freeze \$x}); 33 is($x, ${thaw freeze \$x}); 40 is($x, ${thaw freeze \$x}); 47 is($x, ${thaw $data}); 51 is($x, ${thaw $data}); 56 eval {thaw $data};
|
H A D | interwork56.t | 29 use Storable qw(freeze thaw); 58 my $result = eval {thaw $test}; 87 my $result = eval {thaw $real_thing}; 92 $result = eval {thaw $real_thing}; 110 $result = eval {thaw $test}; 126 $result = eval {thaw $test_kludge}; 131 $result = eval {thaw $test}; 139 $result = eval {thaw $test_kludge}; 144 $result = eval {thaw $test}; 151 $result = eval {thaw $test};
|
H A D | freeze.t | 20 use Storable qw(freeze nfreeze thaw); 44 $root = thaw($f1); 69 $root3 = thaw($f3); 74 $root = thaw($f2); 82 $root2 = thaw($other); 94 $VAR2 = thaw($x); 108 my $thawed = thaw $thaw_me; 120 eval { thaw $thaw_me }; 124 thaw $frozen; # used to segfault here
|
/dports/lang/perl5.30/perl-5.30.3/dist/Storable/t/ |
H A D | utf8.t | 25 use Storable qw(thaw freeze); 29 is($x, ${thaw freeze \$x}); 33 is($x, ${thaw freeze \$x}); 40 is($x, ${thaw freeze \$x}); 47 is($x, ${thaw $data}); 51 is($x, ${thaw $data}); 56 eval {thaw $data};
|
H A D | interwork56.t | 29 use Storable qw(freeze thaw); 58 my $result = eval {thaw $test}; 87 my $result = eval {thaw $real_thing}; 92 $result = eval {thaw $real_thing}; 110 $result = eval {thaw $test}; 126 $result = eval {thaw $test_kludge}; 131 $result = eval {thaw $test}; 139 $result = eval {thaw $test_kludge}; 144 $result = eval {thaw $test}; 151 $result = eval {thaw $test};
|
H A D | freeze.t | 20 use Storable qw(freeze nfreeze thaw); 44 $root = thaw($f1); 69 $root3 = thaw($f3); 74 $root = thaw($f2); 82 $root2 = thaw($other); 94 $VAR2 = thaw($x); 108 my $thawed = thaw $thaw_me; 120 eval { thaw $thaw_me }; 124 thaw $frozen; # used to segfault here
|
/dports/devel/p5-Storable/Storable-3.25/t/ |
H A D | utf8.t | 21 use Storable qw(thaw freeze); 25 is($x, ${thaw freeze \$x}); 29 is($x, ${thaw freeze \$x}); 36 is($x, ${thaw freeze \$x}); 43 is($x, ${thaw $data}); 47 is($x, ${thaw $data}); 52 eval {thaw $data};
|
H A D | freeze.t | 20 use Storable qw(freeze nfreeze thaw); 44 $root = thaw($f1); 69 $root3 = thaw($f3); 74 $root = thaw($f2); 82 $root2 = thaw($other); 94 $VAR2 = thaw($x); 108 my $thawed = thaw $thaw_me; 120 eval { thaw $thaw_me }; 124 thaw $frozen; # used to segfault here
|
H A D | interwork56.t | 29 use Storable qw(freeze thaw); 58 my $result = eval {thaw $test}; 87 my $result = eval {thaw $real_thing}; 92 $result = eval {thaw $real_thing}; 110 $result = eval {thaw $test}; 126 $result = eval {thaw $test_kludge}; 131 $result = eval {thaw $test}; 139 $result = eval {thaw $test_kludge}; 144 $result = eval {thaw $test}; 151 $result = eval {thaw $test};
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/dist/Storable/t/ |
H A D | utf8.t | 21 use Storable qw(thaw freeze); 25 is($x, ${thaw freeze \$x}); 29 is($x, ${thaw freeze \$x}); 36 is($x, ${thaw freeze \$x}); 43 is($x, ${thaw $data}); 47 is($x, ${thaw $data}); 52 eval {thaw $data};
|
H A D | freeze.t | 20 use Storable qw(freeze nfreeze thaw); 44 $root = thaw($f1); 69 $root3 = thaw($f3); 74 $root = thaw($f2); 82 $root2 = thaw($other); 94 $VAR2 = thaw($x); 108 my $thawed = thaw $thaw_me; 120 eval { thaw $thaw_me }; 124 thaw $frozen; # used to segfault here
|
H A D | interwork56.t | 29 use Storable qw(freeze thaw); 58 my $result = eval {thaw $test}; 87 my $result = eval {thaw $real_thing}; 92 $result = eval {thaw $real_thing}; 110 $result = eval {thaw $test}; 126 $result = eval {thaw $test_kludge}; 131 $result = eval {thaw $test}; 139 $result = eval {thaw $test_kludge}; 144 $result = eval {thaw $test}; 151 $result = eval {thaw $test};
|