Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fudge (skip) dying tests for JVM
  • Loading branch information
@usev6
usev6 committed Dec 13, 2015
1 parent d2bc215 commit 0588402
Showing 1 changed file with 13 additions and 0 deletions.
13 changes: 13 additions & 0 deletions S03-metaops/reduce.t
View file
Expand Up @@ -334,6 +334,7 @@ is( ([min] Any, Any, 2), 2, '[min] Any, Any, 2 returns 2');
is (join ', ', [\//] Any, 0, 1),
(join ', ', Any, 0, 0),
'[\orelse]';
#?rakudo.jvm skip "RT #126899 - Method 'orig'1 not found for invocant of class 'QAST::Op'"
is (join ', ', [\orelse] Any, 0, 1),
(join ', ', Any, 0, 0),
'[\orelse]';
Expand Down Expand Up @@ -488,24 +489,28 @@ is prefix:<[**]>(2,3,4), 2417851639229258349412352, "Reduce ** can autogen witho
is ([^^] 0, 0, $side-effect++), 0, "[^^] produces correct result with thunk";
is $side-effect, 1, "and does have a side effect";

#?rakudo.jvm 4 skip "RT #126899 - Method 'orig'1 not found for invocant of class 'QAST::Op'"
$side-effect = 0;
is ([andthen] Int, ++$side-effect).perl, '()', "[andthen] produces correct result without thunk";
is $side-effect, 0, "and doesn't have a side effect";
is ([andthen] 1, ++$side-effect), 1, "[andthen] produces correct result with thunk";
is $side-effect, 1, "and does have a side effect";

#?rakudo.jvm 4 skip "RT #126899 - Method 'orig'1 not found for invocant of class 'QAST::Op'"
$side-effect = 0;
is ([andthen] 1,1,1,Any,++$side-effect).perl, '()', "[andthen] on long list produces correct result without thunk";
is $side-effect, 0, "and doesn't have a side effect";
is ([andthen] 1,1,1,1,++$side-effect), 1, "[andthen] on long list produces correct result with thunk";
is $side-effect, 1, "and does have a side effect";

#?rakudo.jvm 4 skip "RT #126899 - Method 'orig'1 not found for invocant of class 'QAST::Op'"
$side-effect = 0;
is ([orelse] 2, ++$side-effect), 2, "[orelse] produces correct result without thunk";
is $side-effect, 0, "and doesn't have a side effect";
is ([orelse] Cool, ++$side-effect), 1, "[orelse] produces correct result with thunk";
is $side-effect, 1, "and does have a side effect";

#?rakudo.jvm 4 skip "RT #126899 - Method 'orig'1 not found for invocant of class 'QAST::Op'"
$side-effect = 0;
is ([orelse] Nil,Int,Num,2,++$side-effect), 2, "[orelse] on long list produces correct result without thunk";
is $side-effect, 0, "and doesn't have a side effect";
Expand Down Expand Up @@ -585,6 +590,7 @@ is prefix:<[**]>(2,3,4), 2417851639229258349412352, "Reduce ** can autogen witho
is $side-effect, 1, "and does have a side effect";

$side-effect = 0;
#?rakudo.jvm 2 skip 'RT #126493 - expected Positional but got Seq'
is-deeply ([\xor] 1, 1, ++$side-effect), (1,Nil,Nil), "[\\xor] produces correct result without thunk";
is $side-effect, 0, "and doesn't have a side effect";

Expand All @@ -593,6 +599,7 @@ is prefix:<[**]>(2,3,4), 2417851639229258349412352, "Reduce ** can autogen witho
is $side-effect, 1, "and does have a side effect";

$side-effect = 0;
#?rakudo.jvm 2 skip 'RT #126493 - expected Positional but got Seq'
is-deeply ([\xor] 0, 1, ++$side-effect), (0,1,Nil), "[\\xor] produces correct result with thunk";
is $side-effect, 1, "and does have a side effect";

Expand All @@ -601,6 +608,7 @@ is prefix:<[**]>(2,3,4), 2417851639229258349412352, "Reduce ** can autogen witho
is $side-effect, 1, "and does have a side effect";

$side-effect = 0;
#?rakudo.jvm 2 skip 'RT #126493 - expected Positional but got Seq'
is-deeply ([\^^] 1, 1, ++$side-effect), (1,Nil,Nil), "[\\^^] produces correct result without thunk";
is $side-effect, 0, "and doesn't have a side effect";

Expand All @@ -609,32 +617,37 @@ is prefix:<[**]>(2,3,4), 2417851639229258349412352, "Reduce ** can autogen witho
is $side-effect, 1, "and does have a side effect";

$side-effect = 0;
#?rakudo.jvm 2 skip 'RT #126493 - expected Positional but got Seq'
is-deeply ([\^^] 0, 1, ++$side-effect), (0,1,Nil), "[\\^^] produces correct result with thunk";
is $side-effect, 1, "and does have a side effect";

$side-effect = 0;
is ([\^^] 0, 0, $side-effect++), '0 0 0', "[\\^^] produces correct result with thunk";
is $side-effect, 1, "and does have a side effect";

#?rakudo.jvm 4 skip "RT #126899 - Method 'orig'1 not found for invocant of class 'QAST::Op'"
$side-effect = 0;
is ([\andthen] Int, ++$side-effect).gist, '((Int))', "[\\andthen] produces correct result without thunk";
is $side-effect, 0, "and doesn't have a side effect";
is ([\andthen] 1, ++$side-effect), '1 1', "[\\andthen] produces correct result with thunk";
is $side-effect, 1, "and does have a side effect";

#?rakudo.jvm 4 skip "RT #126899 - Method 'orig'1 not found for invocant of class 'QAST::Op'"
$side-effect = 0;
is ([\andthen] 1,1,1,Any,++$side-effect).gist, '(1 1 1 (Any))', "[\\andthen] on long list produces correct result without thunk";
is $side-effect, 0, "and doesn't have a side effect";
is ([\andthen] 1,1,1,1,++$side-effect), '1 1 1 1 1', "[\\andthen] on long list produces correct result with thunk";
is $side-effect, 1, "and does have a side effect";

#?rakudo.jvm 4 skip "RT #126899 - Method 'orig'1 not found for invocant of class 'QAST::Op'"
$side-effect = 0;
is ([\orelse] 2, ++$side-effect).gist, '(2 2)', "[\\orelse] produces correct result without thunk";
is $side-effect, 0, "and doesn't have a side effect";
is ([\orelse] Cool, ++$side-effect).gist, '((Cool) 1)', "[\\orelse] produces correct result with thunk";
is $side-effect, 1, "and does have a side effect";

$side-effect = 0;
#?rakudo.jvm 4 skip "RT #126899 - Method 'orig'1 not found for invocant of class 'QAST::Op'"
is ([\orelse] Nil,Int,Num,2,++$side-effect).gist, '((Any) (Int) (Num) 2 2)', "[\\orelse] on long list produces correct result without thunk";
is $side-effect, 0, "and doesn't have a side effect";
is ([\orelse] Nil,Failure,Cool,Complex,++$side-effect).gist, '((Any) (Failure) (Cool) (Complex) 1)', "[\\orelse] on long list produces correct result with thunk";
Expand Down

0 comments on commit 0588402

Please sign in to comment.