diff options
Diffstat (limited to 't/014-weird-constants.t')
-rw-r--r-- | t/014-weird-constants.t | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/t/014-weird-constants.t b/t/014-weird-constants.t new file mode 100644 index 0000000..d3ad760 --- /dev/null +++ b/t/014-weird-constants.t @@ -0,0 +1,34 @@ +use strict; +use warnings; + +use Test::Fatal; +use Test::More 0.88; + +use lib 't/lib'; +use Test::Class::Load ':all'; + +{ + package ConstantISA; + + use constant ISA => 1; +} + +is( + exception { is_class_loaded('ConstantISA') }, + undef, + 'no error checking whether class with ISA constant is loaded' +); + +{ + package ConstantVERSION; + + use constant VERSION => 1; +} + +is( + exception { is_class_loaded('ConstantVERSION') }, + undef, + 'no error checking whether class with VERSION constant is loaded' +); + +done_testing(); |