Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
lexical_debug.pl	353 B	-r--r--r--	2014-12-27 11:48
lexical_debug.t	1.15 KB	-r--r--r--	2014-12-27 11:48
qr.t	241 B	-r--r--r--	2014-12-27 11:48
re.t	2.05 KB	-r--r--r--	2014-12-27 11:48
re_funcs.t	899 B	-r--r--r--	2014-12-27 11:48
re_funcs_u.t	4.1 KB	-r--r--r--	2014-12-27 11:49
reflags.t	4.55 KB	-r--r--r--	2014-12-27 11:49
regop.pl	689 B	-r--r--r--	2014-12-27 11:49
regop.t	8.76 KB	-r--r--r--	2014-12-27 11:49

Rename

#!./perl

BEGIN {
    require Config;
    if (($Config::Config{'extensions'} !~ /\bre\b/) ){
	print "1..0 # Skip -- Perl configured without re module\n";
	exit 0;
    }
}

use strict;

# must use a BEGIN or the prototypes wont be respected meaning 
    # tests could pass that shouldn't
BEGIN { require "../../t/test.pl"; }
my $out = runperl(progfile => "t/lexical_debug.pl", stderr => 1 );

print "1..10\n";

# Each pattern will produce an EXACT node with a specific string in 
# it, so we will look for that. We can't just look for the string
# alone as the string being matched against contains all of them.

ok( $out =~ /EXACT <foo>/, "Expect 'foo'"    );
ok( $out !~ /EXACT <bar>/, "No 'bar'"        );
ok( $out =~ /EXACT <baz>/, "Expect 'baz'"    );
ok( $out !~ /EXACT <bop>/, "No 'bop'"        );
ok( $out =~ /EXACT <fip>/, "Expect 'fip'"    );
ok( $out !~ /EXACT <fop>/, "No 'baz'"        );
ok( $out =~ /<liz>/,       "Got 'liz'"       ); # in a TRIE so no EXACT
ok( $out =~ /<zoo>/,       "Got 'zoo'"       ); # in a TRIE so no EXACT
ok( $out =~ /<zap>/,       "Got 'zap'"       ); # in a TRIE so no EXACT
ok( $out =~ /Count=7\n/,   "Count is 7") 
    or diag($out);