This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
f86198426ec841b5a9c70938ca7b3a2cec1b5aa3
[perl5.git] / lib / Test / Simple / t / Builder / no_diag.t
1 #!/usr/bin/perl -w
2 # $Id$
3
4 use Test::More 'no_diag', tests => 2;
5
6 pass('foo');
7 diag('This should not be displayed');
8
9 is(Test::More->builder->no_diag, 1);