Use &ok instead of manually printing TAP.

t/nqp/37-slurpy.t

@@ -5,22 +5,22 @@
 plan(6);
 
 sub slurpy_pos(*@pos) {
-    for @pos {
-        say("ok " ~ $_);
-    }
+    ok(@pos[0] == 1);
+    ok(@pos[1] == 2);
+    ok(@pos[2] == 3);
 }
 
 slurpy_pos(1, 2, 3);
 
 sub slurpy_named(*%named) {
-    say(%named<pivo>);
-    say(%named<slanina>);
+    ok(%named<pivo> eq "ok pivo");
+    ok(%named<slanina> eq "ok slanina");
 }
 
-slurpy_named(:pivo("ok 4"), :slanina("ok 5"));
+slurpy_named(:pivo("ok pivo"), :slanina("ok slanina"));
 
 sub named_and_slurpy(:$x, *@foo) {
-    say($x);
+    ok($x eq "ok x");
 };
 
-named_and_slurpy(1, :x('ok 6'));
+named_and_slurpy(1, :x("ok x"));