/[webpac2]/trunk/t/5-output-excel.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/5-output-excel.t

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

revision 1099 by dpavlin, Mon Jan 28 18:30:01 2008 UTC revision 1100 by dpavlin, Sat Aug 2 23:46:41 2008 UTC
# Line 45  cmp_ok( $out->path, 'eq', $path, 'path' Line 45  cmp_ok( $out->path, 'eq', $path, 'path'
45    
46  diag dump( @expected ) if $debug;  diag dump( @expected ) if $debug;
47    
48  ok(my $input = WebPAC::Input->new( module => 'WebPAC::Input::Excel', no_progress_bar => 1, %LOG ), 'new input' );  ok(my $input = WebPAC::Input->new( module => 'WebPAC::Input::Excel', no_progress_bar => 1, encoding => 'utf-16', %LOG ), 'new input' );
49  ok(my $db = $input->open( path => $path ), "input->open $path");  ok(my $db = $input->open( path => $path ), "input->open $path");
50    
51  cmp_ok( $input->size, '==', $#expected, "same size" );  cmp_ok( $input->size, '==', $#expected, "same size" );
# Line 54  foreach my $mfn ( 1 ... $input->size ) { Line 54  foreach my $mfn ( 1 ... $input->size ) {
54          my $ds = shift @expected;          my $ds = shift @expected;
55          my $rec = $input->fetch;          my $rec = $input->fetch;
56          diag dump( $ds, $rec ) if $debug;          diag dump( $ds, $rec ) if $debug;
57          is_deeply( $ds, $rec, "$mfn same?" );          is_deeply( $rec, $ds, "$mfn same?" );
58  }  }
Legend:
Removed from v.1099  
changed lines
  Added in v.1100
  ViewVC Help
Powered by ViewVC 1.1.26