Permalink
Browse files

fudge and unfudge tests for rakudo

also switches to planless testing in S32-num/stringify.t, because
functions that run several tests are hard to fudge.
  • Loading branch information...
1 parent ee9b043 commit fdb47197c0efe011f4a1e3852c5155aa679b7b69 @moritz moritz committed Mar 13, 2013
Showing with 4 additions and 5 deletions.
  1. +0 −1 S03-junctions/autothreading.t
  2. +0 −2 S03-junctions/misc.t
  3. +4 −2 S32-num/stringify.t
@@ -334,7 +334,6 @@ plan 89;
# into:
# all( any( tp("dog", 1, 10), tp("dog", 2, 10),
# any( tp("dog", 1, 20), tp("dog", 2, 20)))
- #?rakudo todo 'junction autothreading order'
is $res.Str, q{all(any("dog 1 10", "dog 2 10"), any("dog 1 20", "dog 2 20"))}, "an & junction right of a | junction will be autothreaded first";
$res = tp("foo"&"bar", 1|2, 0);
View
@@ -67,7 +67,6 @@ sub jok(Mu $condition, $msg?) { ok ?($condition), $msg };
# test junction to junction
- #?rakudo todo 'nom regression'
jok(('a' | 'b' | 'c') eq ($a & $b & $c), 'junction ("a" | "b" | "c") matches junction ($a & $b & $c)');
jok(('a' & 'b' & 'c') eq ($a | $b | $c), 'junction ("a" & "b" & "c") matches junction ($a | $b | $c)');
@@ -166,7 +165,6 @@ sub j (Mu $j) { return $j.perl }
$got = ((1|2) + (3&4));
$want = ((4|5) & (5|6));
- #?rakudo todo 'nom regression'
is( j($got), j($want), 'thread + returning junctive combination of results');
# L<S03/Junctive operators/This opens doors for constructions like>
View
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan 115;
+plan *;
# L<S32::Numeric/Complex/"=item gist">
@@ -57,7 +57,6 @@ sub Rat_str_test($value, $str_nucleus, $str, $perl = $str) {
is $value.Str, $str, "<$str_nucleus>.Str";
#?pugs skip '.gist'
is $value.gist, $str, "<$str_nucleus>.gist";
- #?rakudo todo 'Rat.perl'
#?pugs todo
is $value.perl, $perl, "<$str_nucleus>.perl";
@@ -76,11 +75,13 @@ Rat_str_test 1/1, '1/1', '1', '1.0';
Rat_str_test 13/39, '1/3', '0.333333', '<1/3>';
Rat_str_test 1000001/10000, '1000001/10000', '100.0001';
Rat_str_test -1000001/10000, '-1000001/10000', '-100.0001';
+#?rakudo skip 'big stuff'
Rat_str_test 555555555555555555555555555555555555555555555/5,
'555555555555555555555555555555555555555555555/5',
'111111111111111111111111111111111111111111111',
'111111111111111111111111111111111111111111111.0';
# Bignum sanity
+#?rakudo skip 'big stuff'
Rat_str_test (4.5 ** 60),
'1797010299914431210413179829509605039731475627537851106401/1152921504606846976',
'1558657976916843360832062017400788597510.058834953945635510598466400011830046423710882663726806640625';
@@ -95,3 +96,4 @@ lives_ok { Rat.Str }, 'Rat.Str does not die';
# TODO: FatRat, Num (once better specced), Int (maybe, but hard to mess up)
# vim: ft=perl6
+done;

0 comments on commit fdb4719

Please sign in to comment.