Parent Directory
| 
Revision Log
| 
Patch
| revision 699 by dpavlin, Sun Sep 24 18:52:31 2006 UTC | revision 700 by dpavlin, Mon Sep 25 12:51:33 2006 UTC | |
|---|---|---|
| # | Line 1 | Line 1 |
| 1 | #!/usr/bin/perl -w | #!/usr/bin/perl -w |
| 2 | ||
| 3 | use strict; | use strict; |
| 4 | use Test::More tests => 24; | use Test::More tests => 28; |
| 5 | use Test::Exception; | use Test::Exception; |
| 6 | use blib; | use blib; |
| 7 | ||
| # | Line 46 $config->iterate_inputs(sub { | Line 46 $config->iterate_inputs(sub { |
| 46 | isa_ok($input, 'HASH', 'input'); | isa_ok($input, 'HASH', 'input'); |
| 47 | ok($database, 'database'); | ok($database, 'database'); |
| 48 | isa_ok($db_config, 'HASH', 'database config'); | isa_ok($db_config, 'HASH', 'database config'); |
| 49 | isa_ok($input->{normalize}, 'ARRAY', 'normalize'); | |
| 50 | }); | }); |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |