7 @INC = qw(: ::lib ::macos:lib);
16 if (($Config::Config{'extensions'} !~ /\bB\b/) ){
17 print "1..0 # Skip -- Perl configured without B module\n";
26 use Test::More tests=>3;
29 my $Is_VMS = $^O eq 'VMS';
30 my $Is_MacOS = $^O eq 'MacOS';
32 my $path = join " ", map { qq["-I$_"] } @INC;
33 my $redir = $Is_MacOS ? "" : "2>&1";
35 $a = `$^X $path "-MO=Debug" -e 1 $redir`;
36 like($a, qr/\bLISTOP\b.*\bOP\b.*\bCOP\b.*\bOP\b/s);
39 $a = `$^X $path "-MO=Terse" -e 1 $redir`;
40 like($a, qr/\bLISTOP\b.*leave.*\n OP\b.*enter.*\n COP\b.*nextstate.*\n OP\b.*null/s);
42 $a = `$^X $path "-MO=Terse" -ane "s/foo/bar/" $redir`;
43 $a =~ s/\(0x[^)]+\)//g;
44 $a =~ s/\[[^\]]+\]//g;
45 $a =~ s/-e syntax OK//;
48 $a =~ s/\b(s|foo|bar|ullsv)\b\s?//g;
51 my $is_thread = $Config{use5005threads} && $Config{use5005threads} eq 'define';
54 leave enter nextstate label leaveloop enterloop null and defined null
55 threadsv readline gv lineseq nextstate aassign null pushmark split pushre
56 threadsv const null pushmark rvav gv nextstate subst const unstack
60 leave enter nextstate label leaveloop enterloop null and defined null
61 null gvsv readline gv lineseq nextstate aassign null pushmark split pushre
62 null gvsv const null pushmark rvav gv nextstate subst const unstack
65 $b=~s/\n/ /g;$b=~s/\s+/ /g;