Changeset 31480 for lang/perl/Attribute-Generator/trunk/t/01_basic.t

Timestamp:

03/24/09 04:49:29 (4 years ago)

Author:

rintaro

Message:

Checking in changes prior to tagging of version 0.02. Changelog diff is:

Index: Changes
===================================================================
--- Changes (リビジョン 22705)
+++ Changes (作業コピー)
@@ -1,4 +1,8 @@

Revision history for Perl extension Attribute::Generator

+0.02 Tue Mar 24 04:25:23 2009
+ - Release on CPAN
+ - Requires Coro 4.91
+

0.01 Tue Nov 4 04:16:32 2008

- - original version
+ - original version ( not released on CPAN )

Files:

• lang/perl/Attribute-Generator/trunk/t/01_basic.t (modified) (2 diffs)

lang/perl/Attribute-Generator/trunk/t/01_basic.t

@@ -25 +25 @@
 }
 
+sub gen_list :Generator {
+    yield 1,2,3;
+    yield 5,6;
+}
 
 { # Basic
@@ -75 +79 @@
 }
 
+{ # yield list
+    my $gen = gen_list();
+    is_deeply([$gen->next], [1,2,3]);
+    is_deeply([$gen->next], [5,6]);
+}
+
 1;