- test that required_fields() returns 0 if no required fields are missing

diff --git a/t/bop.t b/t/bop.t
index 995fcad..c3d7769 100644 (file)
--- a/t/bop.t
+++ b/t/bop.t
@@ -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" );