#!/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 => 21;
use Test::Exception;
+
{
package Foo;
use Mouse;
is($foo->bar, 'BAR', '... got the expect value');
ok($foo->can('baz'), '... we have baz method now');
- is($foo->baz, 'FOO-BAZ', '... got the expect value');
+ {
+ local $TODO = 'rebless_params is not implemented';
+ is($foo->baz, 'FOO-BAZ', '... got the expect value');
+ }
}
# with extra params ...
Bar->meta->apply($foo, (rebless_params => { bar => 'FOO-BAR', baz => 'FOO-BAZ' }))
} '... this works';
- is($foo->bar, 'FOO-BAR', '... got the expect value');
+ {
+ local $TODO = 'rebless params is not implemented';
+ is($foo->bar, 'FOO-BAR', '... got the expect value');
+ }
ok($foo->can('baz'), '... we have baz method now');
- is($foo->baz, 'FOO-BAZ', '... got the expect value');
+ {
+ local $TODO = 'rebless params is not implemented';
+ is($foo->baz, 'FOO-BAZ', '... got the expect value');
+ }
}
-done_testing;
+