POSIX math: Add FP_ILOGB0 and FP_ILOGBNAN.

[perl5.git] / lib / dumpvar.t

diff --git a/lib/dumpvar.t b/lib/dumpvar.t
index f4f55d9..3e48b17 100644 (file)
--- a/lib/dumpvar.t
+++ b/lib/dumpvar.t
@@ -54,6 +54,11 @@ package Tyre;
 sub TIESCALAR{bless[]}
 # other methods intentionally omitted
 
+package Kerb;
+
+sub TIEHASH{bless{}}
+# other methods intentionally omitted
+
 package main;
 
 my $foo = Foo->new(1..5);
@@ -331,3 +336,7 @@ EXPECT
 local *_; tie $_, 'Tyre'; unctrl('abc');
 EXPECT
 abc
+########
+tie my %h, 'Kerb'; my $v = { a => 1, b => \%h, c => 2 }; dumpvalue($v);
+EXPECT
+/'a' => 1\n.+Can't locate object method.+'c' => 2/s