[Catalyst-commits] r7017 - in trunk/Catalyst-Engine-Wx/t: . lib/TestApp/Controller

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2007-10-16 16:06:46 +0100 (Tue, 16 Oct 2007)
New Revision: 7017

Modified:
   trunk/Catalyst-Engine-Wx/t/2_pod.t
   trunk/Catalyst-Engine-Wx/t/3_wx.t
   trunk/Catalyst-Engine-Wx/t/4_forward.t
   trunk/Catalyst-Engine-Wx/t/5_test_kwalitee.t
   trunk/Catalyst-Engine-Wx/t/lib/TestApp/Controller/Root.pm
Log:
Tests are now working without warnings and kwalitee test is run only when $ENV{TEST_AUTHOR} is set.

Modified: trunk/Catalyst-Engine-Wx/t/2_pod.t
===================================================================
--- trunk/Catalyst-Engine-Wx/t/2_pod.t	2007-10-16 14:14:43 UTC (rev 7016)
+++ trunk/Catalyst-Engine-Wx/t/2_pod.t	2007-10-16 15:06:46 UTC (rev 7017)
@@ -1,2 +1,5 @@
-use Test::Pod::Coverage tests=>1;
+use Test::More;
+
+eval "use Test::Pod::Coverage  tests=>1;";
+plan skip_all => "Test::Pod::Coverage required for testing POD coverage !" if $@;
 pod_coverage_ok( "Catalyst::Engine::Wx", ".. is covered" );

Modified: trunk/Catalyst-Engine-Wx/t/3_wx.t
===================================================================
--- trunk/Catalyst-Engine-Wx/t/3_wx.t	2007-10-16 14:14:43 UTC (rev 7016)
+++ trunk/Catalyst-Engine-Wx/t/3_wx.t	2007-10-16 15:06:46 UTC (rev 7017)
@@ -4,6 +4,8 @@
 BEGIN {
     eval { require Wx; };
     plan skip_all => 'Wx required for this module' if $@;
+    eval { require POE; };
+    plan skip_all => 'POE required for this test' if $@;
 }
 
 plan tests => 7;

Modified: trunk/Catalyst-Engine-Wx/t/4_forward.t
===================================================================
--- trunk/Catalyst-Engine-Wx/t/4_forward.t	2007-10-16 14:14:43 UTC (rev 7016)
+++ trunk/Catalyst-Engine-Wx/t/4_forward.t	2007-10-16 15:06:46 UTC (rev 7017)
@@ -4,6 +4,8 @@
 BEGIN {
     eval { require Wx; };
     plan skip_all => 'Wx required for this test' if $@;
+    eval { require POE; };
+    plan skip_all => 'POE required for this test' if $@;
 }
 
 

Modified: trunk/Catalyst-Engine-Wx/t/5_test_kwalitee.t
===================================================================
--- trunk/Catalyst-Engine-Wx/t/5_test_kwalitee.t	2007-10-16 14:14:43 UTC (rev 7016)
+++ trunk/Catalyst-Engine-Wx/t/5_test_kwalitee.t	2007-10-16 15:06:46 UTC (rev 7017)
@@ -1,3 +1,9 @@
 use Test::More;
-eval { require Test::Kwalitee; Test::Kwalitee->import() };
-plan( skip_all => 'Test::Kwalitee not installed; skipping' ) if $@;
+
+if (exists $ENV{TEST_AUTHOR}) {
+   eval { require Test::Kwalitee; Test::Kwalitee->import() };
+   plan( skip_all => 'Test::Kwalitee not installed; skipping' ) if $@;
+}
+else {
+    plan( skip_all => 'Set $ENV{TEST_AUTHOR} to a true value to run.' );
+}

Modified: trunk/Catalyst-Engine-Wx/t/lib/TestApp/Controller/Root.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/t/lib/TestApp/Controller/Root.pm	2007-10-16 14:14:43 UTC (rev 7016)
+++ trunk/Catalyst-Engine-Wx/t/lib/TestApp/Controller/Root.pm	2007-10-16 15:06:46 UTC (rev 7017)
@@ -49,7 +49,11 @@
 }
 
 
-sub end : ActionClass('RenderView') {}
+sub end : Private {
+    my ( $self, $c ) = @_;
 
+    $c->forward('TestApp::View::Wx');
+}
 
+
 1;