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

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

revision 869 by dpavlin, Thu Jun 21 21:26:19 2007 UTC revision 870 by dpavlin, Thu Jun 21 23:54:41 2007 UTC
# Line 15  use_ok( 'WebPAC::Input' ); Line 15  use_ok( 'WebPAC::Input' );
15  }  }
16    
17  ok(my $abs_path = abs_path($0), "abs_path");  ok(my $abs_path = abs_path($0), "abs_path");
18  $abs_path =~ s#/[^/]*$#/#;  $abs_path =~ s#/[^/]*$#/#;      #fix-vim        
19    
20  my $module = 'WebPAC::Input::DBF';  my $module = 'WebPAC::Input::DBF';
21  diag "testing with $module", $debug ? ' with debug' : '';  diag "testing with $module", $debug ? ' with debug' : '';
# Line 30  ok(my $input = new WebPAC::Input( Line 30  ok(my $input = new WebPAC::Input(
30  ok(my $db = $input->open(  ok(my $db = $input->open(
31          path => "$abs_path/data/cas2000.dbf",          path => "$abs_path/data/cas2000.dbf",
32          input_config => {          input_config => {
33                  xmapping => [                  mapping_path => "$abs_path/conf/input/dbf/cas2000.yml",
                         { 'foobar' => [ '200', 'a' ] },  
                 ],  
34          },          },
35  ), "open");  ), "open");
36  ok(my $size = $input->size, "size");  ok(my $size = $input->size, "size");
Legend:
Removed from v.869  
changed lines
  Added in v.870
  ViewVC Help
Powered by ViewVC 1.1.26