tests and changelogging

[gitmo/Moose.git] / t / 200_examples / 004_example_w_DCS.t

diff --git a/t/200_examples/004_example_w_DCS.t b/t/200_examples/004_example_w_DCS.t
index 335a45e..1609886 100644 (file)
--- a/t/200_examples/004_example_w_DCS.t
+++ b/t/200_examples/004_example_w_DCS.t
@@ -14,13 +14,11 @@ Pretty well if I do say so myself :)
 
 =cut
 
-BEGIN {
-    eval "use Declare::Constraints::Simple;";
-    plan skip_all => "Declare::Constraints::Simple is required for this test" if $@;
-    plan tests => 9;
-}
+use Test::Requires {
+    'Declare::Constraints::Simple' => '0.01', # skip all if not installed
+};
 
-use Test::Exception;
+use Test::Fatal;
 
 {
     package Foo;
@@ -60,40 +58,35 @@ my $hash_of_arrays_of_objs = {
 my $array_of_ints = [ 1 .. 10 ];
 
 my $foo;
-lives_ok {
+is( exception {
     $foo = Foo->new(
        'bar' => $hash_of_arrays_of_objs,
        'baz' => $array_of_ints,
     );
-} '... construction succeeded';
+}, undef, '... construction succeeded' );
 isa_ok($foo, 'Foo');
 
 is_deeply($foo->bar, $hash_of_arrays_of_objs, '... got our value correctly');
 is_deeply($foo->baz, $array_of_ints, '... got our value correctly');
 
-dies_ok {
+isnt( exception {
     $foo->bar([]);
-} '... validation failed correctly';
+}, undef, '... validation failed correctly' );
 
-dies_ok {
+isnt( exception {
     $foo->bar({ foo => 3 });
-} '... validation failed correctly';
+}, undef, '... validation failed correctly' );
 
-dies_ok {
+isnt( exception {
     $foo->bar({ foo => [ 1, 2, 3 ] });
-} '... validation failed correctly';
+}, undef, '... validation failed correctly' );
 
-dies_ok {
+isnt( exception {
     $foo->baz([ "foo" ]);
-} '... validation failed correctly';
+}, undef, '... validation failed correctly' );
 
-dies_ok {
+isnt( exception {
     $foo->baz({});
-} '... validation failed correctly';
-
-
-
-
-
-
+}, undef, '... validation failed correctly' );
 
+done_testing;