Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fudge S04-declarations/state for niecza

  • Loading branch information...
commit 5d02383553ad4e6282eb6cfcb2661f724f6989e4 1 parent 39ead4f
@sorear sorear authored
Showing with 10 additions and 1 deletion.
  1. +10 −1 S04-declarations/state.t
View
11 S04-declarations/state.t
@@ -65,6 +65,7 @@ plan 38;
}
# state with arrays.
+#?niecza skip "not working"
{
my @bar = 1,2,3;
sub swatest {
@@ -78,6 +79,7 @@ plan 38;
}
# state with arrays.
+#?niecza skip "not working"
{
sub swainit_sub { 1,2,3 }
sub swatest2 {
@@ -116,6 +118,7 @@ plan 38;
# state will first {...}
#?pugs eval "parse error"
#?rakudo skip 'will first { ... }'
+#?niecza skip 'will first { ... }'
{
my ($a, $b);
my $gen = {
@@ -131,6 +134,7 @@ plan 38;
# Return of a reference to a state() var
#?rakudo skip 'references'
+#?niecza skip '\\'
{
my $gen = {
state $svar = 42;
@@ -149,6 +153,7 @@ plan 38;
# L<http://groups.google.de/group/perl.perl6.language/msg/07aefb88f5fc8429>
#?pugs todo 'anonymous state vars'
#?rakudo skip 'references and anonymous state vars'
+#?niecza skip '\\'
{
# XXX -- currently this is parsed as \&state()
my $gen = eval '{ try { \state } }';
@@ -179,6 +184,7 @@ plan 38;
# state() inside regular expressions
#?rakudo skip 'embedded closures in regexen'
+#?niecza skip ':Perl5'
{
my $str = "abc";
@@ -223,6 +229,7 @@ plan 38;
}
# state with multiple explicit calls to clone - a little bit subtle
+#?niecza skip "there is no Sub.clone"
{
my $i = 0;
my $func = { state $x = $i++; $x };
@@ -233,6 +240,7 @@ plan 38;
}
# recursive state with list assignment initialization happens only first time
+#?niecza skip 'Int'
{
my $seensize;
my sub fib (Int $n) {
@@ -246,6 +254,7 @@ plan 38;
# recursive state with [list] assignment initialization happens only first time
#?rakudo skip '@$foo syntax'
+#?niecza skip 'Int'
{
my $seensize;
my sub fib (Int $n) {
@@ -257,7 +266,7 @@ plan 38;
is $seensize, 11, "[list] assignment state in fib memoizes";
}
-
+#?niecza skip 'subset'
{
# now we're just being plain evil:
subset A of Int where { $_ < state $x++ };
Please sign in to comment.
Something went wrong with that request. Please try again.