From ccbcbb3d6584c01ff4c18f0e39e86d6eb181eb4d Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 23 May 2011 21:18:51 +0100
Subject: Test dumping studied scalars.

---
 ext/Devel-Peek/t/Peek.t | 30 +++++++++++++++++++++++++++++-
 1 file changed, 29 insertions(+), 1 deletion(-)

(limited to 'ext')

diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t
index 4fee5e72b6..ec54405c6d 100644
--- a/ext/Devel-Peek/t/Peek.t
+++ b/ext/Devel-Peek/t/Peek.t
@@ -778,7 +778,10 @@ SKIP: {
      or diag $@;
 }
 
-use constant perl => 'rules';
+use constant {
+    perl => 'rules',
+    beer => 'foamy',
+};
 
 unless ($Config{useithreads}) {
     # These end up as copies in pads under ithreads, which rather defeats the
@@ -814,6 +817,31 @@ unless ($Config{useithreads}) {
   PREVIOUS = 1
   USEFUL = 100
 ');
+
+    do_test('regular string constant', beer,
+'SV = PV\\($ADDR\\) at $ADDR
+  REFCNT = 4
+  FLAGS = \\(PADMY,POK,READONLY,pPOK\\)
+  PV = $ADDR "foamy"\\\0
+  CUR = 5
+  LEN = \d+
+');
+
+    is(study beer, 1, "Our studies were successful");
+
+    do_test('string constant now studied', beer,
+'SV = PVMG\\($ADDR\\) at $ADDR
+  REFCNT = 5
+  FLAGS = \\(PADMY,SMG,POK,READONLY,pPOK,SCREAM\\)
+  IV = 0
+  NV = 0
+  PV = $ADDR "foamy"\\\0
+  CUR = 5
+  LEN = \d+
+  MAGIC = $ADDR
+    MG_VIRTUAL = &PL_vtbl_mglob
+    MG_TYPE = PERL_MAGIC_regex_global\\(g\\)
+');
 }
 
 done_testing();
-- 
cgit v1.2.1