[haver-commits] r693 - in trunk: . misc/poe-wheel-square/t

[haver]

Author: dylan
Date: 2005-05-21 02:40:15 -0400 (Sat, 21 May 2005)
New Revision: 693

Modified:
   trunk/
   trunk/misc/poe-wheel-square/t/001_plugin.t
   trunk/misc/poe-wheel-square/t/002_loader.t
   trunk/misc/poe-wheel-square/t/003_run.t
Log:
 [EMAIL PROTECTED]:  dylan | 2005-05-21 02:39:50 -0400
 make the tests work.



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:975
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238
   + 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:980
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238

Modified: trunk/misc/poe-wheel-square/t/001_plugin.t
===================================================================
--- trunk/misc/poe-wheel-square/t/001_plugin.t  2005-05-21 06:37:39 UTC (rev 
692)
+++ trunk/misc/poe-wheel-square/t/001_plugin.t  2005-05-21 06:40:15 UTC (rev 
693)
@@ -3,7 +3,7 @@
 use strict;
 use Test::More tests => 4;
 
-my $class = 'POE::Session::Plugin';
+my $class = 'POE::Wheel::Square';
 use_ok($class);
 can_ok($class, 'new');
 

Modified: trunk/misc/poe-wheel-square/t/002_loader.t
===================================================================
--- trunk/misc/poe-wheel-square/t/002_loader.t  2005-05-21 06:37:39 UTC (rev 
692)
+++ trunk/misc/poe-wheel-square/t/002_loader.t  2005-05-21 06:40:15 UTC (rev 
693)
@@ -3,7 +3,7 @@
 use strict;
 use Test::More tests => 4;
 
-my $class = 'POE::Session::Plugin::Loader';
+my $class = 'POE::Wheel::Square::Loader';
 require_ok($class);
 can_ok($class, 'new');
 
@@ -11,10 +11,10 @@
 isa_ok($loader, $class);
 can_ok($loader,
        qw(
-               load_plugin
-               unload_plugin
-               plugins
-               fetch_plugin
-               unload_all_plugins
+               load_wheel
+               unload_wheel
+               wheels
+               fetch_wheel
+               unload_all_wheels
        )
 );

Modified: trunk/misc/poe-wheel-square/t/003_run.t
===================================================================
--- trunk/misc/poe-wheel-square/t/003_run.t     2005-05-21 06:37:39 UTC (rev 
692)
+++ trunk/misc/poe-wheel-square/t/003_run.t     2005-05-21 06:40:15 UTC (rev 
693)
@@ -3,13 +3,13 @@
 use strict;
 use Test::More tests => 7;
 use POE;
-use POE::Session::Plugin;
-use POE::Session::Plugin::Loader;
+use POE::Wheel::Square;
+use POE::Wheel::Square::Loader;
 
 BEGIN {
-       package MyPlugin;
+       package MyWheel;
        use POE;
-       use base 'POE::Session::Plugin';
+       use base 'POE::Wheel::Square';
 
        sub setup {
                my $self = shift;
@@ -58,8 +58,8 @@
 
 sub on_start {
        my ($kernel, $heap) = @_[KERNEL, HEAP];
-       my $loader = new POE::Session::Plugin::Loader;
-       $loader->load_plugin('MyPlugin');
+       my $loader = new POE::Wheel::Square::Loader;
+       $loader->load_wheel('MyWheel');
        $heap->{loader} = $loader;
 
        diag "Starting session";
@@ -75,7 +75,7 @@
 sub on_bye {
        my ($kernel, $heap) = @_[KERNEL, HEAP];
        my $loader = $heap->{loader};
-       my $p = $loader->fetch_plugin('MyPlugin');
+       my $p = $loader->fetch_wheel('MyWheel');
        
        diag "Saying goodbye";
        is($p->{foo}, 3, "Called foo 3 times");
@@ -86,8 +86,8 @@
        $kernel->call($_[SESSION], 'foo');
        is($p->{foo}, 4, "foo is now 4");
        
-       diag "Unloading MyPlugin";
-       $loader->unload_plugin('MyPlugin');
+       diag "Unloading MyWheel";
+       $loader->unload_wheel('MyWheel');
        $kernel->call($_[SESSION], 'foo');
        isnt($p->{foo}, 5, "foo is not 5");
        ok($p->{load}, "on_load was called.");