/[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 687 by dpavlin, Sun Sep 24 17:24:59 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 42  isa_ok(\@inputs, 'ARRAY', "inputs"); Line 42  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 {  $config->iterate_inputs(sub {
45          my $input = shift;          my ($input,$database,$db_config) = @_;
46          diag "input = ",dump($input);          isa_ok($input, 'HASH', 'input');
47            ok($database, 'database');
48            isa_ok($db_config, 'HASH', 'database config');
49  });  });
Legend:
Removed from v.687  
changed lines
  Added in v.688
  ViewVC Help
Powered by ViewVC 1.1.26