projects
/
gitmo/Moo.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
bump version
[gitmo/Moo.git]
/
t
/
buildargs-error.t
1
use strictures 1;
2
use Test::More;
3
use Test::Fatal;
4
5
{
6
package Foo;
7
use Moo;
8
9
has bar => ( is => "rw" );
10
has baz => ( is => "rw" );
11
12
sub BUILDARGS {
13
my ($self, $args) = @_;
14
15
return %$args
16
}
17
}
18
19
like(
20
exception { Foo->new({ bar => 1, baz => 1 }) },
21
qr/BUILDARGS did not return a hashref/,
22
'Sensible error message'
23
);
24
25
done_testing;
26