[p5sagit/p5-mst-13.2.git] / ext / Devel / Peek / Peek.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require Config; import Config;
    if ($Config{'extensions'} !~ /\bPeek\b/) {
        print "1..0 # Skip: Devel::Peek was not built\n";
        exit 0;
    }
}

use Devel::Peek;

print "1..19\n";

our $DEBUG = 0;
open(SAVERR, ">&STDERR") or die "Can't dup STDERR: $!";

sub do_test {
    my $pattern = pop;
    if (open(OUT,">peek$$")) {
	open(STDERR, ">&OUT") or die "Can't dup OUT: $!";
	Dump($_[1]);
	open(STDERR, ">&SAVERR") or die "Can't restore STDERR: $!";
	close(OUT);
	if (open(IN, "peek$$")) {
	    local $/;
	    $pattern =~ s/\$ADDR/0x[[:xdigit:]]+/g;
	    $pattern =~ s/\$FLOAT/(?:\\d*\\.\\d+(?:e[-+]\\d+)?|\\d+)/g;
	    print $pattern, "\n" if $DEBUG;
	    my $dump = <IN>;
	    print $dump, "\n"    if $DEBUG;
	    print "[$dump] vs [$pattern]\nnot " unless $dump =~ /$pattern/ms;
	    print "ok $_[0]\n";
	    close(IN);
            return $1;
	} else {
	    die "$0: failed to open peek$$: !\n";
	}
    } else {
	die "$0: failed to create peek$$: $!\n";
    }
}

our   $a;
our   $b;
my    $c;
local $d = 0;

do_test( 1,
	$a = "foo",
'SV = PV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(POK,pPOK\\)
  PV = $ADDR "foo"\\\0
  CUR = 3
  LEN = \\d+'
       );

do_test( 2,
        "bar",
'SV = PV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(.*POK,READONLY,pPOK\\)
  PV = $ADDR "bar"\\\0
  CUR = 3
  LEN = \\d+');

do_test( 3,
        $b = 123,
'SV = IV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(IOK,pIOK\\)
  IV = 123');

do_test( 4,
        456,
'SV = IV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(.*IOK,READONLY,pIOK\\)
  IV = 456');

do_test( 5,
        $c = 456,
'SV = IV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(PADBUSY,PADMY,IOK,pIOK\\)
  IV = 456');

# If perl is built with PERL_PRESERVE_IVUV then maths is done as integers
# where possible and this scalar will be an IV. If NO_PERL_PRESERVE_IVUV then
# maths is done in floating point always, and this scalar will be an NV.
# ([NI]) captures the type, referred to by \1 in this regexp and $type for
# building subsequent regexps.
my $type = do_test( 6,
        $c + $d,
'SV = ([NI])V\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(PADTMP,\1OK,p\1OK\\)
  \1V = 456');

($d = "789") += 0.1;

do_test( 7,
       $d,
'SV = PVNV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(NOK,pNOK\\)
  IV = 0
  NV = 789\\.(?:1(?:000+\d+)?|0999+\d+)
  PV = $ADDR "789"\\\0
  CUR = 3
  LEN = \\d+');

do_test( 8,
        0xabcd,
'SV = IV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(.*IOK,READONLY,pIOK\\)
  IV = 43981');

do_test( 9,
        undef,
'SV = NULL\\(0x0\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(\\)');

do_test(10,
        \$a,
'SV = RV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(ROK\\)
  RV = $ADDR
  SV = PV\\($ADDR\\) at $ADDR
    REFCNT = 2
    FLAGS = \\(POK,pPOK\\)
    PV = $ADDR "foo"\\\0
    CUR = 3
    LEN = \\d+');

my $c_pattern;
if ($type eq 'N') {
  $c_pattern = '
    SV = PVNV\\($ADDR\\) at $ADDR
      REFCNT = 1
      FLAGS = \\(IOK,NOK,pIOK,pNOK\\)
      IV = 456
      NV = 456
      PV = 0';
} else {
  $c_pattern = '
    SV = IV\\($ADDR\\) at $ADDR
      REFCNT = 1
      FLAGS = \\(IOK,pIOK\\)
      IV = 456';
}
do_test(11,
       [$b,$c],
'SV = RV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(ROK\\)
  RV = $ADDR
  SV = PVAV\\($ADDR\\) at $ADDR
    REFCNT = 2
    FLAGS = \\(\\)
    IV = 0
    NV = 0
    ARRAY = $ADDR
    FILL = 1
    MAX = 1
    ARYLEN = 0x0
    FLAGS = \\(REAL\\)
    Elt No. 0
    SV = IV\\($ADDR\\) at $ADDR
      REFCNT = 1
      FLAGS = \\(IOK,pIOK\\)
      IV = 123
    Elt No. 1' . $c_pattern);

do_test(12,
       {$b=>$c},
'SV = RV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(ROK\\)
  RV = $ADDR
  SV = PVHV\\($ADDR\\) at $ADDR
    REFCNT = 2
    FLAGS = \\(SHAREKEYS\\)
    IV = 1
    NV = $FLOAT
    ARRAY = $ADDR  \\(0:7, 1:1\\)
    hash quality = 100.0%
    KEYS = 1
    FILL = 1
    MAX = 7
    RITER = -1
    EITER = 0x0
    Elt "123" HASH = $ADDR' . $c_pattern);

do_test(13,
        sub(){@_},
'SV = RV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(ROK\\)
  RV = $ADDR
  SV = PVCV\\($ADDR\\) at $ADDR
    REFCNT = 2
    FLAGS = \\(PADBUSY,PADMY,POK,pPOK,ANON\\)
    IV = 0
    NV = 0
    PROTOTYPE = ""
    COMP_STASH = $ADDR\\t"main"
    START = $ADDR ===> \\d+
    ROOT = $ADDR
    XSUB = 0x0
    XSUBANY = 0
    GVGV::GV = $ADDR\\t"main" :: "__ANON__[^"]*"
    FILE = ".*\\b(?i:peek\\.t)"
    DEPTH = 0
(?:    MUTEXP = $ADDR
    OWNER = $ADDR
)?    FLAGS = 0x4
    PADLIST = $ADDR
    OUTSIDE = $ADDR \\(MAIN\\)');

do_test(14,
        \&do_test,
'SV = RV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(ROK\\)
  RV = $ADDR
  SV = PVCV\\($ADDR\\) at $ADDR
    REFCNT = (3|4)
    FLAGS = \\(\\)
    IV = 0
    NV = 0
    COMP_STASH = $ADDR\\t"main"
    START = $ADDR ===> \\d+
    ROOT = $ADDR
    XSUB = 0x0
    XSUBANY = 0
    GVGV::GV = $ADDR\\t"main" :: "do_test"
    FILE = ".*\\b(?i:peek\\.t)"
    DEPTH = 1
(?:    MUTEXP = $ADDR
    OWNER = $ADDR
)?    FLAGS = 0x0
    PADLIST = $ADDR
      \\d+\\. $ADDR \\("\\$pattern" \\d+-\\d+\\)
     \\d+\\. $ADDR \\(FAKE "\\$DEBUG" 0-\\d+\\)
     \\d+\\. $ADDR \\("\\$dump" \\d+-\\d+\\)
    OUTSIDE = $ADDR \\(MAIN\\)');

do_test(15,
        qr(tic),
'SV = RV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(ROK\\)
  RV = $ADDR
  SV = PVMG\\($ADDR\\) at $ADDR
    REFCNT = 1
    FLAGS = \\(OBJECT,RMG\\)
    IV = 0
    NV = 0
    PV = 0
    MAGIC = $ADDR
      MG_VIRTUAL = $ADDR
      MG_TYPE = PERL_MAGIC_qr\(r\)
      MG_OBJ = $ADDR
    STASH = $ADDR\\t"Regexp"');

do_test(16,
        (bless {}, "Tac"),
'SV = RV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(ROK\\)
  RV = $ADDR
  SV = PVHV\\($ADDR\\) at $ADDR
    REFCNT = 2
    FLAGS = \\(OBJECT,SHAREKEYS\\)
    IV = 0
    NV = 0
    STASH = $ADDR\\t"Tac"
    ARRAY = 0x0
    KEYS = 0
    FILL = 0
    MAX = 7
    RITER = -1
    EITER = 0x0');

do_test(17,
	*a,
'SV = PVGV\\($ADDR\\) at $ADDR
  REFCNT = 5
  FLAGS = \\(GMG,SMG,MULTI(?:,IN_PAD)?\\)
  IV = 0
  NV = 0
  MAGIC = $ADDR
    MG_VIRTUAL = &PL_vtbl_glob
    MG_TYPE = PERL_MAGIC_glob\(\*\)
    MG_OBJ = $ADDR
  NAME = "a"
  NAMELEN = 1
  GvSTASH = $ADDR\\t"main"
  GP = $ADDR
    SV = $ADDR
    REFCNT = 1
    IO = 0x0
    FORM = 0x0  
    AV = 0x0
    HV = 0x0
    CV = 0x0
    CVGEN = 0x0
    GPFLAGS = 0x0
    LINE = \\d+
    FILE = ".*\\b(?i:peek\\.t)"
    FLAGS = $ADDR
    EGV = $ADDR\\t"a"');

if (ord('A') == 193) {
do_test(18,
	chr(256).chr(0).chr(512),
'SV = PV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\((?:PADBUSY,PADTMP,)?POK,READONLY,pPOK,UTF8\\)
  PV = $ADDR "\\\214\\\101\\\0\\\235\\\101"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\]
  CUR = 5
  LEN = \\d+');
} else {
do_test(18,
	chr(256).chr(0).chr(512),
'SV = PV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\((?:PADBUSY,PADTMP,)?POK,READONLY,pPOK,UTF8\\)
  PV = $ADDR "\\\304\\\200\\\0\\\310\\\200"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\]
  CUR = 5
  LEN = \\d+');
}

if (ord('A') == 193) {
do_test(19,
	{chr(256)=>chr(512)},
'SV = RV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(ROK\\)
  RV = $ADDR
  SV = PVHV\\($ADDR\\) at $ADDR
    REFCNT = 2
    FLAGS = \\(SHAREKEYS\\)
    IV = 1
    NV = $FLOAT
    ARRAY = $ADDR  \\(0:7, 1:1\\)
    hash quality = 100.0%
    KEYS = 1
    FILL = 1
    MAX = 7
    RITER = -1
    EITER = $ADDR
    Elt "\\\241\\\101" \[UTF8 "\\\x\{100\}"\] HASH = $ADDR
    SV = PV\\($ADDR\\) at $ADDR
      REFCNT = 1
      FLAGS = \\(POK,pPOK,UTF8\\)
      PV = $ADDR "\\\235\\\101"\\\0 \[UTF8 "\\\x\{200\}"\]
      CUR = 2
      LEN = \\d+');
} else {
do_test(19,
	{chr(256)=>chr(512)},
'SV = RV\\($ADDR\\) at $ADDR
  REFCNT = 1
  FLAGS = \\(ROK\\)
  RV = $ADDR
  SV = PVHV\\($ADDR\\) at $ADDR
    REFCNT = 2
    FLAGS = \\(SHAREKEYS\\)
    IV = 1
    NV = 0
    ARRAY = $ADDR  \\(0:7, 1:1\\)
    hash quality = 100.0%
    KEYS = 1
    FILL = 1
    MAX = 7
    RITER = -1
    EITER = $ADDR
    Elt "\\\304\\\200" \[UTF8 "\\\x\{100\}"\] HASH = $ADDR
    SV = PV\\($ADDR\\) at $ADDR
      REFCNT = 1
      FLAGS = \\(POK,pPOK,UTF8\\)
      PV = $ADDR "\\\310\\\200"\\\0 \[UTF8 "\\\x\{200\}"\]
      CUR = 2
      LEN = \\d+');
}

END {
  1 while unlink("peek$$");
}
Commit	Line	Data
9ec58fb7	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
20822f61	5	@INC = '../lib';
9ec58fb7	6	require Config; import Config;
	7	if ($Config{'extensions'} !~ /\bPeek\b/) {
	8	print "1..0 # Skip: Devel::Peek was not built\n";
	9	exit 0;
	10	}
	11	}
	12
9248c45a	13	use Devel::Peek;
9248c45a	14
98c991d1	15	print "1..19\n";
9248c45a	16
9248c45a	17	our $DEBUG = 0;
277ddfaf	18	open(SAVERR, ">&STDERR") or die "Can't dup STDERR: $!";
9248c45a	19
	20	sub do_test {
	21	my $pattern = pop;
277ddfaf	22	if (open(OUT,">peek$$")) {
277ddfaf	23	open(STDERR, ">&OUT") or die "Can't dup OUT: $!";
9248c45a	24	Dump($_[1]);
277ddfaf	25	open(STDERR, ">&SAVERR") or die "Can't restore STDERR: $!";
277ddfaf	26	close(OUT);
9248c45a	27	if (open(IN, "peek$$")) {
	28	local $/;
	29	$pattern =~ s/\$ADDR/0x[[:xdigit:]]+/g;
8aacddc1	30	$pattern =~ s/\$FLOAT/(?:\\d*\\.\\d+(?:e[-+]\\d+)?\|\\d+)/g;
9248c45a	31	print $pattern, "\n" if $DEBUG;
	32	my $dump = <IN>;
	33	print $dump, "\n" if $DEBUG;
9856a127	34	print "[$dump] vs [$pattern]\nnot " unless $dump =~ /$pattern/ms;
9248c45a	35	print "ok $_[0]\n";
9248c45a	36	close(IN);
59d8ce62	37	return $1;
9248c45a	38	} else {
	39	die "$0: failed to open peek$$: !\n";
	40	}
	41	} else {
	42	die "$0: failed to create peek$$: $!\n";
	43	}
	44	}
	45
	46	our $a;
	47	our $b;
	48	my $c;
208edb77	49	local $d = 0;
9248c45a	50
	51	do_test( 1,
	52	$a = "foo",
	53	'SV = PV\\($ADDR\\) at $ADDR
	54	REFCNT = 1
	55	FLAGS = \\(POK,pPOK\\)
	56	PV = $ADDR "foo"\\\0
	57	CUR = 3
1badabf5	58	LEN = \\d+'
9248c45a	59	);
	60
	61	do_test( 2,
	62	"bar",
	63	'SV = PV\\($ADDR\\) at $ADDR
	64	REFCNT = 1
7766e686	65	FLAGS = \\(.*POK,READONLY,pPOK\\)
9248c45a	66	PV = $ADDR "bar"\\\0
9248c45a	67	CUR = 3
1badabf5	68	LEN = \\d+');
9248c45a	69
	70	do_test( 3,
	71	$b = 123,
	72	'SV = IV\\($ADDR\\) at $ADDR
	73	REFCNT = 1
	74	FLAGS = \\(IOK,pIOK\\)
	75	IV = 123');
	76
	77	do_test( 4,
	78	456,
	79	'SV = IV\\($ADDR\\) at $ADDR
	80	REFCNT = 1
7766e686	81	FLAGS = \\(.*IOK,READONLY,pIOK\\)
9248c45a	82	IV = 456');
	83
	84	do_test( 5,
	85	$c = 456,
	86	'SV = IV\\($ADDR\\) at $ADDR
	87	REFCNT = 1
	88	FLAGS = \\(PADBUSY,PADMY,IOK,pIOK\\)
	89	IV = 456');
	90
59d8ce62	91	# If perl is built with PERL_PRESERVE_IVUV then maths is done as integers
	92	# where possible and this scalar will be an IV. If NO_PERL_PRESERVE_IVUV then
	93	# maths is done in floating point always, and this scalar will be an NV.
	94	# ([NI]) captures the type, referred to by \1 in this regexp and $type for
	95	# building subsequent regexps.
	96	my $type = do_test( 6,
9248c45a	97	$c + $d,
59d8ce62	98	'SV = ([NI])V\\($ADDR\\) at $ADDR
9248c45a	99	REFCNT = 1
59d8ce62	100	FLAGS = \\(PADTMP,\1OK,p\1OK\\)
59d8ce62	101	\1V = 456');
9248c45a	102
	103	($d = "789") += 0.1;
	104
	105	do_test( 7,
	106	$d,
	107	'SV = PVNV\\($ADDR\\) at $ADDR
	108	REFCNT = 1
	109	FLAGS = \\(NOK,pNOK\\)
	110	IV = 0
ac634a9a	111	NV = 789\\.(?:1(?:000+\d+)?\|0999+\d+)
9248c45a	112	PV = $ADDR "789"\\\0
9248c45a	113	CUR = 3
1badabf5	114	LEN = \\d+');
9248c45a	115
	116	do_test( 8,
	117	0xabcd,
	118	'SV = IV\\($ADDR\\) at $ADDR
	119	REFCNT = 1
28e5dec8	120	FLAGS = \\(.*IOK,READONLY,pIOK\\)
28e5dec8	121	IV = 43981');
9248c45a	122
	123	do_test( 9,
	124	undef,
	125	'SV = NULL\\(0x0\\) at $ADDR
	126	REFCNT = 1
	127	FLAGS = \\(\\)');
	128
	129	do_test(10,
	130	\$a,
	131	'SV = RV\\($ADDR\\) at $ADDR
	132	REFCNT = 1
	133	FLAGS = \\(ROK\\)
	134	RV = $ADDR
	135	SV = PV\\($ADDR\\) at $ADDR
	136	REFCNT = 2
	137	FLAGS = \\(POK,pPOK\\)
	138	PV = $ADDR "foo"\\\0
	139	CUR = 3
1badabf5	140	LEN = \\d+');
9248c45a	141
59d8ce62	142	my $c_pattern;
	143	if ($type eq 'N') {
	144	$c_pattern = '
	145	SV = PVNV\\($ADDR\\) at $ADDR
	146	REFCNT = 1
	147	FLAGS = \\(IOK,NOK,pIOK,pNOK\\)
	148	IV = 456
	149	NV = 456
	150	PV = 0';
	151	} else {
	152	$c_pattern = '
	153	SV = IV\\($ADDR\\) at $ADDR
	154	REFCNT = 1
	155	FLAGS = \\(IOK,pIOK\\)
	156	IV = 456';
	157	}
9248c45a	158	do_test(11,
	159	[$b,$c],
	160	'SV = RV\\($ADDR\\) at $ADDR
	161	REFCNT = 1
	162	FLAGS = \\(ROK\\)
	163	RV = $ADDR
	164	SV = PVAV\\($ADDR\\) at $ADDR
	165	REFCNT = 2
	166	FLAGS = \\(\\)
	167	IV = 0
	168	NV = 0
	169	ARRAY = $ADDR
	170	FILL = 1
	171	MAX = 1
	172	ARYLEN = 0x0
	173	FLAGS = \\(REAL\\)
	174	Elt No. 0
	175	SV = IV\\($ADDR\\) at $ADDR
	176	REFCNT = 1
	177	FLAGS = \\(IOK,pIOK\\)
	178	IV = 123
59d8ce62	179	Elt No. 1' . $c_pattern);
9248c45a	180
	181	do_test(12,
	182	{$b=>$c},
	183	'SV = RV\\($ADDR\\) at $ADDR
	184	REFCNT = 1
	185	FLAGS = \\(ROK\\)
	186	RV = $ADDR
	187	SV = PVHV\\($ADDR\\) at $ADDR
	188	REFCNT = 2
	189	FLAGS = \\(SHAREKEYS\\)
	190	IV = 1
8aacddc1	191	NV = $FLOAT
9248c45a	192	ARRAY = $ADDR \\(0:7, 1:1\\)
b8fa94d8	193	hash quality = 100.0%
9248c45a	194	KEYS = 1
	195	FILL = 1
	196	MAX = 7
	197	RITER = -1
	198	EITER = 0x0
59d8ce62	199	Elt "123" HASH = $ADDR' . $c_pattern);
9248c45a	200
	201	do_test(13,
	202	sub(){@_},
	203	'SV = RV\\($ADDR\\) at $ADDR
	204	REFCNT = 1
	205	FLAGS = \\(ROK\\)
	206	RV = $ADDR
	207	SV = PVCV\\($ADDR\\) at $ADDR
	208	REFCNT = 2
	209	FLAGS = \\(PADBUSY,PADMY,POK,pPOK,ANON\\)
	210	IV = 0
	211	NV = 0
	212	PROTOTYPE = ""
	213	COMP_STASH = $ADDR\\t"main"
	214	START = $ADDR ===> \\d+
	215	ROOT = $ADDR
	216	XSUB = 0x0
	217	XSUBANY = 0
208edb77	218	GVGV::GV = $ADDR\\t"main" :: "__ANON__[^"]*"
084d946d	219	FILE = ".*\\b(?i:peek\\.t)"
9248c45a	220	DEPTH = 0
9856a127	221	(?: MUTEXP = $ADDR
208edb77	222	OWNER = $ADDR
208edb77	223	)? FLAGS = 0x4
9248c45a	224	PADLIST = $ADDR
	225	OUTSIDE = $ADDR \\(MAIN\\)');
	226
	227	do_test(14,
	228	\&do_test,
	229	'SV = RV\\($ADDR\\) at $ADDR
	230	REFCNT = 1
	231	FLAGS = \\(ROK\\)
	232	RV = $ADDR
	233	SV = PVCV\\($ADDR\\) at $ADDR
9856a127	234	REFCNT = (3\|4)
9248c45a	235	FLAGS = \\(\\)
	236	IV = 0
	237	NV = 0
	238	COMP_STASH = $ADDR\\t"main"
	239	START = $ADDR ===> \\d+
	240	ROOT = $ADDR
	241	XSUB = 0x0
	242	XSUBANY = 0
	243	GVGV::GV = $ADDR\\t"main" :: "do_test"
084d946d	244	FILE = ".*\\b(?i:peek\\.t)"
9248c45a	245	DEPTH = 1
9856a127	246	(?: MUTEXP = $ADDR
208edb77	247	OWNER = $ADDR
208edb77	248	)? FLAGS = 0x0
9248c45a	249	PADLIST = $ADDR
7766e686	250	\\d+\\. $ADDR \\("\\$pattern" \\d+-\\d+\\)
	251	\\d+\\. $ADDR \\(FAKE "\\$DEBUG" 0-\\d+\\)
	252	\\d+\\. $ADDR \\("\\$dump" \\d+-\\d+\\)
9248c45a	253	OUTSIDE = $ADDR \\(MAIN\\)');
	254
	255	do_test(15,
	256	qr(tic),
	257	'SV = RV\\($ADDR\\) at $ADDR
	258	REFCNT = 1
	259	FLAGS = \\(ROK\\)
	260	RV = $ADDR
	261	SV = PVMG\\($ADDR\\) at $ADDR
	262	REFCNT = 1
	263	FLAGS = \\(OBJECT,RMG\\)
	264	IV = 0
	265	NV = 0
	266	PV = 0
	267	MAGIC = $ADDR
	268	MG_VIRTUAL = $ADDR
14befaf4	269	MG_TYPE = PERL_MAGIC_qr\(r\)
9248c45a	270	MG_OBJ = $ADDR
	271	STASH = $ADDR\\t"Regexp"');
	272
	273	do_test(16,
	274	(bless {}, "Tac"),
	275	'SV = RV\\($ADDR\\) at $ADDR
	276	REFCNT = 1
	277	FLAGS = \\(ROK\\)
	278	RV = $ADDR
	279	SV = PVHV\\($ADDR\\) at $ADDR
	280	REFCNT = 2
	281	FLAGS = \\(OBJECT,SHAREKEYS\\)
	282	IV = 0
	283	NV = 0
	284	STASH = $ADDR\\t"Tac"
	285	ARRAY = 0x0
	286	KEYS = 0
	287	FILL = 0
	288	MAX = 7
	289	RITER = -1
	290	EITER = 0x0');
	291
	292	do_test(17,
	293	*a,
	294	'SV = PVGV\\($ADDR\\) at $ADDR
	295	REFCNT = 5
b07ccbd7	296	FLAGS = \\(GMG,SMG,MULTI(?:,IN_PAD)?\\)
9248c45a	297	IV = 0
	298	NV = 0
	299	MAGIC = $ADDR
	300	MG_VIRTUAL = &PL_vtbl_glob
14befaf4	301	MG_TYPE = PERL_MAGIC_glob\(\*\)
9248c45a	302	MG_OBJ = $ADDR
9248c45a	303	NAME = "a"
	304	NAMELEN = 1
	305	GvSTASH = $ADDR\\t"main"
	306	GP = $ADDR
	307	SV = $ADDR
	308	REFCNT = 1
	309	IO = 0x0
	310	FORM = 0x0
	311	AV = 0x0
	312	HV = 0x0
	313	CV = 0x0
	314	CVGEN = 0x0
	315	GPFLAGS = 0x0
9ec58fb7	316	LINE = \\d+
084d946d	317	FILE = ".*\\b(?i:peek\\.t)"
e39917cc	318	FLAGS = $ADDR
9248c45a	319	EGV = $ADDR\\t"a"');
9248c45a	320
cdb2dd7b	321	if (ord('A') == 193) {
	322	do_test(18,
	323	chr(256).chr(0).chr(512),
	324	'SV = PV\\($ADDR\\) at $ADDR
	325	REFCNT = 1
	326	FLAGS = \\((?:PADBUSY,PADTMP,)?POK,READONLY,pPOK,UTF8\\)
	327	PV = $ADDR "\\\214\\\101\\\0\\\235\\\101"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\]
	328	CUR = 5
1badabf5	329	LEN = \\d+');
cdb2dd7b	330	} else {
e6abe6d8	331	do_test(18,
	332	chr(256).chr(0).chr(512),
	333	'SV = PV\\($ADDR\\) at $ADDR
	334	REFCNT = 1
898eb500	335	FLAGS = \\((?:PADBUSY,PADTMP,)?POK,READONLY,pPOK,UTF8\\)
98c991d1	336	PV = $ADDR "\\\304\\\200\\\0\\\310\\\200"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\]
e6abe6d8	337	CUR = 5
1badabf5	338	LEN = \\d+');
cdb2dd7b	339	}
e6abe6d8	340
cdb2dd7b	341	if (ord('A') == 193) {
	342	do_test(19,
	343	{chr(256)=>chr(512)},
	344	'SV = RV\\($ADDR\\) at $ADDR
	345	REFCNT = 1
	346	FLAGS = \\(ROK\\)
	347	RV = $ADDR
	348	SV = PVHV\\($ADDR\\) at $ADDR
	349	REFCNT = 2
	350	FLAGS = \\(SHAREKEYS\\)
	351	IV = 1
8aacddc1	352	NV = $FLOAT
cdb2dd7b	353	ARRAY = $ADDR \\(0:7, 1:1\\)
	354	hash quality = 100.0%
	355	KEYS = 1
	356	FILL = 1
	357	MAX = 7
	358	RITER = -1
	359	EITER = $ADDR
	360	Elt "\\\241\\\101" \[UTF8 "\\\x\{100\}"\] HASH = $ADDR
	361	SV = PV\\($ADDR\\) at $ADDR
	362	REFCNT = 1
	363	FLAGS = \\(POK,pPOK,UTF8\\)
	364	PV = $ADDR "\\\235\\\101"\\\0 \[UTF8 "\\\x\{200\}"\]
	365	CUR = 2
1badabf5	366	LEN = \\d+');
cdb2dd7b	367	} else {
98c991d1	368	do_test(19,
	369	{chr(256)=>chr(512)},
	370	'SV = RV\\($ADDR\\) at $ADDR
	371	REFCNT = 1
	372	FLAGS = \\(ROK\\)
	373	RV = $ADDR
	374	SV = PVHV\\($ADDR\\) at $ADDR
	375	REFCNT = 2
	376	FLAGS = \\(SHAREKEYS\\)
	377	IV = 1
	378	NV = 0
	379	ARRAY = $ADDR \\(0:7, 1:1\\)
	380	hash quality = 100.0%
	381	KEYS = 1
	382	FILL = 1
	383	MAX = 7
	384	RITER = -1
	385	EITER = $ADDR
	386	Elt "\\\304\\\200" \[UTF8 "\\\x\{100\}"\] HASH = $ADDR
	387	SV = PV\\($ADDR\\) at $ADDR
	388	REFCNT = 1
	389	FLAGS = \\(POK,pPOK,UTF8\\)
	390	PV = $ADDR "\\\310\\\200"\\\0 \[UTF8 "\\\x\{200\}"\]
	391	CUR = 2
1badabf5	392	LEN = \\d+');
cdb2dd7b	393	}
98c991d1	394
9248c45a	395	END {
92e5451f	396	1 while unlink("peek$$");
9248c45a	397	}