7 if (($Config::Config{'extensions'} !~ /\bre\b/) ){
8 print "1..0 # Skip -- Perl configured without re module\n";
15 # must use a BEGIN or the prototypes wont be respected meaning
16 # tests could pass that shouldn't
17 BEGIN { require "./test.pl"; }
18 my $out = runperl(progfile => "../ext/re/t/lexical_debug.pl", stderr => 1 );
22 # Each pattern will produce an EXACT node with a specific string in
23 # it, so we will look for that. We can't just look for the string
24 # alone as the string being matched against contains all of them.
26 ok( $out =~ /EXACT <foo>/, "Expect 'foo'" );
27 ok( $out !~ /EXACT <bar>/, "No 'bar'" );
28 ok( $out =~ /EXACT <baz>/, "Expect 'baz'" );
29 ok( $out !~ /EXACT <bop>/, "No 'bop'" );
30 ok( $out =~ /EXACT <fip>/, "Expect 'fip'" );
31 ok( $out !~ /EXACT <fop>/, "No 'baz'" );
32 ok( $out =~ /<zil>/, "Got 'zil'" ); # in a TRIE so no EXACT
33 ok( $out =~ /<zoo>/, "Got 'zoo'" ); # in a TRIE so no EXACT
34 ok( $out =~ /<zap>/, "Got 'zap'" ); # in a TRIE so no EXACT
35 ok( $out =~ /Count=7\n/, "Count is 7")