This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
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);