Commit 23a04863 authored by Marc Hoersken's avatar Marc Hoersken
Browse files

testsuite: visualize line-endings in output comparison diffs

parent 33f9c050

tests/getpart.pm

+10 −2
Original line number Original line Diff line number Diff line
@@ -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`;