X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F200_examples%2F001_example.t;h=515fc1aa1693a3949aeb40763278a6ef25f09ac1;hb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27;hp=e6a4a2d3da85f4dd8aa49a6117d82cbdea95b5e5;hpb=8845df4dd6432e3164d078ade741409061adae9f;p=gitmo%2FMouse.git diff --git a/t/200_examples/001_example.t b/t/200_examples/001_example.t index e6a4a2d..515fc1a 100644 --- a/t/200_examples/001_example.t +++ b/t/200_examples/001_example.t @@ -1,15 +1,11 @@ #!/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; -use Test::More; +use Test::More tests => 20; use Test::Exception; - ## Roles { @@ -128,4 +124,3 @@ ok($at_least_10_chars->does('Constraint::OnLength'), '... Constraint::LengthAtLe ok(!defined($at_least_10_chars->validate('barrrrrrrrr')), '... validated correctly'); is($at_least_10_chars->validate('bar'), 'must be at least 10 chars', '... validation failed correctly'); -done_testing;