#!perl -T
use 5.008;
use strict;
use warnings;
use Test::More;
use Test::Script;
my $num_tests = 0;
my $infile = "abc.pl";
ok(-f $infile, "test file exists ($infile)."); $num_tests++;
ok(-s $infile, "test file has content ($infile)."); $num_tests++;
script_compiles($infile); $num_tests++;
script_runs([$infile, '-i', $infile]); $num_tests++;
script_stderr_is('', "stderr checked."); $num_tests++;

done_testing($num_tests);