From 6a78441a7a11d21ed896280f8212a4c319068566 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Wed, 26 Jan 2022 07:43:05 -0800 Subject: [PATCH] deactivating new tests pending a fix for line ending issue --- t/testwide-passthrough.t.skip | 9 --------- t/testwide-tidy.t.skip | 12 ------------ 2 files changed, 21 deletions(-) diff --git a/t/testwide-passthrough.t.skip b/t/testwide-passthrough.t.skip index 74e0d907..71a8a292 100644 --- a/t/testwide-passthrough.t.skip +++ b/t/testwide-passthrough.t.skip @@ -59,9 +59,6 @@ sub test_file2file { 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 { @@ -84,9 +81,6 @@ 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 { @@ -112,9 +106,6 @@ 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 { diff --git a/t/testwide-tidy.t.skip b/t/testwide-tidy.t.skip index badc011f..7bff3f91 100644 --- a/t/testwide-tidy.t.skip +++ b/t/testwide-tidy.t.skip @@ -14,11 +14,6 @@ use Perl::Tidy; # 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(); @@ -57,8 +52,6 @@ sub test_file2file { 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 { @@ -83,8 +76,6 @@ 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 { @@ -109,9 +100,6 @@ 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 { -- 2.39.5