blob: 02551d09e5e64b273ff7da51cd6d75f6ea8b20e6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/usr/bin/perl -w
# HARNESS-NO-STREAM
# HARNESS-NO-PRELOAD
# 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";
|
