X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=moose-class%2Fexercises%2Ft%2Flib%2FMooseClass%2FTests.pm;fp=moose-class%2Fexercises%2Ft%2Flib%2FMooseClass%2FTests.pm;h=25d6073f806d7c6ed6cf9b968f568946e3af6059;hb=01d83a8f8f6224d6b676828ead7613e36edfb862;hp=b6de65d8d663dd70c29e7f5b0ab3ebac2675ec9a;hpb=dcb205461b086b1108115e8bf26950f685530047;p=gitmo%2Fmoose-presentations.git diff --git a/moose-class/exercises/t/lib/MooseClass/Tests.pm b/moose-class/exercises/t/lib/MooseClass/Tests.pm index b6de65d..25d6073 100644 --- a/moose-class/exercises/t/lib/MooseClass/Tests.pm +++ b/moose-class/exercises/t/lib/MooseClass/Tests.pm @@ -316,14 +316,14 @@ sub tests06 { my $str = defined $invalid ? $invalid : 'undef'; ok( !$tc->check($invalid), - "salary_level type rejects invalid value - $str" + "history type rejects invalid value - $str" ); } for my $valid ( [], [1], [ 1, 2, 3 ], [ 1, -10, 9999 ] ) { ok( $tc->check($valid), - "salary_level type accepts valid value" + "history type accepts valid value" ); } }