t/19-comments.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::Leaner tests => 1;
   7
   8 note <<'NOTE';
   9 a very
  10   long
  11    comment printed as a # note
  12
  13 not ok 2 - only in a note
  14 NOTE
  15
  16 pass <<'PASS';
  17 a very
  18   long
  19    comment printed as a # pass
  20
  21 not ok 3 - only in a comment
  22 PASS
  23
  24 diag <<'DIAG';
  25 a very
  26   long
  27    comment printed as a # diagnostic
  28
  29 not ok 4 - testing TAP in comments, disregard that
  30 DIAG