Permalink
Browse files

[t/02-dieldobjects.t] added two failing tests

  • Loading branch information...
1 parent a504d8b commit b529a6b928e96c8f49516fdabeb1ee9ce7fed99d @masak masak committed Jun 5, 2009
Showing with 9 additions and 1 deletion.
  1. +9 −1 t/02-fieldobjects.t
View
@@ -2,7 +2,7 @@
use v6;
use Test;
-plan 2;
+plan 4;
use Form::Field;
@@ -16,6 +16,14 @@ lives_ok(
ok($textfield, "TextField constructor returned an object");
+{
+ my $numeric-field;
+ lives_ok( { $numeric-field = Form::Field::NumericField.new; },
+ 'NumericField constructs with no parameters'
+ );
+ ok($numeric-field.defined, 'NumericField constructor returned an object');
+}
+
# todo more of these please!
# vim: ft=perl6 sw=4 ts=4 noexpandtab

0 comments on commit b529a6b

Please sign in to comment.