Change 16080 by jhi@alpha on 2002/04/22 16:07:26
Subject: Re: t/japh/abigail.t [PATCH]
From: Norton Allen <[EMAIL PROTECTED]>
Date: Sun, 21 Apr 2002 21:14:59 -0400 (edt)
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/t/japh/abigail.t#3 edit
Differences ...
==== //depot/perl/t/japh/abigail.t#3 (text) ====
Index: perl/t/japh/abigail.t
--- perl/t/japh/abigail.t.~1~ Mon Apr 22 10:15:05 2002
+++ perl/t/japh/abigail.t Mon Apr 22 10:15:05 2002
@@ -174,8 +174,8 @@
next;
}
+ chomp @{$program -> {SKIP_OS}};
if (@{$program -> {SKIP_OS}}) {
- chomp @{$program -> {SKIP_OS}};
if (grep {$^O eq $_} @{$program -> {SKIP_OS}}) {
skip "Your OS uses different quoting.", 1;
next;
@@ -237,13 +237,18 @@
chmod 0755 => $progfile or die "Failed to chmod $progfile: $!\n";
my $command = "./$progfile";
$command .= ' 2>&1' unless $^O eq 'MacOS';
- my $output = `$command`;
+ if ( $^O eq 'qnx' ) {
+ skip "#!./perl not supported in QNX4";
+ skip "#!./perl not supported in QNX4";
+ } else {
+ my $output = `$command`;
+
+ is ($output, $JaPH, "Self correcting code $i");
+ $output = `$command`;
+ is ($output, "", "Self corrected code $i");
+ }
$i ++;
- is ($output, $JaPH, "Self correcting code $i");
-
- $output = `$command`;
- is ($output, "", "Self corrected code $i");
}
}
@@ -258,12 +263,14 @@
for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
print chr 0x$& and q
qq}*excess********}
+SKIP_OS: qnx
####### Funky loop 3.
$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
print chr 0x$& and q
qq}*excess********}
+SKIP_OS: qnx
####### Funky loop 4.
$_ = q ?4a75737420616e6f74686572205065726c204861636b65720as?;??;
@@ -500,6 +507,7 @@
####### Overloaded constants 1
BEGIN {$^H {q} = sub {pop and pop and print pop}; $^H = 2**4.2**12}
"Just "; "another "; "Perl "; "Hacker";
+SKIP_OS: qnx
####### Overloaded constants 2
BEGIN {$^H {q} = sub {$_ [1] =~ y/S-ZA-IK-O/q-tc-fe-m/d; $_ [1]}; $^H = 0x28100}
End of Patch.
