ext/Test-Simple/t/c_flag.t

   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