[p5sagit/p5-mst-13.2.git] / ext / Test-Simple / t / Builder / no_diag.t

#!/usr/bin/perl -w

use Test::More 'no_diag', tests => 2;

pass('foo');
diag('This should not be displayed');

is(Test::More->builder->no_diag, 1);
Commit	Line	Data
ccbd73a4	1	#!/usr/bin/perl -w
ccbd73a4	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);