[Catalyst-commits] r10263 - Catalyst-Devel/1.00/branches/helper_refactor/t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-05-24 11:10:12 +0000 (Sun, 24 May 2009)
New Revision: 10263

Added:
   Catalyst-Devel/1.00/branches/helper_refactor/t/check_testapp_the_same.t
Log:
Add script to check that the testapp we generate compares the same

Added: Catalyst-Devel/1.00/branches/helper_refactor/t/check_testapp_the_same.t
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor/t/check_testapp_the_same.t	                        (rev 0)
+++ Catalyst-Devel/1.00/branches/helper_refactor/t/check_testapp_the_same.t	2009-05-24 11:10:12 UTC (rev 10263)
@@ -0,0 +1,15 @@
+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;
+my $diff = `diff -urN -x .svn -x Changes $Bin/TestAppForComparison $Bin/../TestAppForComparison`;
+ok !length($diff), 'Generated same TestApp',
+    or warn($diff);
+