/[webpac2]/trunk/t/2-parse.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/2-parse.t

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

revision 691 by dpavlin, Sun Sep 24 21:13:36 2006 UTC revision 692 by dpavlin, Sun Sep 24 21:13:40 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 => 18;  use Test::More tests => 20;
5  use Test::Exception;  use Test::Exception;
6  use blib;  use blib;
7    
# Line 38  my $inputs = { Line 38  my $inputs = {
38          baz => [ qw/baz-input/ ],          baz => [ qw/baz-input/ ],
39  };  };
40    
41  foreach my $db (qw/foo bar baz/) {  foreach my $db (keys %$inputs) {
42          ok($parser->valid_database($db), "database $db");          ok($parser->valid_database($db), "database $db");
43          ok($inputs->{$db}, "has known inputs");          ok($inputs->{$db}, "has known inputs");
44          diag "valid inputs = ", dump($inputs->{$db});          diag "valid inputs = ", dump($inputs->{$db});
# Line 49  foreach my $db (qw/foo bar baz/) { Line 49  foreach my $db (qw/foo bar baz/) {
49  ok(! $parser->valid_database('non-existant'), "no database");  ok(! $parser->valid_database('non-existant'), "no database");
50  ok(! $parser->valid_database_input('foo','non-existant'), "no database input");  ok(! $parser->valid_database_input('foo','non-existant'), "no database input");
51    
52    ok(my $l = $parser->{_lookup_create}, "_lookup_create");
53    diag "_lookup_create = ",dump($l);
54    
55    ok(my $n = $parser->{_normalize_source}, "_normalize_source");
56    diag "_normalize_source = ",dump($n);
57    
Legend:
Removed from v.691  
changed lines
  Added in v.692
  ViewVC Help
Powered by ViewVC 1.1.26