X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2F5-output-excel.t;h=e6c8bb0f9bb6c8e6f1880cd6f06e282dcc1e389e;hb=b5c19bae10ced3446525c5f40044c05eff872d85;hp=490fc1745dc466b936d0466cf2b090fcf04907ef;hpb=f69ab2fd96009f810e607c1f63c3c89c59e725cf;p=webpac2

diff --git a/t/5-output-excel.t b/t/5-output-excel.t
index 490fc17..e6c8bb0 100755
--- a/t/5-output-excel.t
+++ b/t/5-output-excel.t
@@ -45,7 +45,7 @@ cmp_ok( $out->path, 'eq', $path, 'path' );
 
 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 @@ foreach my $mfn ( 1 ... $input->size ) {
 	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?" );
 }