Remove unneeded 'use' from ext/XS-APItest/t/peep.t Devel::Peek is not used by ext...
[perl.git] / ext / XS-APItest / t / peep.t
1 #!perl
2
3 use strict;
4 use warnings;
5 use Test::More tests => 9;
6
7 use XS::APItest;
8
9 my $record = XS::APItest::peep_record;
10 my $rrecord = XS::APItest::rpeep_record;
11
12 # our peep got called and remembered the string constant
13 XS::APItest::peep_enable;
14 eval q[my $foo = q/affe/];
15 XS::APItest::peep_disable;
16
17 is(scalar @{ $record }, 1);
18 is(scalar @{ $rrecord }, 1);
19 is($record->[0], 'affe');
20 is($rrecord->[0], 'affe');
21
22
23 # peep got called for each root op of the branch
24 $::moo = $::moo = 0;
25 XS::APItest::peep_enable;
26 eval q[my $foo = $::moo ? q/x/ : q/y/];
27 XS::APItest::peep_disable;
28
29 is(scalar @{ $record }, 1);
30 is(scalar @{ $rrecord }, 2);
31 is($record->[0], 'y');
32 is($rrecord->[0], 'x');
33 is($rrecord->[1], 'y');