[p5sagit/p5-mst-13.2.git] / ext / Test-Simple / t / c_flag.t

#!/usr/bin/perl -w

# Test::More should not print anything when Perl is only doing
# a compile as with the -c flag or B::Deparse or perlcc.

# HARNESS_ACTIVE=1 was causing an error with -c
{
    local $ENV{HARNESS_ACTIVE} = 1;
    local $^C = 1;

    require Test::More;
    Test::More->import(tests => 1);

    fail("This should not show up");
}

Test::More->builder->no_ending(1);

print "1..1\n";
print "ok 1\n";
Commit	Line	Data
82d700dc	1	#!/usr/bin/perl -w
	2
	3	# Test::More should not print anything when Perl is only doing
	4	# a compile as with the -c flag or B::Deparse or perlcc.
	5
	6	# HARNESS_ACTIVE=1 was causing an error with -c
	7	{
	8	local $ENV{HARNESS_ACTIVE} = 1;
	9	local $^C = 1;
	10
	11	require Test::More;
	12	Test::More->import(tests => 1);
	13
	14	fail("This should not show up");
	15	}
	16
	17	Test::More->builder->no_ending(1);
	18
	19	print "1..1\n";
	20	print "ok 1\n";
	21