Permalink
Browse files

remove some tests that rely on numifying non-numbers

  • Loading branch information...
1 parent 2454421 commit 32d960dd6949ca7ed6e01faa0850a99f720235b8 @moritz moritz committed May 17, 2012
Showing with 2 additions and 6 deletions.
  1. +1 −3 S03-operators/comparison-simple.t
  2. +1 −3 integration/advent2009-day19.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan 25;
+plan 24;
# N.B.: relational ops are in relational.t
@@ -11,8 +11,6 @@ plan 25;
is(1 <=> 1, Order::Same, '1 <=> 1 is same');
is(1 <=> 2, Order::Increase, '1 <=> 2 is increase');
is(2 <=> 1, Order::Decrease, '2 <=> 1 is decrease');
-#?niecza skip 'System.FormatException: Unknown char: a'
-is('a' <=> '1', Order::Increase, '<=> is in numeric context');
is 0 <=> -1, Order::Decrease, '0 <=> -1 is increase';
is -1 <=> 0, Order::Increase, '-1 <=> 0 is decrease';
@@ -3,7 +3,7 @@
use v6;
use Test;
-plan 7;
+plan 6;
my @x = <a b c d e>;
#?pugs todo
@@ -22,8 +22,6 @@ is @x.pick(*).elems, @x.elems, 'pick(*)';
is (@x.map: *.succ), ["b", "c", "d", "e", "f"], '*.succ with map';
my @list = 1, 5, 'a', 10, 6;
- #?niecza skip "cannot sort strings numerically"
#?pugs 2 todo
- is (@list.sort: +*), ["a", 1, 5, 6, 10], '+* used to sort numerically';
is (@list.sort: ~*), [1, 10, 5, 6, "a"], '~* used to sort as list of strings';
}

0 comments on commit 32d960d

Please sign in to comment.