diff options
| author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2001-12-31 18:03:40 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-31 15:05:36 +0000 |
| commit | 51014d3ed70db1704d0df49424645f3d6b4d6224 (patch) | |
| tree | 4d5f7593481fe47787741b9cd2d7428f637ad01d /lib/Pod | |
| parent | 6bfcfc9dd8a0a95f83139d0e0f301e273c43e0e1 (diff) | |
| download | perl-51014d3ed70db1704d0df49424645f3d6b4d6224.tar.gz | |
[ PATCH] Cygwin: one down one to go
Message-Id: <20011231170025.E05B.H.M.BRAND@hccnet.nl>
p4raw-id: //depot/perl@13982
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/t/basic.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/Pod/t/basic.t b/lib/Pod/t/basic.t index a87cb8b3e9..475df26f47 100644 --- a/lib/Pod/t/basic.t +++ b/lib/Pod/t/basic.t @@ -49,7 +49,7 @@ print "ok 1\n"; # Hard-code a few values to try to get reproducible results. $ENV{COLUMNS} = 80; -$ENV{TERM} = 'xterm'; +$ENV{TERM} = 'xterm'; $ENV{TERMCAP} = 'xterm:co=80:do=^J:md=\E[1m:us=\E[4m:me=\E[m'; # Map of translators to file extensions to find the formatted output to @@ -77,6 +77,7 @@ for (sort keys %translators) { open (TMP, 'out.tmp') or die "Cannot open out.tmp: $!\n"; open (OUTPUT, "> out.$translators{$_}") or die "Cannot create out.$translators{$_}: $!\n"; + binmode OUTPUT; local $_; while (<TMP>) { last if /^\.TH/ } print OUTPUT while <TMP>; @@ -101,8 +102,12 @@ for (sort keys %translators) { print "ok $n\n"; unlink "out.$translators{$_}"; } else { + my @master = split m/[\r\n]+/, $master; + my @output = split m/[\r\n]+/, $output; print "not ok $n\n"; print "# Non-matching output left in out.$translators{$_}\n"; + "@master" eq "@output" and + print "# But the line-end stripped versions are equal\n"; } } $n++; |