7 @INC = qw(: ::lib ::macos:lib);
16 if (($Config::Config{'extensions'} !~ /\bB\b/) ){
17 print "1..0 # Skip -- Perl configured without B module\n";
31 sub ok { print "ok $test\n"; $test++ }
35 my $Is_VMS = $^O eq 'VMS';
36 my $Is_MacOS = $^O eq 'MacOS';
38 my $path = join " ", map { qq["-I$_"] } @INC;
39 my $redir = $Is_MacOS ? "" : "2>&1";
41 $a = `$^X $path "-MO=Debug" -e 1 $redir`;
42 print "not " unless $a =~
43 /\bLISTOP\b.*\bOP\b.*\bCOP\b.*\bOP\b/s;
47 $a = `$^X $path "-MO=Terse" -e 1 $redir`;
48 print "not " unless $a =~
49 /\bLISTOP\b.*leave.*\n OP\b.*enter.*\n COP\b.*nextstate.*\n OP\b.*null/s;
52 $a = `$^X $path "-MO=Terse" -ane "s/foo/bar/" $redir`;
53 $a =~ s/\(0x[^)]+\)//g;
54 $a =~ s/\[[^\]]+\]//g;
55 $a =~ s/-e syntax OK//;
58 $a =~ s/\b(s|foo|bar|ullsv)\b\s?//g;
61 my $is_thread = $Config{use5005threads} && $Config{use5005threads} eq 'define';
64 leave enter nextstate label leaveloop enterloop null and defined null
65 threadsv readline gv lineseq nextstate aassign null pushmark split pushre
66 threadsv const null pushmark rvav gv nextstate subst const unstack
70 leave enter nextstate label leaveloop enterloop null and defined null
71 null gvsv readline gv lineseq nextstate aassign null pushmark split pushre
72 null gvsv const null pushmark rvav gv nextstate subst const unstack
75 $b=~s/\n/ /g;$b=~s/\s+/ /g;
77 print "# [$a]\n# vs\n# [$b]\nnot " if $a ne $b;