moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-21 23:58:49 -05:00
Code Issues Releases Wiki Activity

testsuite: visualize line-endings in output comparison diffs

Browse Source
This commit is contained in:
Marc Hoersken 2014-01-26 10:00:14 +01:00
parent 33f9c05082
commit 23a04863aa
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/getpart.pm
View File

@ -264,13 +264,21 @@ sub showdiff {
open(TEMP, ">$file1");
for(@$firstref) {
print TEMP $_;
my $l = $_;
$l =~ s/\r/[CR]/g;
$l =~ s/\n/[LF]/g;
print TEMP $l;
print TEMP "\n";
}
close(TEMP);
open(TEMP, ">$file2");
for(@$secondref) {
print TEMP $_;
my $l = $_;
$l =~ s/\r/[CR]/g;
$l =~ s/\n/[LF]/g;
print TEMP $l;
print TEMP "\n";
}
close(TEMP);
my @out = `diff -u $file2 $file1 2>/dev/null`;