diff options
Diffstat (limited to 't/bugs/inline_reader_bug.t')
-rw-r--r-- | t/bugs/inline_reader_bug.t | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/t/bugs/inline_reader_bug.t b/t/bugs/inline_reader_bug.t new file mode 100644 index 0000000..ef14f71 --- /dev/null +++ b/t/bugs/inline_reader_bug.t @@ -0,0 +1,29 @@ +use strict; +use warnings; + +use Test::More; +use Test::Fatal; + + +=pod + +This was a bug, but it is fixed now. This +test makes sure it does not creep back in. + +=cut + +{ + package Foo; + use Moose; + + ::is( ::exception { + has 'bar' => ( + is => 'ro', + isa => 'Int', + lazy => 1, + default => 10, + ); + }, undef, '... this didnt die' ); +} + +done_testing; |