#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 14;
+use Test::More tests => 15;
use Test::Exception;
do {
};
};
-throws_ok {
- package MyClass::Error;
- use Moose;
- with 'MyRole::Storage';
-} qr/^Attribute \(format\) is required/;
-
do {
package MyClass::Dumper;
use Moose;
};
can_ok('MyClass::Dumper' => qw(freeze_Dumper thaw_Dumper));
-cant_ok('MyClass::Storable' => qw(freeze_Storable thaw_Storable));
+cant_ok('MyClass::Dumper' => qw(freeze_Storable thaw_Storable));
do {
package MyClass::Storable;
can_ok('MyClass::Three' => qw(freeze_Dumper freeze_Storable thaw_Dumper thaw_Storable store dump));
+throws_ok {
+ package MyClass::Error::Required;
+ use Moose;
+ with 'MyRole::Storage';
+} qr/^Attribute \(format\) is required/;
+
+throws_ok {
+ package MyClass::Error::Invalid;
+ use Moose;
+ with 'MyRole::Storage' => {
+ format => 'YAML',
+ };
+} qr/^Attribute \(format\) does not pass the type constraint/;
+
sub cant_ok {
local $Test::Builder::Level = $Test::Builder::Level + 1;
my $instance = shift;