/dports/devel/p5-IO-NestedCapture/IO-NestedCapture-1.03/t/ |
H A D | 4-capture_all.t | 22 ok(tied *STDIN); 23 ok(tied *STDOUT); 24 ok(tied *STDERR); 55 ok(tied *STDIN); 63 ok(tied *STDIN); 64 ok(tied *STDOUT); 71 ok(tied *STDIN); 72 ok(tied *STDOUT); 80 ok(tied *STDIN); 89 ok(tied *STDIN); [all …]
|
H A D | 3-capture_in_out.t | 9 is(tied *STDIN, undef); 10 is(tied *STDOUT, undef); 15 ok(tied *STDOUT); 32 ok(tied *STDIN); 54 ok(tied *STDIN); 55 ok(tied *STDOUT); 72 ok(tied *STDIN); 73 ok(tied *STDOUT); 83 ok(tied *STDIN); 84 ok(tied *STDOUT); [all …]
|
H A D | 5-errors.t | 68 is(tied *STDIN, undef); 72 is(tied *STDOUT, undef); 76 is(tied *STDERR, undef); 80 is(tied *STDIN, undef); 81 is(tied *STDOUT, undef); 85 is(tied *STDIN, undef); 86 is(tied *STDERR, undef); 90 is(tied *STDOUT, undef); 91 is(tied *STDERR, undef); 95 is(tied *STDIN, undef); [all …]
|
/dports/lang/perl5.32/perl-5.32.1/lib/Tie/ |
H A D | ExtraHash.t | 8 tie my %tied, 'Tie::ExtraHash'; 9 %tied = (apple => 'tree', cow => 'field'); 13 is_deeply(\%hash, \%tied, "TIEHASH"); 14 ok(tied(%tied), "TIEHASH really does tie"); 25 delete($tied{apple}); delete($hash{apple}); 30 $tied{house} = $hash{house} = 'town'; 31 ok($tied{house} eq 'town' && $tied{house} eq $hash{house}, 35 %tied = (); %hash = (); 36 ok(tied(%tied), "still tied after CLEAR"); 37 is_deeply(\%tied, \%hash, "CLEAR"); [all …]
|
/dports/lang/perl5.34/perl-5.34.0/lib/Tie/ |
H A D | ExtraHash.t | 8 tie my %tied, 'Tie::ExtraHash'; 9 %tied = (apple => 'tree', cow => 'field'); 13 is_deeply(\%hash, \%tied, "TIEHASH"); 14 ok(tied(%tied), "TIEHASH really does tie"); 25 delete($tied{apple}); delete($hash{apple}); 30 $tied{house} = $hash{house} = 'town'; 31 ok($tied{house} eq 'town' && $tied{house} eq $hash{house}, 35 %tied = (); %hash = (); 36 ok(tied(%tied), "still tied after CLEAR"); 37 is_deeply(\%tied, \%hash, "CLEAR"); [all …]
|
/dports/lang/perl5.30/perl-5.30.3/lib/Tie/ |
H A D | ExtraHash.t | 8 tie my %tied, 'Tie::ExtraHash'; 9 %tied = (apple => 'tree', cow => 'field'); 13 is_deeply(\%hash, \%tied, "TIEHASH"); 14 ok(tied(%tied), "TIEHASH really does tie"); 25 delete($tied{apple}); delete($hash{apple}); 30 $tied{house} = $hash{house} = 'town'; 31 ok($tied{house} eq 'town' && $tied{house} eq $hash{house}, 35 %tied = (); %hash = (); 36 ok(tied(%tied), "still tied after CLEAR"); 37 is_deeply(\%tied, \%hash, "CLEAR"); [all …]
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/lib/Tie/ |
H A D | ExtraHash.t | 8 tie my %tied, 'Tie::ExtraHash'; 9 %tied = (apple => 'tree', cow => 'field'); 13 is_deeply(\%hash, \%tied, "TIEHASH"); 14 ok(tied(%tied), "TIEHASH really does tie"); 25 delete($tied{apple}); delete($hash{apple}); 30 $tied{house} = $hash{house} = 'town'; 31 ok($tied{house} eq 'town' && $tied{house} eq $hash{house}, 35 %tied = (); %hash = (); 36 ok(tied(%tied), "still tied after CLEAR"); 37 is_deeply(\%tied, \%hash, "CLEAR"); [all …]
|
/dports/devel/p5-Data-Visitor/Data-Visitor-0.31/t/ |
H A D | magic.t | 27 ok( tied %{ $copy->{foo} }, "the subhash is tied" ); 28 isa_ok( tied(%{ $copy->{foo} }), 'Tie::RefHash', 'tied to correct class' ); 29 isnt( tied(%{ $copy->{foo} }), tied(%{ $h->{foo} }), "tied is different" ); 37 ok( !tied(%{ $no_tie_copy->{foo} }), "not tied" ); 59 is( ref($copy), "ARRAY", "tied array" ); 60 ok( tied(@$copy), "copy is tied" ); 66 is( ref($copy), "HASH", "tied array" ); 67 ok( tied(%$copy), "copy is tied" ); 74 ok( tied($$copy), "copy is tied" ); 79 is( ref($copy), "GLOB", "tied array" ); [all …]
|
/dports/mail/p5-qpsmtpd/qpsmtpd-0.93/plugins/ |
H A D | karma_tool | 74 $tied->{$key}; 91 $tied->{$key}; 106 $tied->{$key}; 132 foreach my $r (sort keys %$tied) { 135 $tied->{$r}; 180 my ($self, $tied, $lock) = @_; 181 untie $tied; 274 my $count = keys %$tied; 277 foreach my $key (keys %$tied) { 281 delete $tied->{$key}; [all …]
|
H A D | greylisting | 298 if (!$tied->{$key}) { 342 untie $tied; 467 my $count = keys %$tied; 470 foreach my $key (keys %$tied) { 477 $tied->{$new_key} = $tied->{$key}; 478 delete $tied->{$key}; 480 untie $tied; 492 my $count = keys %$tied; 495 foreach my $key (keys %$tied) { 500 delete $tied->{$key}; [all …]
|
H A D | karma | 269 if (!$tied->{$key}) { 275 $self->parse_db_record($tied->{$key}); 295 if (!$tied->{$key}) { 301 $self->parse_db_record($tied->{$key}); 317 $self->cleanup_and_return($tied, $lock); 473 untie $tied; 573 my $count = keys %$tied; 576 foreach my $key (keys %$tied) { 577 my $ts = $tied->{$key}; 580 delete $tied->{$key}; [all …]
|
/dports/databases/p5-Tangram/Tangram-2.12/lib/Tangram/Type/Ref/ |
H A D | FromMany.pm | 52 my $tied = tied($obj->{$field}); 53 if ( $tied and $tied->can("storage") 55 $tied = undef; 58 return $tied->id if $tied; 94 my $tied = tied($obj->{$field}); 95 if ( $tied and $tied->can("storage") 97 $tied = undef; 99 return $storage->split_id($tied->id) if $tied; 187 if ( $tied and $tied->can("storage") 188 and $tied->storage != $storage ) { [all …]
|
/dports/lang/perl5.34/perl-5.34.0/t/op/ |
H A D | gmagic.t | 24 expected_tie_calls(tied $c, 1, 0); 26 expected_tie_calls(tied $c, 1, 0); 29 expected_tie_calls(tied $c, 1, 0); 31 expected_tie_calls(tied $c, 1, 0); 34 expected_tie_calls(tied $c, 2, 0); 38 expected_tie_calls(tied $c, 1, 1); 41 expected_tie_calls(tied $c, 2, 1); 44 expected_tie_calls(tied $c, 2, 1); 169 is tied $$x, undef, 176 is tied $$x, undef, [all …]
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/t/op/ |
H A D | gmagic.t | 24 expected_tie_calls(tied $c, 1, 0); 26 expected_tie_calls(tied $c, 1, 0); 29 expected_tie_calls(tied $c, 1, 0); 31 expected_tie_calls(tied $c, 1, 0); 34 expected_tie_calls(tied $c, 2, 0); 38 expected_tie_calls(tied $c, 1, 1); 41 expected_tie_calls(tied $c, 2, 1); 44 expected_tie_calls(tied $c, 2, 1); 169 is tied $$x, undef, 176 is tied $$x, undef, [all …]
|
/dports/lang/perl5.30/perl-5.30.3/t/op/ |
H A D | gmagic.t | 24 expected_tie_calls(tied $c, 1, 0); 26 expected_tie_calls(tied $c, 1, 0); 29 expected_tie_calls(tied $c, 1, 0); 31 expected_tie_calls(tied $c, 1, 0); 34 expected_tie_calls(tied $c, 2, 0); 38 expected_tie_calls(tied $c, 1, 1); 41 expected_tie_calls(tied $c, 2, 1); 44 expected_tie_calls(tied $c, 2, 1); 169 is tied $$x, undef, 176 is tied $$x, undef, [all …]
|
/dports/lang/perl5.32/perl-5.32.1/t/op/ |
H A D | gmagic.t | 24 expected_tie_calls(tied $c, 1, 0); 26 expected_tie_calls(tied $c, 1, 0); 29 expected_tie_calls(tied $c, 1, 0); 31 expected_tie_calls(tied $c, 1, 0); 34 expected_tie_calls(tied $c, 2, 0); 38 expected_tie_calls(tied $c, 1, 1); 41 expected_tie_calls(tied $c, 2, 1); 44 expected_tie_calls(tied $c, 2, 1); 169 is tied $$x, undef, 176 is tied $$x, undef, [all …]
|
/dports/devel/p5-Capture-Tiny/Capture-Tiny-0.48/t/ |
H A D | 24-all-badtied.t | 18 plan skip_all => "capture needs Perl 5.8 for tied STDIN" 28 my $in_tie = tied *STDIN; 29 ok( $in_tie, "STDIN is tied" ); 32 my $out_tie = tied *STDOUT; 33 ok( $out_tie, "STDIN is tied" ); 36 my $err_tie = tied *STDERR; 37 ok( $err_tie, "STDIN is tied" ); 60 is( tied *STDIN, $in_tie, "STDIN is still tied" ); 61 is( tied *STDOUT, $out_tie, "STDOUT is still tied" ); 62 is( tied *STDERR, $err_tie, "STDERR is still tied" );
|
H A D | 23-all-tied.t | 18 plan skip_all => "capture needs Perl 5.8 for tied STDOUT" 29 my $out_tie = tied *STDOUT; 30 ok( $out_tie, "STDOUT is tied" ); 32 my $err_tie = tied *STDERR; 33 ok( $err_tie, "STDERR is tied" ); 35 my $in_tie = tied *STDIN; 36 ok( $in_tie, "STDIN is tied" ); 59 is( tied *STDOUT, $out_tie, "STDOUT is still tied" ); 60 is( tied *STDERR, $err_tie, "STDERR is still tied" ); 61 is( tied *STDIN, $in_tie, "STDIN is still tied" );
|
/dports/devel/p5-Data-Printer/Data-Printer-1.000004/t/ |
H A D | 024-tied.t | 98 is $ddp->parse(\$var), '1 (tied to Tie::Fighter::Scalar)', 'tied scalar contains tied message'; 101 is $ddp->parse(\$var), '1', '(still) tied scalar not shown on show_tied => 0'; 120 ] (tied to Tie::Fighter::Array)', 'tied array contains tied message'; 126 ]', '(still) tied array not shown on show_tied => 0'; 145 } (tied to Tie::Fighter::Hash)', 'tied hash contains tied message'; 150 }', '(still) tied hash not shown on show_tied => 0'; 161 unlike $ddp->parse(\$var), qr/tied to/, 'untied handle shows only the handle itself'; 164 like $ddp->parse(\$var), qr/tied to Tie::Fighter::Handle/, 'tied handle contains tied message'; 167 unlike $ddp->parse(\$var), qr/tied to/, 'tied handle not exposed on show_tied => 0'; 171 unlike $ddp->parse(\$var), qr/tied to/, 'cleared (untied) handle again shows no tie information';
|
/dports/databases/p5-DBD-MariaDB/DBD-MariaDB-1.21/t/ |
H A D | magic.t | 33 is(tied($statement)->{store}, 0, "$func does not process set magic on statement"); 34 is(tied($param)->{fetch}, 1, "$func processes get magic on param only once"); 35 is(tied($param)->{store}, 0, "$func does not process set magic on param"); 46 is(tied($param)->{fetch}, 1, "$func processes get magic on param only once"); 47 is(tied($param)->{store}, 0, "$func does not process set magic on param"); 61 is(tied($param)->{fetch}, 1, "$func2 processes get magic on param only once"); 62 is(tied($param)->{store}, 0, "$func2 does not process set magic on param"); 77 is(tied($param)->{fetch}, 1, "$func2 processes get magic on param only once"); 78 is(tied($param)->{store}, 0, "$func2 does not process set magic on param"); 95 is(tied($param)->{store}, 0, "$func2 does not process set magic on param"); [all …]
|
/dports/devel/p5-Hash-AutoHash/Hash-AutoHash-1.17/t/ |
H A D | autohash.030.tied.t | 23 my $tied=tied %$autohash; 24 my $correct_autohash=(!$tied || 'Hash::AutoHash::alias' eq ref $tied)? undef: $tied; 25 my $tied=tied %hash; 26 # my $correct_hash=!$tied? undef: 'Hash::AutoHash::alias' eq ref $tied? tied %{$tied->[0]}: $tied; 27 my $correct_hash=!$tied? undef: 'Hash::AutoHash::alias' eq ref $tied? $correct_autohash: $tied; 40 my $tied=tied %$hash; 42 my $hash=$tied->[0]; 43 $tied=tied(%$hash); 56 # in table below, 'tied' means 'tied to TieOptions possibly via alias' 170 $object=tied(%hash); [all …]
|
/dports/devel/p5-Data-MessagePack/Data-MessagePack-0.48/t/ |
H A D | 24_tied.t | 19 ok(unpack("C", substr($packed,0,1)) == 0x83, "pack a tied FixMap with 3 elems"); 23 ok( 0, "unpack tied hash" ); 25 is_deeply( \%hash, $unpacked, "round trip tied hash" ); 33 ok(unpack("C", substr($packed,0,1)) == 0x83, "PP pack a tied FixMap with 3 elems"); 37 ok( 0, "PP unpack tied hash" ); 39 is_deeply( \%hash, $unpacked, "PP round trip tied hash" ); 48 ok(unpack("C", substr($packed,0,1)) == 0x9a, "pack a tied FixArray with 10 elems"); 52 ok( 0, "unpack tied array" ); 54 is_deeply( \@array, $unpacked, "round trip tied array" ); 66 ok( 0, "PP unpack tied array" ); [all …]
|
/dports/lang/perl5.32/perl-5.32.1/dist/Devel-PPPort/t/ |
H A D | magic.t | 157 is tied($negative)->{fetch}, 1; 158 is tied($negative)->{store}, 0; 165 is tied($negative)->{fetch}, 1; 166 is tied($negative)->{store}, 0; 173 is tied($negative)->{fetch}, 1; 179 is tied($big)->{fetch}, 1; 180 is tied($big)->{store}, 0; 187 is tied($big)->{fetch}, 1; 188 is tied($big)->{store}, 0; 195 is tied($big)->{fetch}, 1; [all …]
|
/dports/devel/p5-Devel-PPPort/Devel-PPPort-3.63/t/ |
H A D | magic.t | 157 is tied($negative)->{fetch}, 1; 158 is tied($negative)->{store}, 0; 165 is tied($negative)->{fetch}, 1; 166 is tied($negative)->{store}, 0; 173 is tied($negative)->{fetch}, 1; 179 is tied($big)->{fetch}, 1; 180 is tied($big)->{store}, 0; 187 is tied($big)->{fetch}, 1; 188 is tied($big)->{store}, 0; 195 is tied($big)->{fetch}, 1; [all …]
|
/dports/devel/p5-Params-Validate/Params-Validate-1.30/t/ |
H A D | 24-tied.t | 30 'validate() call succeeded with tied params array and regular hashref spec' 36 skip 'Params::Validate segfaults with tied hash for spec', 1; 48 'validate() call succeeded with regular params array and tied hashref spec' 54 skip 'Params::Validate segfaults with tied hash for spec', 1; 66 'validate() call succeeded with tied params array and tied hashref spec' 81 'validate_pos() call succeeded with tied params array and regular hashref spec' 87 skip 'Params::Validate segfaults with tied hash for spec', 1; 99 'validate_pos() call succeeded with regular params array and tied hashref spec' 105 skip 'Params::Validate segfaults with tied hash for spec', 1; 117 'validate_pos() call succeeded with tied params array and tied hashref spec'
|