#!/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;
-use Test::More tests => 40;
+use Test::More;
+$TODO = q{Mouse is not yet completed};
my @moose_exports = qw(
override
augment
super inner
+ blessed confess
);
{
die $@ if $@;
}
-
ok(!Bar->can($_), '... Bar can no longer do ' . $_) for @moose_type_constraint_exports;
+{
+ package Baz;
+
+ use Mouse;
+ use Scalar::Util qw( blessed );
+
+ no Mouse;
+}
+
+can_ok( 'Baz', 'blessed' );
+
+done_testing;