git.maemo.org Git - pkg-perl/blob - deb-src/libtest-simple-perl/libtest-simple-perl-0.80/t/no_diag.t

   1 #!/usr/bin/perl -w
   2
   3 use Test::More 'no_diag', tests => 2;
   4
   5 pass('foo');
   6 diag('This should not be displayed');
   7
   8 is(Test::More->builder->no_diag, 1);