#!/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;
-$TODO = q{Mouse is not yet completed};
+use Test::More tests => 40;
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;
-}
+ok(!Bar->can($_), '... Bar can no longer do ' . $_) for @moose_type_constraint_exports;
-can_ok( 'Baz', 'blessed' );
-done_testing;