added tests for RT #73386

Raku · Feb 23, 2011 · 3e93462 · 3e93462
1 parent c907b99
commit 3e93462
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/S03-operators/arith.t b/S03-operators/arith.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 135;
+plan 136;
 
 my $five = abs(-5);
 
@@ -308,6 +308,9 @@ dies_ok( { $x := 0; say 3 div $x; }, 'Division by zero dies and is catchable wit
     ok 1/7 / 1/7 == 1/49, 'no more Rat literals, infix:</> has normal left assoc';
 }
 
+# RT #73386
+eval_dies_ok '3 !+ 4',  'infix:<+> is not iffy enough';
+
 done;
 
 # vim: ft=perl6
diff --git a/S05-transliteration/trans.t b/S05-transliteration/trans.t
@@ -10,7 +10,7 @@ String transliteration
 
 # L<S05/Transliteration>
 
-plan 57;
+plan 58;
 
 is("ABC".trans( ('A'=>'a'), ('B'=>'b'), ('C'=>'c') ),
     "abc",
@@ -255,9 +255,6 @@ is('ababab'.trans([/ab/, 'aba', 'bab', /baba/] =>
    'longest token still holds, even between constant strings and regexes');
 
 # RT #83674
-{
-    lives_ok { my @a = 1..2; @a>>.trans((1..2) => (14..15,1..2)); },
-        'trans works with Cool signature';
-}
+lives_ok { my @a = 1..2; @a>>.trans((1..2) => (14..15,1..2)); }, 'trans works with Cool signature';
 
 # vim: ft=perl6