Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use strict;
- use warnings;
- use FindBin qw/$Bin/;
- use Test::More tests => 3;
- my $cat = `which catalyst.pl`;
- chomp($cat);
- is system("rm -rf $Bin/../TestAppForComparison"), 0 or BAIL_OUT;
- is system("cd $Bin/../; $^X -I $Bin/../lib $cat TestAppForComparison"), 0 or BAIL_OUT;
- SKIP: {
- my $diff;
- eval {
- $diff = `diff -urN -x .svn -x Changes $Bin/TestAppForComparison $Bin/../TestAppForComparison`;
- };
- skip "no diff program installed, skipping", 1 if $@;
- ok !length($diff), 'Generated same TestApp', or warn($diff);
- }
Add Comment
Please, Sign In to add comment