On Wed, May 29, 2002 at 07:11:38PM +0200, Thomas Wegner wrote:
> Greetings,
>
> here are patches for :lib:charnames.t and :lib:diagnostics.t (MacPerl
> 5.7.3/5.8.0).
>
>
> diff -ru charnames.t.orig charnames.t
> --- charnames.t.orig Wed May 8 01:26:57 2002
> +++ charnames.t Fri May 24 19:19:21 2002
> @@ -173,13 +173,13 @@
> print "not " unless "\N{NULL}" eq "\c@";
> print "ok 25\n";
>
> -print "not " unless "\N{LINE FEED (LF)}" eq "\n";
> +print "not " unless "\N{LINE FEED (LF)}" eq "\012";
> print "ok 26\n";
Uhh, no. Won't work on EBCDIC. Skip the tests on MacOS
if you need to. Or make the expected result (like "\n")
dependent on $^O eq 'MacOS'.
> -print "not " unless "\N{LINE FEED}" eq "\n";
> +print "not " unless "\N{LINE FEED}" eq "\012";
> print "ok 27\n";
>
> -print "not " unless "\N{LF}" eq "\n";
> +print "not " unless "\N{LF}" eq "\012";
> print "ok 28\n";
>
> my $nel = ord("A") == 193 ? qr/^(?:\x15|\x25)$/ : qr/^\x85$/;
>
>
> diff -ru diagnostics.t.orig diagnostics.t
> --- diagnostics.t.orig Wed May 29 18:12:09 2002
> +++ diagnostics.t Wed May 29 18:34:00 2002
> @@ -1,8 +1,16 @@
> #!./perl
>
> BEGIN {
> - chdir '..' if -d '../pod' && -d '../t';
> - @INC = 'lib';
> + if ($^O eq 'MacOS')
> + {
> + chdir '::' if -d '::pod' && -d '::t';
> + @INC = ':lib:';
> + }
> + else
> + {
> + chdir '..' if -d '../pod' && -d '../t';
> + @INC = 'lib';
> + }
> }
>
> use Test::More tests => 2;
>
>
>
> __END__ of 2 patches
>
>
> Best regards,
>
> --Thomas
>
>
--
$jhi++; # http://www.iki.fi/jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
