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

((1,2) xx *) partly works only after referencing [*-1] #980

Closed
p6rt opened this issue May 7, 2009 · 8 comments
Closed

((1,2) xx *) partly works only after referencing [*-1] #980

p6rt opened this issue May 7, 2009 · 8 comments

Comments

@p6rt
Copy link

p6rt commented May 7, 2009

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

Searchable as RT65482$

@p6rt
Copy link
Author

p6rt commented May 7, 2009

From not.com@gmail.com

$ perl6

say (0,0,0,0,0,0) >>+>> ((1,2) xx *)
Use of uninitialized value
Use of uninitialized value
Use of uninitialized value
Use of uninitialized value
Use of uninitialized value
Use of uninitialized value
Use of uninitialized value
000000
my @​x=(9); say @​x[*-1]; say (0,0,0,0,0,0) >>+>> ((1,2) xx *)
9
122222
my @​x=(7,8); say @​x[*-1]; say (0,0,0,0,0,0) >>+>> ((1,2) xx *)
8
121222
my @​x=(4,5,6); say @​x[*-1]; say (0,0,0,0,0,0) >>+>> ((1,2) xx *)
6
121212

$ perl6 -v
This is Rakudo Perl 6, revision 38505 built on parrot 1.1.0-devel
for OpenBSD.i386-openbsd-thread-multi.

@p6rt
Copy link
Author

p6rt commented Oct 11, 2009

From @kyleha

This is an automatically generated mail to inform you that tests are now available in t/spec/S02-builtin_data_types/whatever.t

commit 18e190b9d24f2e3a65293db5821631447b06b6bd
Author​: kyle <kyle@​c213334d-75ef-0310-aa23-eaa082d1ae64>
Date​: Sun Oct 11 22​:25​:40 2009 +0000

  [t/spec] Test for RT 65482
 
  git-svn-id​: http://svn.pugscode.org/pugs@&#8203;28763 c213334d-75ef-0310-aa23-eaa082d1ae64

Inline Patch
diff --git a/t/spec/S02-builtin_data_types/whatever.t b/t/spec/S02-builtin_data_types/whatever.t
index a7f3de5..256cb3b 100644
--- a/t/spec/S02-builtin_data_types/whatever.t
+++ b/t/spec/S02-builtin_data_types/whatever.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 24;
+plan *;
 
 # L<S02/Built-In Data Types/"The * character as a standalone term captures the notion of">
 # L<S02/Native types/"If any native type is explicitly initialized to">
@@ -89,4 +89,9 @@ is @a, [1,2,3,4], '*.meth created closure works';
     is $c(-3), 6, '... that respects precdence';
 }
 
+#?rakudo todo 'RT 65482'
+is (0,0,0,0,0,0) >>+>> ((1,2) xx *), <1 2 1 2 1 2>, 'xx * works';
+
+done_testing;
+
 # vim: ft=perl6

@p6rt
Copy link
Author

p6rt commented Oct 11, 2009

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

@p6rt
Copy link
Author

p6rt commented Jul 27, 2010

From @bbkr

on Atlanta build it goes into infinite loop

@p6rt
Copy link
Author

p6rt commented Sep 14, 2011

From @jnthn

On Thu May 07 12​:24​:53 2009, not.com@​gmail.com wrote​:

$ perl6

say (0,0,0,0,0,0) >>+>> ((1,2) xx *)
Use of uninitialized value
Use of uninitialized value
Use of uninitialized value
Use of uninitialized value
Use of uninitialized value
Use of uninitialized value
Use of uninitialized value
000000

Now​:

say (0,0,0,0,0,0) >>+>> ((1,2) xx *)
1 2 1 2 1 2

Just needs test to close.

/jnthn

@p6rt
Copy link
Author

p6rt commented Sep 14, 2011

From @tadzik

On Wed Sep 14 14​:00​:30 2011, jnthn@​jnthn.net wrote​:

Just needs test to close.

Tests are already added to that one, it's just that Rakudo does not run
that test file yet.

@p6rt
Copy link
Author

p6rt commented Sep 18, 2011

From @moritz

Tests pass now, nom seems to properly implement both infinite lists and
xx *.

@p6rt
Copy link
Author

p6rt commented Sep 18, 2011

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

@p6rt p6rt closed this as completed Sep 18, 2011
@p6rt p6rt added the testneeded label Jan 5, 2020
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Development

No branches or pull requests

1 participant