Guest User

Untitled

a guest
Jun 19th, 2018
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.57 KB | None | 0 0
  1. use strict;
  2. use warnings;
  3.  
  4.  
  5. use FindBin qw/$Bin/;
  6.  
  7. use Test::More tests => 3;
  8.  
  9. my $cat = `which catalyst.pl`;
  10. chomp($cat);
  11. is system("rm -rf $Bin/../TestAppForComparison"), 0 or BAIL_OUT;
  12. is system("cd $Bin/../; $^X -I $Bin/../lib $cat TestAppForComparison"), 0 or BAIL_OUT;
  13.  
  14.  
  15. SKIP: {
  16.  
  17. my $diff;
  18. eval {
  19. $diff = `diff -urN -x .svn -x Changes $Bin/TestAppForComparison $Bin/../TestAppForComparison`;
  20. };
  21.  
  22. skip "no diff program installed, skipping", 1 if $@;
  23.  
  24. ok !length($diff), 'Generated same TestApp', or warn($diff);
  25.  
  26. }
Add Comment
Please, Sign In to add comment