#!/usr/bin/env perl
BEGIN {
plan
skip_all
=>
'Need Mouse for this test'
unless
check_install(
module
=>
'Mouse'
);
}
{
option
'bool'
=> (
is
=>
'ro'
);
option
'counter'
=> (
is
=>
'ro'
,
repeatable
=> 1 );
option
'empty'
=> (
is
=>
'ro'
,
negativable
=> 1 );
option
'split'
=> (
is
=>
'ro'
,
format
=>
'i@'
,
autosplit
=>
','
);
1;
}
{
option
'str_req'
=> (
is
=>
'ro'
,
format
=>
's'
,
required
=> 1 );
1;
}
{
option
'split_str'
=> (
is
=>
'ro'
,
format
=>
's'
,
autosplit
=>
","
);
1;
}
{
option
'should_die_ok'
=> (
is
=>
'ro'
,
trigger
=>
sub
{
die
"ok"
} );
1;
}
{
option
'multi_1'
=> (
is
=>
'ro'
,
required
=> 1 );
option
'multi_2'
=> (
is
=>
'ro'
,
required
=> 1 );
option
'multi_3'
=> (
is
=>
'ro'
,
required
=> 1 );
1;
}
{
option
't'
=> (
is
=>
'ro'
,
doc
=>
'this is a test'
);
1;
}
subtest
"Mouse"
=>
sub
{
note
"Test Mouse"
;
require
$RealBin
.
'/base.st'
;
};
done_testing;