[p5sagit/p5-mst-13.2.git] / lib / CGI / t / switch.t

#!/usr/local/bin/perl -w

BEGIN {
	chdir 't' if -d 't';
	if ($ENV{PERL_CORE}) {
		@INC = '../lib';
	} else {
		# Due to a bug in older versions of MakeMaker & Test::Harness, we must
		# ensure the blib's are in @INC, else we might use the core CGI.pm
		unshift @INC, qw( ../blib/lib  ../blib/arch lib );
	}
}

use strict;
use Test::More tests => 1;

# Can't do much with this other than make sure it loads properly
BEGIN { use_ok('CGI::Switch') };
Commit	Line	Data
2447c5f5	1	#!/usr/local/bin/perl -w
2447c5f5	2
f0c07f2e	3	BEGIN {
	4	chdir 't' if -d 't';
	5	if ($ENV{PERL_CORE}) {
	6	@INC = '../lib';
	7	} else {
	8	# Due to a bug in older versions of MakeMaker & Test::Harness, we must
	9	# ensure the blib's are in @INC, else we might use the core CGI.pm
	10	unshift @INC, qw( ../blib/lib ../blib/arch lib );
	11	}
	12	}
ac734d8b	13
2447c5f5	14	use strict;
	15	use Test::More tests => 1;
	16
	17	# Can't do much with this other than make sure it loads properly
	18	BEGIN { use_ok('CGI::Switch') };