Searched refs:tied (Results 1 - 15 of 15) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Dtied.t150 @tied = (\$scalar, \@array, \%hash);
153 $b, \$a, $a, $c, \$c, \%a, \@array, \%hash, \@tied);
177 # Ensure the tied items in the retrieved image work
179 @tied = ($tscalar, $tarray, $thash) = @{$root->[$#{$root}]};
182 ok 7, tied $$tscalar;
183 ok 8, tied @{$tarray};
184 ok 9, tied %{$thash};
193 print "not " unless ref $tied[$i] eq $type[$i];
H A Dtied_hook.t165 @tied = (\$scalar, \@array, \%hash);
168 $b, \$a, $a, $c, \$c, \%a, \@array, \%hash, \@tied);
186 # Ensure the tied items in the retrieved image work
188 @tied = ($tscalar, $tarray, $thash) = @{$root->[$#{$root}]};
191 ok 7, tied $$tscalar;
192 ok 8, tied @{$tarray};
193 ok 9, tied %{$thash};
201 ok 11 + 2*$i, ref $tied[$i] eq $type[$i]; # Tests 11,13,15
214 # And now for the "blessed ref to tied hash" with "store hook" test...
223 ok 23, $hash_fetch == $old_hash_fetch + 1; # Still tied
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/
H A Ddualvar.t68 tie my $tied, 'Tied';
69 $var = dualvar $tied, "ok";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/
H A DRefHash.t5 # The testing is in two parts: first, run lots of tests on both a tied
6 # hash and an ordinary un-tied hash, and check they give the same
7 # answer. Then there are tests for those cases where the tied hashes
34 # on a tied hash and on a normal hash, and checking that the results
63 "tied $class hash gave:\n",
80 test(defined(tied(%h)) and tied(%h) =~ /^Tie::RefHash/);
114 test(defined(tied(%h)) and tied(%h) =~ /^Tie::RefHash::Nestable/);
118 # Test that the nested hash is also tied (fo
[all...]
H A DScalar.t40 is( $$scalar, undef, 'tied a scalar, default value is undef' );
50 ok( $scalar, 'tied once more' );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dtie.t68 # standard behaviour, with 1 extra reference via tied
71 $a = tied %h;
84 # standard behaviour, with 1 extra reference via tied which is destroyed
87 $a = tied %h;
110 # strict behaviour, with 1 extra references via tied generating an error
114 $a = tied %h;
129 # strict behaviour, with extra 1 references via tied which are destroyed
133 $a = tied %h;
143 $b = tied %h ;
153 $C = $B = tied
[all...]
H A Dtiehandle.t83 is(tied(*$fh), $ob);
149 # Does aliasing work with tied FHs?
195 ok(!tied %foo);
201 ok(!tied @bar);
207 ok(!tied *BAZ);
217 # warnings should pass to the PRINT method of tied STDERR
H A Dgmagic.t16 my($rgot, $wgot) = (tied $c)->init(0);
H A Dtiearray.t147 print "not " unless tied(@ary) == $ob;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/XS/APItest/t/
H A Dhash.t55 "hv_store doesn't insert a key with the raw utf8 on a tied hash");
81 # hv_exists was buggy for tied hashes, in that the raw utf8 key was being
143 my $class = tied %$hash;
166 my $class = tied %$hash;
182 # tied hash. This isn't helpful here.
184 my $class = tied %$hash;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A DPacklist.t23 is( ref tied %$pl, 'ExtUtils::Packlist', 'obj should be tied underneath' );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/
H A Dsafeops.t268 tied tied
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/t/
H A DFunctions.t134 bless, dbmclose, dbmopen, package, ref, tie, tied, untie,
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/
H A D30_defer.t325 untie @a if tied @a;
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Object/
H A DObject.xs55 * If we get here it must be a Group, so perl_obj will point to a tied
56 * AV. We therefore copy the exacct part then create a new tied array
113 * wrapped in the corresponding perl structure and stored in a tied perl array.
223 # context a reference to the tied array used to store the objects in the Group

Completed in 96 milliseconds