This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test dumpvar.pl with objects whose classes contain ‘=’
authorFather Chrysostomos <sprout@cpan.org>
Sun, 23 Oct 2011 20:24:21 +0000 (13:24 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 23 Oct 2011 20:49:38 +0000 (13:49 -0700)
lib/dumpvar.t

index 843ba1c..69ec3b2 100644 (file)
@@ -314,3 +314,7 @@ EXPECT
 my %x=(a=>1, b=>2); dumpvalue(\%x);
 EXPECT
 /0  HASH\(0x[0-9a-f]+\)\n   'a' => 1\n   'b' => 2\n/i
+########
+dumpvalue(bless[1,2,3,4],"a=b=c");
+EXPECT
+/0  a=b=c=ARRAY\(0x[0-9a-f]+\)\n   0  1\n   1  2\n   2  3\n   3  4\n/i