distrib/lib/Dumpvalue.t

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' );
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' );
181 	'dumped glob for %baz fine' );
188 		'dumped filehandle from glob fine' );
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)' );
228 like( $out->read, qr/\@INC =/, 'dumped variables from a package' );