use strict ;
use warnings ;
use Test ;
use Time::Out qw(timeout) ;


BEGIN {
	plan(tests => 3) ;
}


# exception
eval {
	timeout 3 => sub {
		die("allo\n") ;
	} ;
} ;
ok($@, "allo\n") ;


# exception
eval {
	timeout 3 => sub {
		die("allo") ;
	} ;
} ;
ok($@, qr/^allo/) ;


# exception
eval {
	timeout 3 => sub {
		die([56]) ;
	} ;
} ;
ok($@->[0], 56) ;