Skip to content

Commit d4462a5

Browse files
committed
error checking test
1 parent 7291bd6 commit d4462a5

File tree

1 file changed

+54
-0
lines changed

1 file changed

+54
-0
lines changed

t/sandbox/check.t

Lines changed: 54 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,54 @@
1+
use lib './lib';
2+
use strict;
3+
use warnings;
4+
use JavaScript::Duktape;
5+
use Test::More;
6+
7+
{
8+
local $@;
9+
eval {
10+
my $js = JavaScript::Duktape->new( max_memory => 1 );
11+
};
12+
13+
ok $@ =~ /must be at least/;
14+
}
15+
16+
{
17+
local $@;
18+
eval {
19+
my $js = JavaScript::Duktape->new( timeout => '1' );
20+
};
21+
22+
ok $@ =~ /must be a number/;
23+
}
24+
25+
{
26+
local $@;
27+
eval {
28+
my $js = JavaScript::Duktape->new( max_memory => 256 * 1024 );
29+
$js->resize_memory(1);
30+
};
31+
32+
ok $@ =~ /must be at least/;
33+
}
34+
35+
{
36+
local $@;
37+
eval {
38+
my $js = JavaScript::Duktape->new( max_memory => 'xxxxx' );
39+
};
40+
41+
ok $@ =~ /must be a number/;
42+
}
43+
44+
{
45+
local $@;
46+
eval {
47+
my $js = JavaScript::Duktape->new();
48+
$js->set_timeout();
49+
};
50+
51+
ok $@ =~ /must be a number/;
52+
}
53+
54+
done_testing();

0 commit comments

Comments
 (0)