t/100_bugs/005_inline_reader_bug.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7 use Test::Fatal;
   8
   9
  10 =pod
  11
  12 This was a bug, but it is fixed now. This
  13 test makes sure it does not creep back in.
  14
  15 =cut
  16
  17 {
  18     package Foo;
  19     use Moose;
  20
  21     ::is( ::exception {
  22         has 'bar' => (
  23             is      => 'ro',
  24             isa     => 'Int',
  25             lazy    => 1,
  26             default => 10,
  27         );
  28     }, undef, '... this didnt die' );
  29 }
  30
  31 done_testing;