Re: [MacPerl-Porters] [PATCHES] charnames.t, diagnostics.t for MacPerl 5.7.3/5.8.0

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