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

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2007-08-16 11:10:18 +0100 (Thu, 16 Aug 2007)
New Revision: 6670

Added:
   trunk/Catalyst-Engine-Wx/t/lib/TestAppWx/forwarded_view.pm
Modified:
   trunk/Catalyst-Engine-Wx/t/3_wx.t
   trunk/Catalyst-Engine-Wx/t/lib/TestApp/Controller/Root.pm
   trunk/Catalyst-Engine-Wx/t/lib/TestAppWx/shutdown.pm
Log:
The missing view is here and the tests numbers are corrected

Modified: trunk/Catalyst-Engine-Wx/t/3_wx.t
===================================================================
--- trunk/Catalyst-Engine-Wx/t/3_wx.t	2007-08-16 09:52:47 UTC (rev 6669)
+++ trunk/Catalyst-Engine-Wx/t/3_wx.t	2007-08-16 10:10:18 UTC (rev 6670)
@@ -6,7 +6,7 @@
     plan skip_all => 'Wx required for this module' if $@;
 }
 
-plan tests => 8;
+plan tests => 7;
 
 BEGIN { 
     use lib "t/lib/";

Modified: trunk/Catalyst-Engine-Wx/t/lib/TestApp/Controller/Root.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/t/lib/TestApp/Controller/Root.pm	2007-08-16 09:52:47 UTC (rev 6669)
+++ trunk/Catalyst-Engine-Wx/t/lib/TestApp/Controller/Root.pm	2007-08-16 10:10:18 UTC (rev 6670)
@@ -33,6 +33,13 @@
     $c->stash->{class} = 'shutdown'; 
 }
 
+sub shutdown : Local {
+    my ( $self, $c ) = @_;
+    
+
+#    $c->stash->{class} = 'shutdown'; 
+}
+
 sub forward : Local {
     my ( $self, $c ) = @_;
     

Added: trunk/Catalyst-Engine-Wx/t/lib/TestAppWx/forwarded_view.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/t/lib/TestAppWx/forwarded_view.pm	                        (rev 0)
+++ trunk/Catalyst-Engine-Wx/t/lib/TestAppWx/forwarded_view.pm	2007-08-16 10:10:18 UTC (rev 6670)
@@ -0,0 +1,24 @@
+package TestAppWx::forwarded_view;
+
+use strict;
+use warnings;
+
+use Test::More;
+use Wx ':everything';
+use Catalyst::Engine::Wx::Event qw(EVT_BUTTON EVT_CLOSE EVT);
+
+use base 'Wx::Frame';
+
+sub new {
+   my ($class, $catalyst, $c ) = @_;
+
+   my $self = $class->SUPER::new( $c->stash->{_parent}, -1, 'Test', [105,15],[140,30] );
+
+   ok (ref($self) eq 'TestAppWx::forwarded_view', 'TestAppWx::forwarded_view');
+   
+   EVT( $c->stash->{_parent}, '/shutdown' );
+   
+   return 1;
+}
+
+1;


Property changes on: trunk/Catalyst-Engine-Wx/t/lib/TestAppWx/forwarded_view.pm
___________________________________________________________________
Name: svn:keywords
   + "Id Date Revision Author LastChangedDate LastChangedRevision URL HeadURL"
Name: svn:eol-style
   + native

Modified: trunk/Catalyst-Engine-Wx/t/lib/TestAppWx/shutdown.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/t/lib/TestAppWx/shutdown.pm	2007-08-16 09:52:47 UTC (rev 6669)
+++ trunk/Catalyst-Engine-Wx/t/lib/TestAppWx/shutdown.pm	2007-08-16 10:10:18 UTC (rev 6670)
@@ -14,7 +14,7 @@
 
    my $self = $c->stash->{_parent};
    
-   ok (ref($self) eq 'TestAppWx::default', 'TestAppWx::default');
+#   ok (ref($self) eq 'TestAppWx::default', 'TestAppWx::default');
 
    EVT_QUIT;