| Subject: | Win32 compatibility patch for 02-usage.t |
| Date: | Mon, 22 Jun 2009 08:30:39 +0200 |
| To: | bug-Catalyst-Helper-AuthDBIC [...] rt.cpan.org |
| From: | kmx <kmx [...] volny.cz> |
Hi,
please find enclosed patch that makes you module smoothly installable on
Win32
There are basically two issues:
1) obviously there is nothing like /usr/bin/env on Win32
2) the script for creating catalyst application "catalyst.pl" has to be
called on Win32 as only "catalyst"
Current trunk version with enclosed patch seems to install and work fine
on Win32.
--
kmx
Index: t/02-usage.t
===================================================================
--- t/02-usage.t (revision 10611)
+++ t/02-usage.t (working copy)
@@ -8,6 +8,7 @@
use Path::Class;
use FindBin qw/$Bin/;
my $bootstrap = "$Bin/../script/auth_bootstrap.pl";
+my $catscript = ($^O eq "MSWin32") ? "catalyst" : "catalyst.pl";
use ok 'Catalyst::Helper::AuthDBIC';
@@ -15,10 +16,10 @@
my $wdir = Path::Class::Dir->new($scratch);
chdir $wdir;
-exit_is_num ( 'catalyst.pl Test::App', 0 , 'test app');
+exit_is_num ( "$catscript Test::App", 0 , 'test app');
ok(chdir 'Test-App');
-exit_is_num ("/usr/bin/env perl $bootstrap -credential http", 0, 'auth
bootstrap');
-exit_is_num( "/usr/bin/env perl script/test_app_auth_admin.pl -user
fred -password wilma", 0 , "created user");
+exit_is_num ("$^X $bootstrap -credential http", 0, 'auth bootstrap');
+exit_is_num ("$^X script/test_app_auth_admin.pl -user fred -password
wilma", 0 , "created user");
my $controller = <<'EOF';