From 857313b96b87e3fbb2ca6e472f5283462b928730 Mon Sep 17 00:00:00 2001
From: plobbes <plobbes>
Date: Wed, 30 Aug 2006 18:48:40 +0000
Subject: [PATCH] - test that required_fields() returns 0 if no required fields
 are missing

---
 t/bop.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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