This is mirbsdksh-1.2, passing all expected (all but three) tests
on MirOS BSD-current, and failing like 37 on Walgrind GNU/Linux (probably some of these are environment-dependant): FAIL bksl-nl.t:blsk-nl-ksh-1 FAIL bksl-nl.t:blsk-nl-ksh-2 FAIL eglob.t:eglob-bad-1 FAIL eglob.t:eglob-bad-2 FAIL eglob.t:eglob-infinite-plus FAIL eglob.t:eglob-nomatch-1 FAIL eglob.t:eglob-match-1 FAIL eglob.t:eglob-case-1 FAIL eglob.t:eglob-case-2 FAIL history.t:history-basic FAIL history.t:history-e-minus-1 FAIL history.t:history-e-minus-2 FAIL history.t:history-e-minus-3 FAIL history.t:history-e-minus-4 FAIL history.t:history-e-minus-5 FAIL history.t:history-list-1 FAIL history.t:history-list-2 FAIL history.t:history-list-3 FAIL history.t:history-list-4 FAIL history.t:history-list-5 FAIL history.t:history-list-6 FAIL history.t:history-list-7 FAIL history.t:history-list-r-1 FAIL history.t:history-list-r-2 FAIL history.t:history-list-r-3 FAIL history.t:history-subst-1 FAIL history.t:history-subst-2 FAIL history.t:history-subst-3 FAIL history.t:history-subst-4 FAIL history.t:history-subst-5 FAIL integer.t:integer-base-2 FAIL integer.t:integer-base-4 FAIL regress.t:regression-50 FAIL regress.t:regression-52 FAIL regress.t:regression-54 FAIL unclass2.t:env-prompt FAIL version.t:version-1
This commit is contained in:
parent
9fe69adfe8
commit
899ddca642
30
tests/th-sh
30
tests/th-sh
|
@ -1,30 +0,0 @@
|
|||
#!/bin/sh
|
||||
# $OpenBSD: th-sh,v 1.2 2001/01/28 23:04:57 niklas Exp $
|
||||
|
||||
|
||||
#
|
||||
# Simple script to find perl and run it
|
||||
#
|
||||
|
||||
# Avoid common problems with ENV (though perl shouldn't let it through)
|
||||
# (can you believe some shells don't have an unset???)
|
||||
unset ENV
|
||||
|
||||
x=x
|
||||
[ -x /bin/sh ] 2> /dev/null || x=f
|
||||
|
||||
IFS=:$IFS
|
||||
perl=
|
||||
for i in $PATH; do
|
||||
[ X"$i" = X ] && i=.
|
||||
for j in perl perl4 perl5 ; do
|
||||
[ -$x "$i/$j" ] && perl=$i/$j && break 2
|
||||
done
|
||||
done
|
||||
|
||||
[ X"$perl" = X ] && {
|
||||
echo "$0: can't find perl - bye\n" 1>&2
|
||||
exit 1
|
||||
}
|
||||
|
||||
exec $perl "$@"
|
|
@ -5,5 +5,5 @@ category: pdksh
|
|||
stdin:
|
||||
echo $KSH_VERSION
|
||||
expected-stdout:
|
||||
@(#)PD KSH v5.2.14 99/07/13.2
|
||||
@(#)PD KSH v5.2.14 99/07/13.2 MirOS $Revision: 1.2 $
|
||||
---
|
||||
|
|
Loading…
Reference in New Issue