generic-library/curl
1
0
Fork 0
Code Issues Pull Requests 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"); open(TEMP, ">$file1");
for(@$firstref) { for(@$firstref) {
print TEMP $_; my $l = $_;
$l =~ s/\r/[CR]/g;
$l =~ s/\n/[LF]/g;
print TEMP $l;
print TEMP "\n";
} }
close(TEMP); close(TEMP);
open(TEMP, ">$file2"); open(TEMP, ">$file2");
for(@$secondref) { for(@$secondref) {
print TEMP $_; my $l = $_;
$l =~ s/\r/[CR]/g;
$l =~ s/\n/[LF]/g;
print TEMP $l;
print TEMP "\n";
} }
close(TEMP); close(TEMP);
my @out = `diff -u $file2 $file1 2>/dev/null`; my @out = `diff -u $file2 $file1 2>/dev/null`;