Generate absolute #line for the packed modules

[p5sagit/App-FatPacker.git] / t / line.t

diff --git a/t/line.t b/t/line.t
new file mode 100644 (file)
index 0000000..ac1f7b4
--- /dev/null
+++ b/t/line.t
@@ -0,0 +1,23 @@
+#!perl
+use strict;
+use warnings FATAL => 'all';
+use Test::More tests => 3;
+use File::Temp qw/tempdir/;
+use File::Spec;
+
+BEGIN { use_ok "App::FatPacker", "" }
+
+chdir 't/line';
+
+my $fp = App::FatPacker->new;
+my $temp_fh = File::Temp->new;
+select $temp_fh;
+$fp->script_command_file([ 'line-test.pl' ]);
+select STDOUT;
+close $temp_fh;
+
+# make sure we don't pick up things from our created dir
+chdir File::Spec->tmpdir;
+
+# Packed, now try using it. This should run the tests inside t/line/a.pm
+do $temp_fh;