#!/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;
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" );