exception_nonref.t - OpenGrok cross reference for /openbsd/src/gnu/usr.bin/perl/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();