use warnings;
use Test::More tests => 58;
-use Test::Exception;
+use Mouse::Util ':test';
BEGIN {
use_ok('Mouse');
#!/usr/bin/env perl
use Test::More tests => 1;
-use Test::Exception;
+use Mouse::Util ':test';
throws_ok {
package Class;
use strict;
use warnings;
use Test::More tests => 10;
-use Test::Exception;
+use Mouse::Util ':test';
do {
package Class;
use strict;
use warnings;
use Test::More tests => 3;
-use Test::Exception;
+use Mouse::Util ':test';
do {
package Class;
use strict;
use warnings;
use Test::More tests => 16;
-use Test::Exception;
+use Mouse::Util ':test';
my $lazy_run = 0;
use strict;
use warnings;
use Test::More tests => 11;
-use Test::Exception;
+use Mouse::Util ':test';
my @trigger;
use strict;
use warnings;
use Test::More tests => 8;
-use Test::Exception;
+use Mouse::Util ':test';
do {
package Class;
use strict;
use warnings;
use Test::More tests => 24;
-use Test::Exception;
+use Mouse::Util ':test';
do {
package Person;
use strict;
use warnings;
use Test::More tests => 11;
-use Test::Exception;
+use Mouse::Util ':test';
require Mouse;
use lib 't/lib';
}
}
-use Test::Exception;
+use Mouse::Util ':test';
my %destroyed;
use strict;
use warnings;
use Test::More tests => 47;
-use Test::Exception;
+use Mouse::Util ':test';
my $builder_called = 0;
my $lazy_builder_called = 0;
use strict;
use warnings;
use Test::More;
-use Test::Exception;
use IO::Handle;
+use Mouse::Util ':test';
my @types = qw/Any Item Bool Undef Defined Value Num Int Str ClassName
Ref ScalarRef ArrayRef HashRef CodeRef RegexpRef GlobRef
use strict;
use warnings;
use Test::More tests => 29;
-use Test::Exception;
+use Mouse::Util ':test';
do {
package Class;
use strict;
use warnings;
use Test::More tests => 15;
-use Test::Exception;
+use Mouse::Util ':test';
do {
package Class;
use strict;
use warnings;
use Test::More tests => 5;
-use Test::Exception;
+use Mouse::Util ':test';
do {
package Class;
use strict;
use warnings;
use Test::More tests => 3;
-use Test::Exception;
+use Mouse::Util ':test';
do {
package Class;
use strict;
use warnings;
use Test::More tests => 10;
-use Test::Exception;
+use Mouse::Util ':test';
do {
package Foo;
use warnings;
use Test::More 'no_plan';
-use Test::Exception;
+use Mouse::Util ':test';
{
package Foo;
use strict;
use warnings;
use Test::More tests => 12;
-use Test::Exception;
+use Mouse::Util ':test';
lives_ok {
package Role;
use strict;
use warnings;
use Test::More tests => 11;
-use Test::Exception;
+use Mouse::Util ':test';
do {
package Role;
use strict;
use warnings;
use Test::More tests => 4;
-use Test::Exception;
+use Mouse::Util ':test';
my @calls;
my ($before, $after, $around);
use warnings;
use Test::More 'no_plan';
-use Test::Exception;
+use Mouse::Util ':test';
{
package Foo;