t/line.t

   1 use strict;
   2 use warnings FATAL => 'all';
   3 use Test::More tests => 2;
   4 use File::Temp qw/tempdir/;
   5 use File::Spec;
   6
   7 use App::FatPacker;
   8
   9 chdir 't/line';
  10
  11 my $fp = App::FatPacker->new;
  12 my $temp_fh = File::Temp->new;
  13 select $temp_fh;
  14 $fp->script_command_file([ 'line-test.pl' ]);
  15 select STDOUT;
  16 close $temp_fh;
  17
  18 # make sure we don't pick up things from our created dir
  19 chdir File::Spec->tmpdir;
  20
  21 # Packed, now try using it. This should run the tests inside t/line/a.pm
  22 do $temp_fh;