X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F200_examples%2F004_example_w_DCS.t;h=58cd3e7b73d4cfd5c0c4e9a0af0cd02f657f268b;hb=a797dd8ddeea120b4f8f638813f5104777361eb4;hp=1ec0149b8167b13511bc9c899c231ab079a793d8;hpb=fde8e43f95fe996fbc2a778aa259feeb04552171;p=gitmo%2FMouse.git

diff --git a/t/200_examples/004_example_w_DCS.t b/t/200_examples/004_example_w_DCS.t
index 1ec0149..58cd3e7 100644
--- a/t/200_examples/004_example_w_DCS.t
+++ b/t/200_examples/004_example_w_DCS.t
@@ -1,7 +1,4 @@
 #!/usr/bin/perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
 
 use strict;
 use warnings;
@@ -17,9 +14,11 @@ Pretty well if I do say so myself :)
 
 =cut
 
-use Test::Requires {
-    'Declare::Constraints::Simple' => '0.01', # skip all if not installed
-};
+BEGIN {
+    eval "use Declare::Constraints::Simple;";
+    plan skip_all => "Declare::Constraints::Simple is required for this test" if $@;
+    plan tests => 9;
+}
 
 use Test::Exception;
 
@@ -92,4 +91,3 @@ dies_ok {
     $foo->baz({});
 } '... validation failed correctly';
 
-done_testing;