note("Comparing contents:\n $source_hex\n $destination_hex\n");
ok($source_hex eq $destination_hex, 'file content compare');
-
- # This failed on Windows
- ## ok( hex_compare_by_lines( $source_str, $destination_str ) );
}
sub test_scalar2scalar {
note("Comparing contents:\n $source_hex\n $destination_hex\n");
ok($source_hex eq $destination_hex, 'scalar content compare');
-
- # This failed on Windows:
- ##ok( hex_compare_by_lines( $source, $destination ), 'scalar content compare' );
}
sub test_scalararray2scalararray {
note("Comparing contents:\n $source_hex\n $destination_hex\n");
ok($source_hex eq $destination_hex, 'scalararray content compare');
-
- # This failed on Windows
- ##ok( hex_compare_by_lines( $source_str, $destination_str ), 'scalararray content compare' );
}
sub slurp_raw {
# The test file is UTF-8 encoded
-# This attempted fix failed under Windows
-# The original version did hex compares of source and destination streams. To
-# just test the -eos flag, and avoid line ending issues, this version does
-# line-by-line hex tests on chomped lines.
-
plan( tests => 6 );
test_all();
note("Comparing contents:\n $tidy_hex\n $destination_hex\n");
ok($tidy_hex eq $destination_hex, 'file content compare');
- # This failed on Windows
- ##ok( hex_compare_by_lines( $tidy_str, $destination_str ), 'file2file content compare' );
}
sub test_scalar2scalar {
note("Comparing contents:\n $tidy_hex\n $destination_hex\n");
ok($tidy_hex eq $destination_hex, 'scalar content compare');
- # This failed on Windows
- ## ok( hex_compare_by_lines( $tidy_str, $destination ), 'scalar2scalar content compare' );
}
sub test_scalararray2scalararray {
note("Comparing contents:\n $tidy_hex\n $destination_hex\n");
ok($tidy_hex eq $destination_hex, 'scalararray content compare');
-
- # This failed on Windows
- ##ok( hex_compare_by_lines( $tidy_str, $destination_str ), 'scalararray content compare' );
}
sub slurp_raw {