This is an automatically generated mail to inform you that tests are now
available in t/spec/S03-operators/series.t
commit 02c2905585bc62ddfe266ef55ae019af0ce646fe
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Wed Jun 30 09:12:23 2010 +0000
[t/spec] tests for RT #72912, .perl on result of series operator
git-svn-id: http://svn.pugscode.org/p...@31509
c213334d-75ef-0310-aa23-eaa082d1ae64
diff --git a/t/spec/S03-operators/series.t b/t/spec/S03-operators/series.t
index 4857333..c3c6c83 100644
--- a/t/spec/S03-operators/series.t
+++ b/t/spec/S03-operators/series.t
@@ -155,6 +155,10 @@ is (1,2,4...*)[10], 1024,
is (4...^5).join(', '), '4, 3, 2, 1, 0, 1, 2, 3, 4',
'geometric series started in one direction and continues in the other with
exclusion';
+lives_ok { (1 ... 5).perl }, 'Can take .perl of series';
+is eval((1 ... 5).perl).join(','), '1,2,3,4,5',
+ 'eval($series.perl) reproduces result list';
+
done_testing;
# vim: ft=perl6
