diff options
author | plobbes <plobbes> | 2006-08-30 18:48:40 +0000 |
---|---|---|
committer | plobbes <plobbes> | 2006-08-30 18:48:40 +0000 |
commit | 857313b96b87e3fbb2ca6e472f5283462b928730 (patch) | |
tree | 82e85843e8239fec2d35e352786e376c7b6cff63 | |
parent | a4dde6c58b86bd46826f2797d17d09c4f740f90b (diff) |
- test that required_fields() returns 0 if no required fields are missing
-rw-r--r-- | t/bop.t | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: bop.t,v 1.2 2006-08-30 18:29:59 plobbes Exp $ +# $Id: bop.t,v 1.3 2006-08-30 18:48:40 plobbes Exp $ use strict; use warnings; @@ -100,7 +100,7 @@ $INC{"Business/OnlinePayment/${driver}.pm"} = "testing"; can_ok( $package, qw(required_fields) ); can_ok( $obj, qw(required_fields) ); - is( $obj->required_fields, undef, "no required fields" ); + is( $obj->required_fields, 0, "no required fields" ); eval { $obj->required_fields("field1"); }; like( $@, qr/^missing required field/, "missing required_fields() croaks" ); |