Changeset 9183

Timestamp:

04/09/08 15:55:08 (5 years ago)

Author:

yappo

Message:

lang/perl/Class-Component: 複数回autoloadされた時のテストを追加

Files:

• lang/perl/Class-Component/trunk/t/16_myclass_autoload_plugin.t (modified) (4 diffs)

lang/perl/Class-Component/trunk/t/16_myclass_autoload_plugin.t

@@ -5 +5 @@
 use lib 't';
 
-use Test::More tests => 6;
+use Test::More tests => 24;
 
 use MyClass;
@@ -13 +13 @@
     $c->load_components('AutoloadPlugin');
     is $c->call('hello'), undef;
+    is $c->run_hook('hello'), undef;
+
     $c->autoload_plugins({ module => 'Hello'}); # hashref.
     is $c->call('hello'), 'hello';
+    is $c->run_hook('hello')->[0], 'hook hello';
+    is scalar(@{ $c->run_hook('hello') }), 1;
+
+    $c->autoload_plugins({ module => 'Hello'}); # hashref.
+    is $c->call('hello'), 'hello';
+    is $c->run_hook('hello')->[0], 'hook hello';
+    is scalar(@{ $c->run_hook('hello') }), 1;
 };
 
@@ -21 +30 @@
     $c->load_components('AutoloadPlugin');
     is $c->call('hello'), undef;
+    is $c->run_hook('hello'), undef;
+
     $c->autoload_plugins('Hello'); # simple string
     is $c->call('hello'), 'hello';
+    is $c->run_hook('hello')->[0], 'hook hello';
+    is scalar(@{ $c->run_hook('hello') }), 1;
+
+    $c->autoload_plugins('Hello'); # simple string
+    is $c->call('hello'), 'hello';
+    is $c->run_hook('hello')->[0], 'hook hello';
+    is scalar(@{ $c->run_hook('hello') }), 1;
 };
 
@@ -29 +47 @@
     $c->load_components('AutoloadPlugin');
     is $c->call('hello'), undef;
+    is $c->run_hook('hello'), undef;
+
     $c->autoload_plugins('+MyClass::Plugin::Hello'); # full path
     is $c->call('hello'), 'hello';
+    is $c->run_hook('hello')->[0], 'hook hello';
+    is scalar(@{ $c->run_hook('hello') }), 1;
+
+    $c->autoload_plugins('+MyClass::Plugin::Hello'); # full path
+    is $c->call('hello'), 'hello';
+    is $c->run_hook('hello')->[0], 'hook hello';
+    is scalar(@{ $c->run_hook('hello') }), 1;
 };