Merge remote-tracking branch 'mksh/master'
This commit is contained in:
		
							
								
								
									
										33
									
								
								check.t
									
									
									
									
									
								
							
							
						
						
									
										33
									
								
								check.t
									
									
									
									
									
								
							| @@ -1,4 +1,4 @@ | |||||||
| # $MirOS: src/bin/mksh/check.t,v 1.710 2015/10/09 21:36:52 tg Exp $ | # $MirOS: src/bin/mksh/check.t,v 1.712 2015/10/24 19:46:07 tg Exp $ | ||||||
| # -*- mode: sh -*- | # -*- mode: sh -*- | ||||||
| #- | #- | ||||||
| # Copyright © 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, | # Copyright © 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, | ||||||
| @@ -30,7 +30,7 @@ | |||||||
| # (2013/12/02 20:39:44) http://openbsd.cs.toronto.edu/cgi-bin/cvsweb/src/regress/bin/ksh/?sortby=date | # (2013/12/02 20:39:44) http://openbsd.cs.toronto.edu/cgi-bin/cvsweb/src/regress/bin/ksh/?sortby=date | ||||||
|  |  | ||||||
| expected-stdout: | expected-stdout: | ||||||
| 	@(#)MIRBSD KSH R51 2015/10/09 | 	@(#)MIRBSD KSH R51 2015/10/24 | ||||||
| description: | description: | ||||||
| 	Check version of shell. | 	Check version of shell. | ||||||
| stdin: | stdin: | ||||||
| @@ -39,7 +39,7 @@ name: KSH_VERSION | |||||||
| category: shell:legacy-no | category: shell:legacy-no | ||||||
| --- | --- | ||||||
| expected-stdout: | expected-stdout: | ||||||
| 	@(#)LEGACY KSH R51 2015/10/09 | 	@(#)LEGACY KSH R51 2015/10/24 | ||||||
| description: | description: | ||||||
| 	Check version of legacy shell. | 	Check version of legacy shell. | ||||||
| stdin: | stdin: | ||||||
| @@ -475,6 +475,9 @@ stdin: | |||||||
| 	va[1975973142]=right | 	va[1975973142]=right | ||||||
| 	va[4123456789]=wrong | 	va[4123456789]=wrong | ||||||
| 	echo x7 ${va[#4123456789%2147483647]} | 	echo x7 ${va[#4123456789%2147483647]} | ||||||
|  | 	# make sure multiple calculations don't interfere with each other | ||||||
|  | 	let '# mca = -4 % -2' ' mcb = -4 % -2' | ||||||
|  | 	echo x8 $mca $mcb | ||||||
| expected-stdout: | expected-stdout: | ||||||
| 	x1 -1 4294967295 | 	x1 -1 4294967295 | ||||||
| 	x2 -171510507 4123456789 | 	x2 -171510507 4123456789 | ||||||
| @@ -483,6 +486,7 @@ expected-stdout: | |||||||
| 	x5 -171510507 4123456789 | 	x5 -171510507 4123456789 | ||||||
| 	x6 1975973142 1975973142 | 	x6 1975973142 1975973142 | ||||||
| 	x7 right | 	x7 right | ||||||
|  | 	x8 -4 0 | ||||||
| --- | --- | ||||||
| name: arith-limit32-1 | name: arith-limit32-1 | ||||||
| description: | description: | ||||||
| @@ -8534,13 +8538,36 @@ expected-stdout: | |||||||
| 	0 | 	0 | ||||||
| 	1 | 	1 | ||||||
| --- | --- | ||||||
|  | name: varexpand-funny-chars | ||||||
|  | description: | ||||||
|  | 	Check some characters | ||||||
|  | 	XXX \uEF80 is asymmetric, possibly buggy so we don’t check this | ||||||
|  | stdin: | ||||||
|  | 	x=$'<\x00>'; typeset -p x | ||||||
|  | 	x=$'<\x01>'; typeset -p x | ||||||
|  | 	x=$'<\u0000>'; typeset -p x | ||||||
|  | 	x=$'<\u0001>'; typeset -p x | ||||||
|  | expected-stdout: | ||||||
|  | 	typeset x='<' | ||||||
|  | 	typeset x=$'<\001>' | ||||||
|  | 	typeset x='<' | ||||||
|  | 	typeset x=$'<\001>' | ||||||
|  | --- | ||||||
| name: print-funny-chars | name: print-funny-chars | ||||||
| description: | description: | ||||||
| 	Check print builtin's capability to output designated characters | 	Check print builtin's capability to output designated characters | ||||||
| stdin: | stdin: | ||||||
| 	print '<\0144\0344\xDB\u00DB\u20AC\uDB\x40>' | 	print '<\0144\0344\xDB\u00DB\u20AC\uDB\x40>' | ||||||
|  | 	print '<\x00>' | ||||||
|  | 	print '<\x01>' | ||||||
|  | 	print '<\u0000>' | ||||||
|  | 	print '<\u0001>' | ||||||
| expected-stdout: | expected-stdout: | ||||||
| 	<d<><64>Û€Û@> | 	<d<><64>Û€Û@> | ||||||
|  | 	< | ||||||