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:
		
							
								
								
									
										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: | stdin: | ||||||
| 	echo $KSH_VERSION | 	echo $KSH_VERSION | ||||||
| expected-stdout: | expected-stdout: | ||||||
| 	@(#)PD KSH v5.2.14 99/07/13.2 | 	@(#)PD KSH v5.2.14 99/07/13.2 MirOS $Revision: 1.2 $ | ||||||
| --- | --- | ||||||
|   | |||||||
		Reference in New Issue
	
	Block a user