make UTF related regression tests more clear
This commit is contained in:
parent
7463e5daa7
commit
31c96f9d9d
38
check.t
38
check.t
@ -1,4 +1,4 @@
|
|||||||
# $MirOS: src/bin/mksh/check.t,v 1.270 2009/04/07 19:43:26 tg Exp $
|
# $MirOS: src/bin/mksh/check.t,v 1.271 2009/04/08 18:00:53 tg Exp $
|
||||||
# $OpenBSD: bksl-nl.t,v 1.2 2001/01/28 23:04:56 niklas Exp $
|
# $OpenBSD: bksl-nl.t,v 1.2 2001/01/28 23:04:56 niklas Exp $
|
||||||
# $OpenBSD: history.t,v 1.5 2001/01/28 23:04:56 niklas Exp $
|
# $OpenBSD: history.t,v 1.5 2001/01/28 23:04:56 niklas Exp $
|
||||||
# $OpenBSD: read.t,v 1.3 2003/03/10 03:48:16 david Exp $
|
# $OpenBSD: read.t,v 1.3 2003/03/10 03:48:16 david Exp $
|
||||||
@ -4558,56 +4558,66 @@ stdin:
|
|||||||
chmod +x foo/*
|
chmod +x foo/*
|
||||||
export PATH=$(pwd)/foo:$PATH
|
export PATH=$(pwd)/foo:$PATH
|
||||||
"$__progname" -c 'fnord'
|
"$__progname" -c 'fnord'
|
||||||
|
echo =
|
||||||
"$__progname" -c 'fnord; fnord; fnord; fnord'
|
"$__progname" -c 'fnord; fnord; fnord; fnord'
|
||||||
|
echo =
|
||||||
"$__progname" foo/bar
|
"$__progname" foo/bar
|
||||||
|
echo =
|
||||||
"$__progname" <foo/bar
|
"$__progname" <foo/bar
|
||||||
|
echo =
|
||||||
"$__progname" foo/zoo
|
"$__progname" foo/zoo
|
||||||
|
echo =
|
||||||
"$__progname" -c 'print : $(fnord)'
|
"$__progname" -c 'print : $(fnord)'
|
||||||
rm -rf foo
|
rm -rf foo
|
||||||
expected-stdout:
|
expected-stdout:
|
||||||
got 4 files
|
got 4 files
|
||||||
ohne
|
ohne
|
||||||
|
=
|
||||||
ohne
|
ohne
|
||||||
ohne
|
ohne
|
||||||
mit
|
mit
|
||||||
ohne
|
ohne
|
||||||
|
=
|
||||||
ohne
|
ohne
|
||||||
ohne
|
ohne
|
||||||
mit
|
mit
|
||||||
ohne
|
ohne
|
||||||
|
=
|
||||||
ohne
|
ohne
|
||||||
ohne
|
ohne
|
||||||
mit
|
mit
|
||||||
ohne
|
ohne
|
||||||
|
=
|
||||||
ohne
|
ohne
|
||||||
ohne
|
ohne
|
||||||
mit
|
mit
|
||||||
ohne
|
ohne
|
||||||
|
=
|
||||||
: mit
|
: mit
|
||||||
---
|
---
|
||||||
name: utf8bom-2
|
name: utf8bom-2
|
||||||
description:
|
description:
|
||||||
Check that we can execute BOM-shebangs
|
Check that we can execute BOM-shebangs (failures not fatal)
|
||||||
XXX if the OS can already execute them, we lose
|
XXX if the OS can already execute them, we lose
|
||||||
note: cygwin execve(2) doesn't return to us with ENOEXEC, we lose
|
note: cygwin execve(2) doesn't return to us with ENOEXEC, we lose
|
||||||
note: Ultrix perl5 t4 returns 65280 (exit-code 255) and no text
|
note: Ultrix perl5 t4 returns 65280 (exit-code 255) and no text
|
||||||
category: !os:cygwin,!os:uwin-nt,!os:ultrix,!smksh
|
category: !os:cygwin,!os:uwin-nt,!os:ultrix,!smksh
|
||||||
env-setup: !FOO=BAR!
|
env-setup: !FOO=BAR!
|
||||||
stdin:
|
stdin:
|
||||||
print '#!'"$__progname"'\nprint "a=$ENV{FOO}";' >t1
|
print '#!'"$__progname"'\nprint "1 a=$ENV{FOO}";' >t1
|
||||||
print '#!'"$__progname"'\nprint "a=$ENV{FOO}";' >t2
|
print '#!'"$__progname"'\nprint "2 a=$ENV{FOO}";' >t2
|
||||||
print '#!'"$__perlname"'\nprint "a=$ENV{FOO}\n";' >t3
|
print '#!'"$__perlname"'\nprint "3 a=$ENV{FOO}\n";' >t3
|
||||||
print '#!'"$__perlname"'\nprint "a=$ENV{FOO}\n";' >t4
|
print '#!'"$__perlname"'\nprint "4 a=$ENV{FOO}\n";' >t4
|
||||||
chmod +x t?
|
chmod +x t?
|
||||||
./t1
|
./t1
|
||||||
./t2
|
./t2
|
||||||
./t3
|
./t3
|
||||||
./t4
|
./t4
|
||||||
expected-stdout:
|
expected-stdout:
|
||||||
a=/nonexistant{FOO}
|
1 a=/nonexistant{FOO}
|
||||||
a=/nonexistant{FOO}
|
2 a=/nonexistant{FOO}
|
||||||
a=BAR
|
3 a=BAR
|
||||||
a=BAR
|
4 a=BAR
|
||||||
expected-stderr-pattern:
|
expected-stderr-pattern:
|
||||||
/(Unrecognized character .... ignored at \..t4 line 1)*/
|
/(Unrecognized character .... ignored at \..t4 line 1)*/
|
||||||
---
|
---
|
||||||
@ -4615,11 +4625,11 @@ name: utf8bom-3
|
|||||||
description:
|
description:
|
||||||
Reading the UTF-8 BOM should enable the utf8-mode flag
|
Reading the UTF-8 BOM should enable the utf8-mode flag
|
||||||
stdin:
|
stdin:
|
||||||
"$__progname" -c ':; if [[ $- = *U* ]]; then print on; else print off; fi'
|
"$__progname" -c ':; if [[ $- = *U* ]]; then print 1 on; else print 1 off; fi'
|
||||||
"$__progname" -c ':; if [[ $- = *U* ]]; then print on; else print off; fi'
|
"$__progname" -c ':; if [[ $- = *U* ]]; then print 2 on; else print 2 off; fi'
|
||||||
expected-stdout:
|
expected-stdout:
|
||||||
off
|
1 off
|
||||||
on
|
2 on
|
||||||
---
|
---
|
||||||
name: utf8opt-1a
|
name: utf8opt-1a
|
||||||
description:
|
description:
|
||||||
|
Loading…
x
Reference in New Issue
Block a user