t/500_test_moose/005_with_immutable.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::Builder::Tester tests => 2;
   7 use Test::More;
   8
   9 BEGIN {
  10   use_ok('Test::Moose');
  11 }
  12
  13 {
  14     package Foo;
  15     use Moose;
  16 }
  17
  18 package main;
  19
  20 test_out("ok 1", "not ok 2");
  21 test_fail(+2);
  22 with_immutable {
  23     ok(Foo->meta->is_mutable);
  24 } qw(Foo);
  25
  26 test_test('with_immutable');