[Catalyst-commits] r12956 - in Catalyst-Helper-AuthDBIC/trunk: . lib/Catalyst/Helper t

zarquon at dev.catalyst.perl.org zarquon at dev.catalyst.perl.org
Sun Feb 21 01:45:18 GMT 2010


Author: zarquon
Date: 2010-02-21 01:45:17 +0000 (Sun, 21 Feb 2010)
New Revision: 12956

Modified:
   Catalyst-Helper-AuthDBIC/trunk/Changes
   Catalyst-Helper-AuthDBIC/trunk/lib/Catalyst/Helper/AuthDBIC.pm
   Catalyst-Helper-AuthDBIC/trunk/t/02-usage.t
   Catalyst-Helper-AuthDBIC/trunk/t/live-test.t
Log:
changes for version 0.12

Modified: Catalyst-Helper-AuthDBIC/trunk/Changes
===================================================================
--- Catalyst-Helper-AuthDBIC/trunk/Changes	2010-02-20 22:38:50 UTC (rev 12955)
+++ Catalyst-Helper-AuthDBIC/trunk/Changes	2010-02-21 01:45:17 UTC (rev 12956)
@@ -1,3 +1,6 @@
+0.12 Feb 20 2010
+     - applied patch from RT #47226 thanks to kmx
+     - apply patch from RT #54533 thanks to alfston pinto
      - update for DBIx::Class::Schema::Loader 0.05
 0.11 Jan 31 2010
      - Add parent.pm to dependencies.

Modified: Catalyst-Helper-AuthDBIC/trunk/lib/Catalyst/Helper/AuthDBIC.pm
===================================================================
--- Catalyst-Helper-AuthDBIC/trunk/lib/Catalyst/Helper/AuthDBIC.pm	2010-02-20 22:38:50 UTC (rev 12955)
+++ Catalyst-Helper-AuthDBIC/trunk/lib/Catalyst/Helper/AuthDBIC.pm	2010-02-21 01:45:17 UTC (rev 12956)
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use Catalyst::Helper;
-our $VERSION = '0.11';
+our $VERSION = '0.12';
 use Carp;
 use DBI;
 use DBIx::Class::Schema::Loader qw/ make_schema_at /;

Modified: Catalyst-Helper-AuthDBIC/trunk/t/02-usage.t
===================================================================
--- Catalyst-Helper-AuthDBIC/trunk/t/02-usage.t	2010-02-20 22:38:50 UTC (rev 12955)
+++ Catalyst-Helper-AuthDBIC/trunk/t/02-usage.t	2010-02-21 01:45:17 UTC (rev 12956)
@@ -8,17 +8,17 @@
 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';
 
 my $scratch = Directory::Scratch->new();
 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';
 

Modified: Catalyst-Helper-AuthDBIC/trunk/t/live-test.t
===================================================================
--- Catalyst-Helper-AuthDBIC/trunk/t/live-test.t	2010-02-20 22:38:50 UTC (rev 12955)
+++ Catalyst-Helper-AuthDBIC/trunk/t/live-test.t	2010-02-21 01:45:17 UTC (rev 12956)
@@ -2,15 +2,13 @@
 
 use strict;
 use warnings;
-use Test::More;
+use Test::More tests => 3;
 
 BEGIN {
     eval { require Test::WWW::Mechanize::Catalyst }
     or plan skip_all => 'Need Test::WWW::Mechanize::Catalyst to run this test';
 }
 
-plan tests => 3;
-
 # setup library path
 use FindBin qw($Bin);
 use lib "$Bin/lib";




More information about the Catalyst-commits mailing list