Changeset 25088 for lang/perl/Shika/trunk/t/010_core/04_handles.t

Timestamp:

11/27/08 14:39:03 (4 years ago)

Author:

tokuhirom

Message:

handles に scalar もわたせるようにした

Files:

• lang/perl/Shika/trunk/t/010_core/04_handles.t (modified) (3 diffs)

lang/perl/Shika/trunk/t/010_core/04_handles.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 1;
+use Test::More tests => 2;
 
 {
@@ -14 +14 @@
 
 {
-    package Foo;
+    package Foo1;
     use Shika;
     has bar => (
@@ -21 +21 @@
 }
 
-my $f = Foo->new(bar => Bar->new());
-is $f->yay('hoge', 'fuga'), 'yay hoge, fuga';
+{
+    package Foo2;
+    use Shika;
+    has bar => (
+        handles => 'yay',
+    );
+}
 
+{
+    my $f = Foo1->new(bar => Bar->new());
+    is $f->yay('hoge', 'fuga'), 'yay hoge, fuga';
+}
+
+{
+    my $f = Foo2->new(bar => Bar->new());
+    is $f->yay('hoge', 'fuga'), 'yay hoge, fuga';
+}
+