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)
@@ -4,52 +4,48 @@
 
 use v6;
 
-say '1..11';
+use Test;
+plan 11;
 
 my $a = 0;
 $a += 1;
-print 'ok ';
-say $a;
+is $a, 1, '$var += Int';
+
 ++$a;
-print 'ok ';
-say $a;
+is $a, 2, '++$var';
+
 $a = 4;
 $a -= 1;
-print 'ok ';
-say $a;
+is $a, 3, '$var -= Int';
+
 my $b = 1;
 $a += $b;
-print 'ok ';
-say $a;
-# 5
+is $a, 4, '$var += $var2';
 
 $a +|= $b;
-print 'ok ';
-say $a;
+is $a, 5, '$var +|= Int';
+
 $a +&= +^$b;
 $a +^= 2;
-print 'ok ';
-say $a;
+is $a, 6, '$var +&= +^$var2; $var +^= Int';
+
 $a++;
-print 'ok ';
-say $a;
+is $a, 7, '$var++';
+
 $a = 1;
 $a +<= 3;
-print 'ok ';
-say $a;
+is $a, 8, '$var +<= Int';
 
 #9
 $a +>= 1;
 $a -= 1;
 $a **= 2;
-print 'ok ';
-say $a;
+is $a, 3, '$var +>= Int; $var -= Int; $var **= Int';
 
+#1 2 3 4 5 6 7 8 3 8 12
 $a /= 3;
 $a += 7;
-print 'ok ';
-say $a;
+is $a, 8, '$var /= Int; $var += Int';
 
 $a %= 3;
-print 'ok ';
-say $a + 10;
+is $a + 10, 12, '$var %= Int; $var + Int';