[Catalyst-commits] r9321 - in trunk/Catalyst-Example-InstantCRUD: lib/Catalyst/Example t

[zby at dev.catalyst.perl.org]

Author: zby
Date: 2009-02-17 21:19:03 +0000 (Tue, 17 Feb 2009)
New Revision: 9321

Modified:
   trunk/Catalyst-Example-InstantCRUD/lib/Catalyst/Example/InstantCRUD.pm
   trunk/Catalyst-Example-InstantCRUD/t/00.createapp.t
   trunk/Catalyst-Example-InstantCRUD/t/20.create_dvdzbr.t
Log:
fix for tests ($^X instead of "perl")

Modified: trunk/Catalyst-Example-InstantCRUD/lib/Catalyst/Example/InstantCRUD.pm
===================================================================
--- trunk/Catalyst-Example-InstantCRUD/lib/Catalyst/Example/InstantCRUD.pm	2009-02-17 18:26:05 UTC (rev 9320)
+++ trunk/Catalyst-Example-InstantCRUD/lib/Catalyst/Example/InstantCRUD.pm	2009-02-17 21:19:03 UTC (rev 9321)
@@ -1,6 +1,6 @@
 package Catalyst::Example::InstantCRUD;
 
-use version; $VERSION = qv('0.0.21');
+use version; $VERSION = qv('0.0.22');
 
 use warnings;
 use strict;

Modified: trunk/Catalyst-Example-InstantCRUD/t/00.createapp.t
===================================================================
--- trunk/Catalyst-Example-InstantCRUD/t/00.createapp.t	2009-02-17 18:26:05 UTC (rev 9320)
+++ trunk/Catalyst-Example-InstantCRUD/t/00.createapp.t	2009-02-17 21:19:03 UTC (rev 9321)
@@ -17,12 +17,12 @@
 my $tmpdir = dir(qw/ t tmp/);
 my $libdir = dir(dir()->parent->parent, 'lib');
 my $instant = file(dir()->parent->parent, 'script', 'instantcrud.pl');
-my $line = "cd $tmpdir; perl -I$libdir ../../script/instantcrud.pl -name=My::App -dsn='dbi:SQLite:dbname=$testfile' -noauth";
+my $line = "cd $tmpdir; $^X -I$libdir ../../script/instantcrud.pl -name=My::App -dsn='dbi:SQLite:dbname=$testfile' -noauth";
 warn $line;
 
 my $currdir = dir()->absolute;
 chdir $tmpdir;
-`perl -I$libdir ../../script/instantcrud.pl -name=My::App -dsn='dbi:SQLite:dbname=$testfile' -noauth`;
+`$^X -I$libdir ../../script/instantcrud.pl -name=My::App -dsn='dbi:SQLite:dbname=$testfile' -noauth`;
 chdir $currdir;
 
 ok( -f file(qw/ t tmp My-App lib My App DBSchema.pm/), 'DBSchema creation');

Modified: trunk/Catalyst-Example-InstantCRUD/t/20.create_dvdzbr.t
===================================================================
--- trunk/Catalyst-Example-InstantCRUD/t/20.create_dvdzbr.t	2009-02-17 18:26:05 UTC (rev 9320)
+++ trunk/Catalyst-Example-InstantCRUD/t/20.create_dvdzbr.t	2009-02-17 21:19:03 UTC (rev 9321)
@@ -15,7 +15,7 @@
 
 copy $origtestfile, $testfile;
 
-`cd t/tmp; perl -I../../lib ../../script/instantcrud.pl -name=$app -dsn='dbi:SQLite:dbname=$testfile'`;
+`cd t/tmp; $^X -I../../lib ../../script/instantcrud.pl -name=$app -dsn='dbi:SQLite:dbname=$testfile'`;
 
 ok( -f "t/tmp/$app/lib/$app/DBSchema.pm", 'DBSchema creation');