Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Cannot do .perl on the result of an infix:<...> in Rakudo #1519

Closed
p6rt opened this issue Feb 18, 2010 · 5 comments
Closed

Cannot do .perl on the result of an infix:<...> in Rakudo #1519

p6rt opened this issue Feb 18, 2010 · 5 comments
Labels

Comments

@p6rt
Copy link

p6rt commented Feb 18, 2010

Migrated from rt.perl.org#72912 (status was 'resolved')

Searchable as RT72912$

@p6rt
Copy link
Author

p6rt commented Feb 18, 2010

From @masak

<masak> rakudo​: say (4...^5).perl
<p6eval> rakudo 5d43a3​: OUTPUT«Method 'perl' not found for invocant of
class 'GatherIterator' [...]
<masak> ooh!
* masak submits rakudobug
<masak> rakudo​: (1...2).perl
<p6eval> rakudo 5d43a3​: OUTPUT«Method 'perl' not found for invocant of
class 'GatherIterator'

@p6rt
Copy link
Author

p6rt commented Jun 28, 2010

From @bbkr

On Kiev build​:

$ perl6 -e 'say (4...^5).perl'
((4, 3, 2, 1, 0), [1, 2, 3, 4])
$ perl6 -e 'say (1...2).perl'
(1, 2)

I'm not sure if first output is correct - ".perl" method is not well
described in spec.

Should this be tested & closed?

@p6rt
Copy link
Author

p6rt commented Jun 28, 2010

The RT System itself - Status changed from 'new' to 'open'

@p6rt
Copy link
Author

p6rt commented Jun 30, 2010

From @kyleha

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 <moritz@​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/pugs@&#8203;31509 c213334d-75ef-0310-aa23-eaa082d1ae64

Inline Patch
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

@p6rt
Copy link
Author

p6rt commented Jun 30, 2010

@moritz - Status changed from 'open' to 'resolved'

@p6rt p6rt closed this as completed Jun 30, 2010
@p6rt p6rt added the Bug label Jan 5, 2020
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
Projects
None yet
Development

No branches or pull requests

1 participant