r1393@llin: dpavlin | 2007-10-31 00:52:52 +0100

[webpac2] / t / 2-parse.t

diff --git a/t/2-parse.t b/t/2-parse.t
index 10e677f..36f4da2 100755 (executable)
--- a/t/2-parse.t
+++ b/t/2-parse.t
@@ -123,7 +123,7 @@ ok(
                debug => $debug,
 ), "new");
 
-ok(my $marc = $parser->generate_marc('marc','marc-input'), 'generate_marc');
+ok(my $marc = $parser->have_rules('marc', 'marc', 'marc-input'), 'have_rules(marc,...)');
 
 diag "marc: ",dump($marc) if ($debug);