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