#!/usr/bin/perl
+# This is automatically generated by author/import-moose-test.pl.
+# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
+use t::lib::MooseCompat;
use strict;
use warnings;
if Baz->meta->is_mutable
}
-# The following tests will fail on 5.13.0, so skipt them :(
-if($] >= 5.013) {
- done_testing;
- exit;
-}
-
-{
- package Quux;
- use Mouse;
-
- sub DEMOLISH {
- die "foo\n";
- }
-}
-
-{
- local $@ = 42;
-
- eval { my $obj = Quux->new };
-
- like( $@, qr/foo/, '$@ contains error from demolish when demolish dies' );
-
- Quux->meta->make_immutable, redo
- if Quux->meta->is_mutable
-}
-
done_testing;