[perl5.git] / cpan / autodie / t / exception_nonref.t

#!/usr/bin/perl -w
use strict;
use Test::More tests => 1;
use autodie;

eval { syswrite "xxxxxxxx", \*STDOUT };
my $err = $@;

like( $err, qr<xxxxxxxx>, 'expected failure on attempt to write to non-reference' );

done_testing();
Commit	Line	Data
ea6c7d00 CBW	1	#!/usr/bin/perl -w
	2	use strict;
	3	use Test::More tests => 1;
	4	use autodie;
	5
	6	eval { syswrite "xxxxxxxx", \*STDOUT };
	7	my $err = $@;
	8
	9	like( $err, qr<xxxxxxxx>, 'expected failure on attempt to write to non-reference' );
	10
	11	done_testing();