/dports/lang/perl5.34/perl-5.34.0/dist/Storable/t/ |
H A D | code.t | 84 $thawed = thaw $freezed; 86 is($thawed->[0]->(), "JAPH"); 87 is($thawed->[1]->(), 42); 95 $thawed = thaw $freezed; 103 $thawed = thaw $freezed; 110 $thawed = thaw $freezed; 112 is($thawed->(), "JAPH"); 130 $thawed = retrieve "store$$"; 132 is($thawed->[0]->(), "JAPH"); 133 is($thawed->[1]->(), 42); [all …]
|
H A D | attach_errors.t | 109 my $thawed = eval { 112 isa_ok( $thawed, 'My::GoodThaw' ); 148 my $thawed = undef; 150 $thawed = Storable::thaw( $frozen ); 187 my $thawed = eval { 190 isa_ok( $thawed, 'My::GoodAttach' ); 191 is( ref($thawed), 'My::GoodAttach::Subclass', 225 my $thawed = eval { 232 is($thawed->[0], $thawed->[1], 'References to the same object are attached properly'); 274 my $thawed = undef; [all …]
|
H A D | circular_hook.t | 35 my $thawed = Storable::thaw( $string ); 39 is( ref($thawed), 'ARRAY', 'Top level ARRAY' ); 40 is( scalar(@$thawed), 1, 'ARRAY contains one element' ); 41 isa_ok( $thawed->[0], 'Foo' ); 42 is( scalar(keys %{$thawed->[0]}), 1, 'Foo contains one element' ); 43 isa_ok( $thawed->[0]->{Foo}, 'Bar' ); 44 is( scalar(keys %{$thawed->[0]->{Foo}}), 1, 'Bar contains one element' ); 45 isa_ok( $thawed->[0]->{Foo}->{Bar}, 'Foo' ); 46 is( $thawed->[0], $thawed->[0]->{Foo}->{Bar}, 'Circular is... well... circular' );
|
H A D | attach_singleton.t | 44 my $thawed = Storable::thaw( $frozen ); 47 is_deeply( $struct, $thawed, 'Struct superficially looks like the original' ); 50 is( "$struct->[1]", "$thawed->[1]", 'Singleton thaws correctly' ); 54 is_deeply( $struct, $thawed, 'Empiric testing confirms correct behaviour' ); 58 $thawed = Storable::thaw($frozen); 59 is("$thawed->[0]", "$thawed->[1]", "Multiple Singletons thaw correctly");
|
/dports/lang/perl5.30/perl-5.30.3/dist/Storable/t/ |
H A D | code.t | 84 $thawed = thaw $freezed; 86 is($thawed->[0]->(), "JAPH"); 87 is($thawed->[1]->(), 42); 95 $thawed = thaw $freezed; 103 $thawed = thaw $freezed; 110 $thawed = thaw $freezed; 112 is($thawed->(), "JAPH"); 130 $thawed = retrieve "store$$"; 132 is($thawed->[0]->(), "JAPH"); 133 is($thawed->[1]->(), 42); [all …]
|
H A D | attach_errors.t | 109 my $thawed = eval { 112 isa_ok( $thawed, 'My::GoodThaw' ); 148 my $thawed = undef; 150 $thawed = Storable::thaw( $frozen ); 187 my $thawed = eval { 190 isa_ok( $thawed, 'My::GoodAttach' ); 191 is( ref($thawed), 'My::GoodAttach::Subclass', 225 my $thawed = eval { 232 is($thawed->[0], $thawed->[1], 'References to the same object are attached properly'); 274 my $thawed = undef; [all …]
|
H A D | circular_hook.t | 35 my $thawed = Storable::thaw( $string ); 39 is( ref($thawed), 'ARRAY', 'Top level ARRAY' ); 40 is( scalar(@$thawed), 1, 'ARRAY contains one element' ); 41 isa_ok( $thawed->[0], 'Foo' ); 42 is( scalar(keys %{$thawed->[0]}), 1, 'Foo contains one element' ); 43 isa_ok( $thawed->[0]->{Foo}, 'Bar' ); 44 is( scalar(keys %{$thawed->[0]->{Foo}}), 1, 'Bar contains one element' ); 45 isa_ok( $thawed->[0]->{Foo}->{Bar}, 'Foo' ); 46 is( $thawed->[0], $thawed->[0]->{Foo}->{Bar}, 'Circular is... well... circular' );
|
H A D | attach_singleton.t | 44 my $thawed = Storable::thaw( $frozen ); 47 is_deeply( $struct, $thawed, 'Struct superficially looks like the original' ); 50 is( "$struct->[1]", "$thawed->[1]", 'Singleton thaws correctly' ); 54 is_deeply( $struct, $thawed, 'Empiric testing confirms correct behaviour' ); 58 $thawed = Storable::thaw($frozen); 59 is("$thawed->[0]", "$thawed->[1]", "Multiple Singletons thaw correctly");
|
/dports/lang/perl5.32/perl-5.32.1/dist/Storable/t/ |
H A D | code.t | 84 $thawed = thaw $freezed; 86 is($thawed->[0]->(), "JAPH"); 87 is($thawed->[1]->(), 42); 95 $thawed = thaw $freezed; 103 $thawed = thaw $freezed; 110 $thawed = thaw $freezed; 112 is($thawed->(), "JAPH"); 130 $thawed = retrieve "store$$"; 132 is($thawed->[0]->(), "JAPH"); 133 is($thawed->[1]->(), 42); [all …]
|
H A D | attach_errors.t | 109 my $thawed = eval { 112 isa_ok( $thawed, 'My::GoodThaw' ); 148 my $thawed = undef; 150 $thawed = Storable::thaw( $frozen ); 187 my $thawed = eval { 190 isa_ok( $thawed, 'My::GoodAttach' ); 191 is( ref($thawed), 'My::GoodAttach::Subclass', 225 my $thawed = eval { 232 is($thawed->[0], $thawed->[1], 'References to the same object are attached properly'); 274 my $thawed = undef; [all …]
|
H A D | circular_hook.t | 35 my $thawed = Storable::thaw( $string ); 39 is( ref($thawed), 'ARRAY', 'Top level ARRAY' ); 40 is( scalar(@$thawed), 1, 'ARRAY contains one element' ); 41 isa_ok( $thawed->[0], 'Foo' ); 42 is( scalar(keys %{$thawed->[0]}), 1, 'Foo contains one element' ); 43 isa_ok( $thawed->[0]->{Foo}, 'Bar' ); 44 is( scalar(keys %{$thawed->[0]->{Foo}}), 1, 'Bar contains one element' ); 45 isa_ok( $thawed->[0]->{Foo}->{Bar}, 'Foo' ); 46 is( $thawed->[0], $thawed->[0]->{Foo}->{Bar}, 'Circular is... well... circular' );
|
H A D | attach_singleton.t | 44 my $thawed = Storable::thaw( $frozen ); 47 is_deeply( $struct, $thawed, 'Struct superficially looks like the original' ); 50 is( "$struct->[1]", "$thawed->[1]", 'Singleton thaws correctly' ); 54 is_deeply( $struct, $thawed, 'Empiric testing confirms correct behaviour' ); 58 $thawed = Storable::thaw($frozen); 59 is("$thawed->[0]", "$thawed->[1]", "Multiple Singletons thaw correctly");
|
/dports/devel/p5-Storable/Storable-3.25/t/ |
H A D | code.t | 84 $thawed = thaw $freezed; 86 is($thawed->[0]->(), "JAPH"); 87 is($thawed->[1]->(), 42); 95 $thawed = thaw $freezed; 103 $thawed = thaw $freezed; 110 $thawed = thaw $freezed; 112 is($thawed->(), "JAPH"); 130 $thawed = retrieve "store$$"; 132 is($thawed->[0]->(), "JAPH"); 133 is($thawed->[1]->(), 42); [all …]
|
H A D | attach_errors.t | 109 my $thawed = eval { 112 isa_ok( $thawed, 'My::GoodThaw' ); 148 my $thawed = undef; 150 $thawed = Storable::thaw( $frozen ); 187 my $thawed = eval { 190 isa_ok( $thawed, 'My::GoodAttach' ); 191 is( ref($thawed), 'My::GoodAttach::Subclass', 225 my $thawed = eval { 232 is($thawed->[0], $thawed->[1], 'References to the same object are attached properly'); 274 my $thawed = undef; [all …]
|
H A D | circular_hook.t | 35 my $thawed = Storable::thaw( $string ); 39 is( ref($thawed), 'ARRAY', 'Top level ARRAY' ); 40 is( scalar(@$thawed), 1, 'ARRAY contains one element' ); 41 isa_ok( $thawed->[0], 'Foo' ); 42 is( scalar(keys %{$thawed->[0]}), 1, 'Foo contains one element' ); 43 isa_ok( $thawed->[0]->{Foo}, 'Bar' ); 44 is( scalar(keys %{$thawed->[0]->{Foo}}), 1, 'Bar contains one element' ); 45 isa_ok( $thawed->[0]->{Foo}->{Bar}, 'Foo' ); 46 is( $thawed->[0], $thawed->[0]->{Foo}->{Bar}, 'Circular is... well... circular' );
|
H A D | attach_singleton.t | 44 my $thawed = Storable::thaw( $frozen ); 47 is_deeply( $struct, $thawed, 'Struct superficially looks like the original' ); 50 is( "$struct->[1]", "$thawed->[1]", 'Singleton thaws correctly' ); 54 is_deeply( $struct, $thawed, 'Empiric testing confirms correct behaviour' ); 58 $thawed = Storable::thaw($frozen); 59 is("$thawed->[0]", "$thawed->[1]", "Multiple Singletons thaw correctly");
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/dist/Storable/t/ |
H A D | code.t | 84 $thawed = thaw $freezed; 86 is($thawed->[0]->(), "JAPH"); 87 is($thawed->[1]->(), 42); 95 $thawed = thaw $freezed; 103 $thawed = thaw $freezed; 110 $thawed = thaw $freezed; 112 is($thawed->(), "JAPH"); 130 $thawed = retrieve "store$$"; 132 is($thawed->[0]->(), "JAPH"); 133 is($thawed->[1]->(), 42); [all …]
|
H A D | attach_errors.t | 109 my $thawed = eval { 112 isa_ok( $thawed, 'My::GoodThaw' ); 148 my $thawed = undef; 150 $thawed = Storable::thaw( $frozen ); 187 my $thawed = eval { 190 isa_ok( $thawed, 'My::GoodAttach' ); 191 is( ref($thawed), 'My::GoodAttach::Subclass', 225 my $thawed = eval { 232 is($thawed->[0], $thawed->[1], 'References to the same object are attached properly'); 274 my $thawed = undef; [all …]
|
H A D | circular_hook.t | 35 my $thawed = Storable::thaw( $string ); 39 is( ref($thawed), 'ARRAY', 'Top level ARRAY' ); 40 is( scalar(@$thawed), 1, 'ARRAY contains one element' ); 41 isa_ok( $thawed->[0], 'Foo' ); 42 is( scalar(keys %{$thawed->[0]}), 1, 'Foo contains one element' ); 43 isa_ok( $thawed->[0]->{Foo}, 'Bar' ); 44 is( scalar(keys %{$thawed->[0]->{Foo}}), 1, 'Bar contains one element' ); 45 isa_ok( $thawed->[0]->{Foo}->{Bar}, 'Foo' ); 46 is( $thawed->[0], $thawed->[0]->{Foo}->{Bar}, 'Circular is... well... circular' );
|
H A D | attach_singleton.t | 44 my $thawed = Storable::thaw( $frozen ); 47 is_deeply( $struct, $thawed, 'Struct superficially looks like the original' ); 50 is( "$struct->[1]", "$thawed->[1]", 'Singleton thaws correctly' ); 54 is_deeply( $struct, $thawed, 'Empiric testing confirms correct behaviour' ); 58 $thawed = Storable::thaw($frozen); 59 is("$thawed->[0]", "$thawed->[1]", "Multiple Singletons thaw correctly");
|
/dports/net/p5-MaxMind-DB-Writer/MaxMind-DB-Writer-0.300003/t/MaxMind/DB/Writer/ |
H A D | Tree-thaw-merge.t | 116 'thawed merge_strategy' 130 'check thawed record' 158 'check thawed record' 186 'check thawed record' 231 'check thawed record' 261 'check thawed record' 291 'check thawed record' 325 'check thawed record' 355 'check thawed record' 385 'check thawed record' [all …]
|
/dports/net/p5-Net-Patricia/Net-Patricia-1.22/t/ |
H A D | 01everything.t | 25 my $thawed = Storable::thaw(Storable::nfreeze($t)); 27 for my $o ({ name => "original", obj => $t }, { name => "thawed", obj => $thawed }) { 49 $thawed = Storable::thaw(Storable::nfreeze($t)); 50 for my $o ({ name => "original", obj => $t }, { name => "thawed", obj => $thawed }) { 72 $thawed = Storable::thaw(Storable::nfreeze($t)); 75 for my $o ({ name => "original", obj => $t }, { name => "thawed", obj => $thawed }) { 91 $thawed = Storable::thaw(Storable::nfreeze($t)); 92 for my $o ({ name => "original", obj => $t }, { name => "thawed", obj => $thawed }) { 100 $thawed = Storable::thaw(Storable::nfreeze($t)); 117 $thawed = Storable::thaw(Storable::nfreeze($t)); [all …]
|
/dports/devel/p5-Time-Moment/Time-Moment-0.44/t/ |
H A D | 500_storable.t | 15 my ($tm, $freezed, $thawed); 19 lives_ok { $thawed = Storable::thaw($freezed) } 'Storable::thaw()'; 20 isa_ok($thawed, 'Time::Moment'); 21 is($thawed, '2012-12-24T15:30:45.123456789+01:00'); 25 my ($tm, $freezed, $thawed); 29 lives_ok { $thawed = Storable::thaw($freezed) } 'Storable::thaw()'; 30 isa_ok($thawed, 'Time::Moment'); 31 is($thawed, '2012-12-24T15:30:45.123456789-01:00');
|
/dports/databases/p5-Rose-DB/Rose-DB-0.783/t/ |
H A D | storable.t | 65 my $thawed = Storable::thaw($frozen); 67 ok(!defined $thawed->{'dbh'}, "check dbh - $db_type"); 71 ok(!defined $thawed->{'password'}, "check password - $db_type"); 72 ok(!defined $thawed->{'password_closure'}, "check password closure - $db_type"); 76 ok(!defined $thawed->{'password'}, "check password - $db_type"); 77 ok(ref $thawed->{'password_closure'}, "check password closure - $db_type"); 80 $thawed->dbh->do('DROP TABLE rose_db_storable_test'); 86 $thawed->disconnect;
|
/dports/devel/p5-Class-InsideOut/Class-InsideOut-1.14/t/ |
H A D | 19_storable_singleton.t | 47 my ( $frozen, $thawed ); 59 ok( $thawed = Storable::thaw( $frozen ), 62 is( refaddr $o, refaddr $thawed, 67 is( $thawed->name(), $name2, 75 ${"$class\::self"} = $thawed = $o = undef; 86 ok( $thawed = Storable::thaw( $frozen ), 92 is( $thawed->name(), $name, 93 "... Re-thawed $class object 'name' is '$name'" 97 is( $thawed->name(), undef, 98 "... Re-thawed $class object 'name' is undef"
|