Home
last modified time | relevance | path

Searched refs:tied (Results 1 – 25 of 4047) sorted by relevance

12345678910>>...162

/dports/devel/p5-IO-NestedCapture/IO-NestedCapture-1.03/t/
H A D4-capture_all.t22 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 D3-capture_in_out.t9 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 D5-errors.t68 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 DExtraHash.t8 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 DExtraHash.t8 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 DExtraHash.t8 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 DExtraHash.t8 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 Dmagic.t27 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 Dkarma_tool74 $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 Dgreylisting298 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 Dkarma269 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 DFromMany.pm52 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 Dgmagic.t24 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 Dgmagic.t24 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 Dgmagic.t24 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 Dgmagic.t24 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 D24-all-badtied.t18 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 D23-all-tied.t18 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 D024-tied.t98 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 Dmagic.t33 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 Dautohash.030.tied.t23 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 D24_tied.t19 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 Dmagic.t157 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 Dmagic.t157 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 D24-tied.t30 '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'

12345678910>>...162