--- trunk/t/5-output-excel.t 2008/08/02 15:15:04 1099 +++ trunk/t/5-output-excel.t 2008/08/02 23:46:41 1100 @@ -45,7 +45,7 @@ diag dump( @expected ) if $debug; -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' ); ok(my $db = $input->open( path => $path ), "input->open $path"); cmp_ok( $input->size, '==', $#expected, "same size" ); @@ -54,5 +54,5 @@ my $ds = shift @expected; my $rec = $input->fetch; diag dump( $ds, $rec ) if $debug; - is_deeply( $ds, $rec, "$mfn same?" ); + is_deeply( $rec, $ds, "$mfn same?" ); }