diff options
author | Nicholas Clark <nick@ccl4.org> | 2021-09-03 07:37:40 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2021-09-03 10:37:53 +0000 |
commit | 8937088f79a80f8cf6f85872e72e9a3b8325e19a (patch) | |
tree | b85839ff36307b505e2661784af51b6f6e5754b0 /ext/Devel-Peek | |
parent | 63a8776eba7e6662181265643188f7889588ba11 (diff) | |
download | perl-8937088f79a80f8cf6f85872e72e9a3b8325e19a.tar.gz |
Test Devel::Peek with tied hashes
Diffstat (limited to 'ext/Devel-Peek')
-rw-r--r-- | ext/Devel-Peek/t/Peek.t | 34 |
1 files changed, 33 insertions, 1 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index a8c68c80e6..63a002879a 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -15,7 +15,10 @@ BEGIN { use Test::More; -use Devel::Peek; +BEGIN { + use_ok 'Devel::Peek'; +} +require Tie::Hash; our $DEBUG = 0; open(SAVERR, ">&STDERR") or die "Can't dup STDERR: $!"; @@ -989,6 +992,35 @@ SV = PVHV\($ADDR\) at $ADDR IV = 2 HASH +tie %tied, "Tie::StdHash"; +do_test('Dump %tied', '%tied', <<'HASH', "", undef, 1); +SV = PVHV\($ADDR\) at $ADDR + REFCNT = 1 + FLAGS = \(RMG,SHAREKEYS\) + MAGIC = $ADDR + MG_VIRTUAL = &PL_vtbl_pack + MG_TYPE = PERL_MAGIC_tied\(P\) + MG_FLAGS = 0x02 + REFCOUNTED + MG_OBJ = $ADDR + SV = $RV\($ADDR\) at $ADDR + REFCNT = 1 + FLAGS = \(ROK\) + RV = $ADDR + SV = PVHV\($ADDR\) at $ADDR + REFCNT = 1 + FLAGS = \(OBJECT,SHAREKEYS\) + STASH = $ADDR "Tie::StdHash" + ARRAY = 0x0 + KEYS = 0 + FILL = 0 + MAX = 7 + ARRAY = 0x0 + KEYS = 0 + FILL = 0 + MAX = 7 +HASH + $_ = "hello"; do_test('rvalue substr', 'substr $_, 1, 2', <<'SUBSTR', '', undef, 1); SV = PV\($ADDR\) at $ADDR |