t/line.t

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