use warnings;
use Test::More;
-use Test::Fatal;
+use Test::Exception;
use Class::MOP;
use Class::MOP::Attribute;
# most values are static
{
- ok exception {
+ dies_ok {
Class::MOP::Attribute->new('$test' => (
default => qr/hello (.*)/
));
- }, '... no refs for defaults';
+ } '... no refs for defaults';
- ok exception {
+ dies_ok {
Class::MOP::Attribute->new('$test' => (
default => []
));
- }, '... no refs for defaults';
+ } '... no refs for defaults';
- ok exception {
+ dies_ok {
Class::MOP::Attribute->new('$test' => (
default => {}
));
- }, '... no refs for defaults';
+ } '... no refs for defaults';
- ok exception {
+ dies_ok {
Class::MOP::Attribute->new('$test' => (
default => \(my $var)
));
- }, '... no refs for defaults';
+ } '... no refs for defaults';
- ok exception {
+ dies_ok {
Class::MOP::Attribute->new('$test' => (
default => bless {} => 'Foo'
));
- }, '... no refs for defaults';
+ } '... no refs for defaults';
}
{
- ok exception {
+ dies_ok {
Class::MOP::Attribute->new('$test' => (
builder => qr/hello (.*)/
));
- }, '... no refs for builders';
+ } '... no refs for builders';
- ok exception {
+ dies_ok {
Class::MOP::Attribute->new('$test' => (
builder => []
));
- }, '... no refs for builders';
+ } '... no refs for builders';
- ok exception {
+ dies_ok {
Class::MOP::Attribute->new('$test' => (
builder => {}
));
- }, '... no refs for builders';
+ } '... no refs for builders';
- ok exception {
+ dies_ok {
Class::MOP::Attribute->new('$test' => (
builder => \(my $var)
));
- }, '... no refs for builders';
+ } '... no refs for builders';
- ok exception {
+ dies_ok {
Class::MOP::Attribute->new('$test' => (
builder => bless {} => 'Foo'
));
- }, '... no refs for builders';
+ } '... no refs for builders';
- ok exception {
+ dies_ok {
Class::MOP::Attribute->new('$test' => (
builder => 'Foo', default => 'Foo'
));
- }, '... no default AND builder';
+ } '... no default AND builder';
my $undef_attr;
- ok ! exception {
+ lives_ok {
$undef_attr = Class::MOP::Attribute->new('$test' => (
default => undef,
predicate => 'has_test',
));
- }, '... undef as a default is okay';
+ } '... undef as a default is okay';
ok($undef_attr->has_default, '... and it counts as an actual default');
ok(!Class::MOP::Attribute->new('$test')->has_default,
'... but attributes with no default have no default');
ok($obj->has_test, '... and the default is populated');
is($obj->meta->get_attribute('$test')->get_value($obj), undef, '... with the right value');
}
- ok ! exception { Foo->meta->make_immutable },
+ lives_ok { Foo->meta->make_immutable }
'... and it can be inlined';
{
my $obj = Foo->new;
{ # bad construtor args
- ok exception {
+ dies_ok {
Class::MOP::Attribute->new();
- }, '... no name argument';
+ } '... no name argument';
# These are no longer errors
- ok ! exception {
+ lives_ok {
Class::MOP::Attribute->new('');
- }, '... bad name argument';
+ } '... bad name argument';
- ok ! exception {
+ lives_ok {
Class::MOP::Attribute->new(0);
- }, '... bad name argument';
+ } '... bad name argument';
}
{
my $attr = Class::MOP::Attribute->new('$test');
- ok exception {
+ dies_ok {
$attr->attach_to_class();
- }, '... attach_to_class died as expected';
+ } '... attach_to_class died as expected';
- ok exception {
+ dies_ok {
$attr->attach_to_class('Fail');
- }, '... attach_to_class died as expected';
+ } '... attach_to_class died as expected';
- ok exception {
+ dies_ok {
$attr->attach_to_class(bless {} => 'Fail');
- }, '... attach_to_class died as expected';
+ } '... attach_to_class died as expected';
}
{
$attr->attach_to_class(Class::MOP::Class->initialize('Foo'));
- ok exception {
+ dies_ok {
$attr->install_accessors;
- }, '... bad reader format';
+ } '... bad reader format';
}
{
my $attr = Class::MOP::Attribute->new('$test');
- ok exception {
+ dies_ok {
$attr->_process_accessors('fail', 'my_failing_sub');
- }, '... cannot find "fail" type generator';
+ } '... cannot find "fail" type generator';
}
reader => 'test'
));
- ok exception {
+ dies_ok {
$attr->install_accessors;
- }, '... failed to generate accessors correctly';
+ } '... failed to generate accessors correctly';
}
{
# it works, which is kinda silly, but it
# tests the API change, so I keep it.
- ok ! exception {
+ lives_ok {
Class::MOP::Attribute->new('$foo', (
accessor => 'foo',
reader => 'get_foo',
));
- }, '... can create accessors with reader/writers';
+ } '... can create accessors with reader/writers';
- ok ! exception {
+ lives_ok {
Class::MOP::Attribute->new('$foo', (
accessor => 'foo',
writer => 'set_foo',
));
- }, '... can create accessors with reader/writers';
+ } '... can create accessors with reader/writers';
- ok ! exception {
+ lives_ok {
Class::MOP::Attribute->new('$foo', (
accessor => 'foo',
reader => 'get_foo',
writer => 'set_foo',
));
- }, '... can create accessors with reader/writers';
+ } '... can create accessors with reader/writers';
}
done_testing;