t/01-sanity/02-counter.t

   1 # L<S02/"Whitespace and Comments"/space before it, but may be written in any>
   2 use v6;
   3
   4 # Checking that testing is sane: counted tests
   5
   6
   7 say '1..4';
   8
   9 my $counter = 1;
  10 say "ok $counter";
  11
  12 $counter++;
  13 say "ok $counter";
  14
  15 ++$counter;
  16 say 'ok ', $counter;
  17
  18 ++$counter;
  19 say 'ok ' ~ $counter;