use strict;
use warnings;
use Test::Builder::Tester tests => 5;
use Test::More;
use Test::Script;
use File::Spec::Functions ':ALL';

# Until CPAN #14389 is fixed, create a false HARNESS_ACTIVE value
# if it doesn't exists to prevent a warning in test_test.
$ENV{HARNESS_ACTIVE} ||= 0;

my $bad = catfile('t', 'bin', 'bad.pl');
my $qbad = quotemeta($bad);
ok( -f $bad, 'Found bad script' );





#####################################################################
# Main Testing

SCOPE: {
  # Run a test for a known-bad program
  test_out("not ok 1 - Script t/bin/bad.pl compiles");
  test_fail(+3);
  test_err(qr{# \d+ - (?:Using.*\n# )?Bad at $qbad line 4\.\n});
  test_err("# BEGIN failed--compilation aborted at $bad line 5.");
  my $rv = script_compiles('t/bin/bad.pl');
  test_test('Bad script returns false');
  is( $rv, '', 'script_compiles returns false as a convenience' );
}

SCOPE: {
  # Repeat with a custom message
  test_out("not ok 1 - It worked");
  test_fail(+3);
  test_err(qr{# \d+ - (?:Using.*\n# )?Bad at $qbad line 4.\n});
  test_err("# BEGIN failed--compilation aborted at $bad line 5.");
  my $rv = script_compiles('t/bin/bad.pl', 'It worked');
  test_test('Bad script returns false');
  is( $rv, '', 'script_compiles returns false as a convenience' );
}