From 80d01efafda1be0fd6a013eb590dde637f10616b Mon Sep 17 00:00:00 2001 From: Knagis Date: Mon, 8 Sep 2014 23:34:35 +0300 Subject: Updated to support Perl on Windows waitpid() is required because otherwise Perl on Windows might fail after 64 or 128 tests. removing '\r' from both test output and generated output enables both spec.txt and the generated results to contain Windows newlines (\r\n). --- runtests.pl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'runtests.pl') diff --git a/runtests.pl b/runtests.pl index 2e2b795..d847140 100644 --- a/runtests.pl +++ b/runtests.pl @@ -69,15 +69,21 @@ sub dotest # We use → to indicate tab and ␣ space in the spec $markdown =~ s/→/\t/g;s/␣/ /g; $html =~ s/→/\t/g;s/␣/ /g; - open2(my $out, my $in, @PROG); + my $pid = open2(my $out, my $in, @PROG); print $in $markdown; close $in; flush $out; $actual = do { local $/; <$out>; }; close $out; + waitpid($pid, 0); $html = &tidy($html); $actual = &tidy($actual); $actual =~ s/\'/'/; + + # remove \r to allow mixing of linux/windows newlines + $actual =~ s/\r//g; + $html =~ s/\r//g; + if ($actual eq $html) { print colored("✓", "green"); return 1; -- cgit v1.2.3