t/19-comments.t

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