Index: languages/perl6/t/00-parrot/06-op-inplace.t
===================================================================
--- languages/perl6/t/00-parrot/06-op-inplace.t	(revision 32047)
+++ languages/perl6/t/00-parrot/06-op-inplace.t	(working copy)
@@ -6,50 +6,69 @@
 
 say '1..11';
 
+my $test_num = 1;
 my $a = 0;
 $a += 1;
-print 'ok ';
-say $a;
+print 'not ' if $a != 1;
+say "ok $test_num";
+$test_num = $test_num + 1;
+
 ++$a;
-print 'ok ';
-say $a;
+print 'not ' if $a != 2;
+say "ok $test_num";
+$test_num = $test_num + 1;
+
 $a = 4;
 $a -= 1;
-print 'ok ';
-say $a;
+
+print 'not ' if $a != 3;
+say "ok $test_num";
+$test_num = $test_num + 1;
+
+
+
 my $b = 1;
 $a += $b;
-print 'ok ';
-say $a;
-# 5
+print 'not ' if $a != 4;
+say "ok $test_num";
+$test_num = $test_num + 1;
 
 $a +|= $b;
-print 'ok ';
-say $a;
+print 'not ' if $a != 5;
+say "ok $test_num";
+$test_num = $test_num + 1;
+
 $a +&= +^$b;
 $a +^= 2;
-print 'ok ';
-say $a;
+print 'not ' if $a != 6;
+say "ok $test_num";
+$test_num = $test_num + 1;
+
 $a++;
-print 'ok ';
-say $a;
+print 'not ' if $a != 7;
+say "ok $test_num";
+$test_num = $test_num + 1;
+
 $a = 1;
 $a +<= 3;
-print 'ok ';
-say $a;
+print 'not ' if $a != 8;
+say "ok $test_num";
+$test_num = $test_num + 1;
 
-#9
 $a +>= 1;
 $a -= 1;
 $a **= 2;
-print 'ok ';
-say $a;
+print 'not ' if $a != 3;
+say "ok $test_num";
+$test_num = $test_num + 1;
 
 $a /= 3;
 $a += 7;
-print 'ok ';
-say $a;
+print 'not ' if $a != 8;
+say "ok $test_num";
+$test_num = $test_num + 1;
 
 $a %= 3;
-print 'ok ';
-say $a + 10;
+print 'not ' if ( $a +10 ) != 12;
+say "ok $test_num";
+$test_num = $test_num + 1;