1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
use strict;
use warnings;
use Test::More;
use SQL::Abstract::Test import => [qw/is_same_sql_bind/];
delete $ENV{SQL_ABSTRACT_MORE_EXTENDS};
{ my $use = eval "use SQL::Abstract::More -extends => 'SQL::Abstract'; 1";
ok $use, "use SQLAM -extends => SQLA";
}
{ my $use = eval "use SQL::Abstract::More -extends => 'SQL::Abstract'; 1";
ok $use, "use SQLAM -extends => SQLA -- 2nd invocation" ;
}
{ my $use = eval "use SQL::Abstract::More; 1";
(my $err = $@) =~ s/ at .*//;
ok !$use, "use SQLAM -- no -extends : denied : $err";
}
{ my $use = eval "use SQL::Abstract::More -extends => 'Classic'; 1";
(my $err = $@) =~ s/ at .*//;
ok !$use, "use SQLAM -extends => 'Classic': $err";
}
done_testing;
|
