Print out a nice test number when outputing tap with a print from a test file.

Author: pmurias

t/nqp/11-sub.t

@@ -87,4 +87,4 @@ say('ok ', next_());
 sub redo_() { 17 };
 say('ok ', redo_());
 sub eighteen($a-a) {}
-say('ok paramer with a dash')
+say('ok 18 # paramer with a dash')