package Test::Webservice::InterMine::Constraint::Range;
use base ('Test::Webservice::InterMine::Constraint::Multi');
use Test::More;
use Test::Exception;
sub class {'Webservice::InterMine::Constraint::Range'};
sub hash {(
path => 'Some.path.here',
op => 'OVERLAPS',
value => ['one', 'two', 'three'],
)}
sub default_attributes {
my $test = shift;
return ($test->SUPER::default_attributes, values => [qw/one two three/]);
}
sub string {'Some.path.here OVERLAPS "one, two, three"'}
sub args {
my $test = shift;
my %superargs = $test->SUPER::args;
@superargs{'op', 'values'} = ('OVERLAPS', [qw/one two three/]);
return (%superargs);
}
sub valid_operators {
return ('OVERLAPS', 'DOES NOT OVERLAP', 'WITHIN', 'OUTSIDE', 'CONTAINS', 'DOES NOT CONTAIN');
}
sub invalid_operators {
return ('IS NULL', '=', 'LOOKUP', '%&$!');
}
sub strict_construction : Test(20) {
my $test = shift;
$test->SUPER::strict_construction;
}
1;