[rakudo]: Fix some tests in 06-op-inplace.t .

git-svn-id: https://svn.parrot.org/parrot/trunk@32072 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
parrot · Oct 21, 2008 · 8c97945 · 8c97945
1 parent b76575b
commit 8c97945
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/languages/perl6/t/00-parrot/06-op-inplace.t b/languages/perl6/t/00-parrot/06-op-inplace.t
@@ -57,17 +57,17 @@ $test_num = $test_num + 1;
 $a +>= 1;
 $a -= 1;
 $a **= 2;
-print 'not ' if $a != 3;
+print 'not ' if $a != 9;
 say "ok $test_num";
 $test_num = $test_num + 1;
 
 $a /= 3;
 $a += 7;
-print 'not ' if $a != 8;
+print 'not ' if $a != 10;
 say "ok $test_num";
 $test_num = $test_num + 1;
 
 $a %= 3;
-print 'not ' if ( $a +10 ) != 12;
+print 'not ' if ( $a +10 ) != 11;
 say "ok $test_num";
 $test_num = $test_num + 1;