Make cleanup of encodings, moving webpac closer to having

[webpac2] / t / 5-output-excel.t

diff --git a/t/5-output-excel.t b/t/5-output-excel.t
index 490fc17..e6c8bb0 100755 (executable)
--- 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?" );
 }