Mini Shell
Mini Shell
| Direktori : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Test-Simple-1.302141/t/Legacy/ |
| Current File : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Test-Simple-1.302141/t/Legacy/c_flag.t |
#!/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";