[p5sagit/p5-mst-13.2.git] / ext / re / t / qr.t

#!./perl

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

use Test::More tests => 1;
use re 'Debug';
isa_ok( qr//, "Regexp" );
Commit	Line	Data
192b9cd1	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	require Config;
	7	if (($Config::Config{'extensions'} !~ /\bre\b/) ){
	8	print "1..0 # Skip -- Perl configured without re module\n";
	9	exit 0;
	10	}
	11	}
	12
	13	use Test::More tests => 1;
	14	use re 'Debug';
	15	isa_ok( qr//, "Regexp" );