romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-07-15 22:57:17 +03:00
Code Issues Projects Releases Packages 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
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`;