summaryrefslogtreecommitdiff
path: root/t/014-weird-constants.t
diff options
context:
space:
mode:
Diffstat (limited to 't/014-weird-constants.t')
-rw-r--r--t/014-weird-constants.t34
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();