File: carp-5.6.t

package info (click to toggle)
libtest-output-perl 1.036-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 288 kB
  • sloc: perl: 461; makefile: 2
file content (24 lines) | stat: -rw-r--r-- 374 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
use Test::More tests => 3;

my $class = 'Test::Output';
my $sub   = 'stderr_from';

use_ok( $class );
can_ok( $class, $sub );

use Carp qw(carp);

my $message = "This is from carp";

my $output = do {
	no strict 'refs';
	&{ "${class}::$sub" }(
		sub { carp $message } 
		);
	};

like( 
	$output, 
	qr/^\Q$message\E at .* line \d+/, 
	"stderr_from captures carp message" 
	);