/[webpac2]/trunk/t/1-config.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/1-config.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 682 by dpavlin, Sun Sep 24 15:28:54 2006 UTC revision 688 by dpavlin, Sun Sep 24 18:52:31 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 => 12;  use Test::More tests => 24;
5  use Test::Exception;  use Test::Exception;
6  use blib;  use blib;
7    
# Line 40  my @inputs = $config->webpac('inputs'); Line 40  my @inputs = $config->webpac('inputs');
40  diag "inputs = ",dump( @inputs ) if ($debug);  diag "inputs = ",dump( @inputs ) if ($debug);
41  isa_ok(\@inputs, 'ARRAY', "inputs");  isa_ok(\@inputs, 'ARRAY', "inputs");
42  cmp_ok(@inputs, '==', 2, "got 2 webpac inputs");  cmp_ok(@inputs, '==', 2, "got 2 webpac inputs");
43    
44    $config->iterate_inputs(sub {
45            my ($input,$database,$db_config) = @_;
46            isa_ok($input, 'HASH', 'input');
47            ok($database, 'database');
48            isa_ok($db_config, 'HASH', 'database config');
49    });
Legend:
Removed from v.682  
changed lines
  Added in v.688
  ViewVC Help
Powered by ViewVC 1.1.26