use strict;
use warnings;
use Test::More;
-use Test::Fatal;
+use Test::Exception;
use Test::Moose;
{
}
);
- ::ok ! ::exception {
+ ::lives_ok {
has array => (
traits => ['Array'],
isa => 'ArrayRef',
array_natatime_curried => [ natatime => 2 ],
},
);
- }, "native array trait inlines properly";
+ } "native array trait inlines properly";
- ::ok ! ::exception {
+ ::lives_ok {
has bool => (
traits => ['Bool'],
isa => 'Bool',
bool_is_dark => 'not',
},
);
- }, "native bool trait inlines properly";
+ } "native bool trait inlines properly";
- ::ok ! ::exception {
+ ::lives_ok {
has code => (
traits => ['Code'],
isa => 'CodeRef',
code_execute_method => 'execute_method',
},
);
- }, "native code trait inlines properly";
+ } "native code trait inlines properly";
- ::ok ! ::exception {
+ ::lives_ok {
has counter => (
traits => ['Counter'],
isa => 'Int',
set_counter_42 => [ set => 42 ],
},
);
- }, "native counter trait inlines properly";
+ } "native counter trait inlines properly";
- ::ok ! ::exception {
+ ::lives_ok {
has hash => (
traits => ['Hash'],
isa => 'HashRef',
hash_set_option => 'set',
},
);
- }, "native hash trait inlines properly";
+ } "native hash trait inlines properly";
- ::ok ! ::exception {
+ ::lives_ok {
has number => (
traits => ['Number'],
isa => 'Num',
num_dec => [ sub => 1 ],
},
);
- }, "native number trait inlines properly";
+ } "native number trait inlines properly";
- ::ok ! ::exception {
+ ::lives_ok {
has string => (
traits => ['String'],
is => 'ro',
string_substr_curried_3 => [ substr => ( 1, 3, 'ong' ) ],
},
);
- }, "native string trait inlines properly";
+ } "native string trait inlines properly";
}
with_immutable {