Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Dumpvalue.t

Lines Matching refs:out
65 my $out = tie *OUT, 'TieOut';
71 is( $out->read, "0..2  1 2 3\n", 'DumpElem worked on array ref');
73 is( $out->read, "'one' => 1, 'two' => 2\n", 'DumpElem worked on hash ref' );
75 is( $out->read, "'hi'\n", 'DumpElem worked on simple scalar' );
78 like( $out->read, qr/ARRAY/, 'DumpElem okay with reference and no veryCompact');
83 is( $out->read, "0..2  1 2 3\n", 'dumped array fine' );
86 is( $out->read, "0..2  1 2 ...\n", 'dumped limited array fine' );
90 is( $out->read, "'a' => 1, 'b' => 2, 'c' => 3\n", 'dumped hash fine' );
93 is( $out->read, "'a' => 1, 'b' => 2 ...\n", 'dumped limited hash fine' );
98 like( $out->read, qr/ARRAY.+empty array/s, 'stringified empty array ref' );
100 like( $out->read, qr/HASH.+empty hash/s, 'stringified empty hash ref' );
102 is( $out->read, "1\n", 'stringified simple scalar' );
112 is( $out->read, "-> 7\n", 'unwrap worked on scalar' );
114 is( $out->read, "-> REUSED_ADDRESS\n", 'unwrap worked on scalar' );
120 is( $out->read, "'one' => 1\n", 'unwrap worked on hash' );
122 is( $out->read, "0  2\n1  3\n", 'unwrap worked on array' );
124 is( $out->read, '', 'unwrap ignored glob on first try');
126 is( $out->read, "*DUMPED_GLOB*\n", 'unwrap worked on glob');
128 is( $out->read, "-> qr/(?-xism:foo(.+))/\n", 'unwrap worked on Regexp' );
130 like( $out->read, qr/^-> &CODE/, 'unwrap worked on sub ref' );
149 like( $out->read, qr/^Unknown value/, 'set_unctrl caught bad value' );
171 is( $out->read, "  \$foo = 1\n", 'dumped glob for $foo correctly' );
176 is( $out->read, "\@boo = (\n   0..1  1 2\n)\n", 'dumped glob for @bar fine' );
180 is( $out->read, "\%baz = (\n   'one' => 1, 'two' => 2\n)\n",
187 	is( $out->read, "FileHandle(FILE) => fileno($fileno)\n",
192 is( $out->read, '', 'no sub dumped without $all set' );
194 is( $out->read, "&read in ???\n", 'sub dumped when requested' );
199 is( $out->read, "\$_<foo = 1\n", 'dumped glob for $_<foo correctly (DB)' );
209 like( $out->read, qr/&TieOut::read in/, 'dumpsub found sub fine' );
218 is( $out->read, "&TieOut::read in TieOut\n", 'dumpsub found sub fine again' );
223 like( $out->read, qr/^String space:/, 'printed usage message fine' );
228 like( $out->read, qr/\@INC =/, 'dumped variables from a package' );
233 is( $out->read, '', 'no dump when $DB::signal is set' );
238 is( $out->read, "\@a = 3 items (data: 3 bytes)\n", 'arrayUsage message okay' );
240 is( $out->read, "\%b = 1 item (keys: 3; values: 1; total: 4 bytes)\n",
243 is( $out->read, "\%c = 1 item (keys: 3; values: 3; total: 6 bytes)\n",
250 like( $out->read, qr/\@foo =.+\%foo =/s, 'globValue message okay' );
254 is( $out->read, "undef\n", 'dumpValue caught undef value okay' );
256 is( $out->read, "'one'\n", 'dumpValue worked' );
258 is( $out->read, "'two'\n", 'dumpValue worked on array' );
260 is( $out->read, "-> 'one'\n", 'dumpValue worked on scalar ref' );
264 is( $out->read, "undef\n", 'dumpValues caught undef value fine' );
266 is( $out->read, "0  0..0  'two'\n", 'dumpValues worked on array ref' );
268 is( $out->read, "0..1  'one' 'two'\n", 'dumpValues worked on multiple values' );