1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
#!/bin/sh
#
# Copyright (c) 2017 Anton Lindqvist <anton@openbsd.org>
#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
testseq() {
stdin=$1
exp=$(echo "$2")
act=$(echo -n "$stdin" | ./edit -p "$PS1" csh)
[ $? = 0 ] && [ "$exp" = "$act" ] && return 0
echo input:
echo ">>>${stdin}<<<"
echo -n "$stdin" | hexdump -Cv
echo expected:
echo ">>>${exp}<<<"
echo -n "$exp" | hexdump -Cv
echo actual:
echo ">>>${act}<<<"
echo -n "$act" | hexdump -Cv
exit 1
}
PS1='? '
# Create a fake HOME with a minimal .cshrc and a few files used for completion.
tmp=$(mktemp -d)
trap 'rm -r $tmp' 0
touch $tmp/ambiguous.{1,2} $tmp/complete $tmp/ignore.{c,o} $tmp/only.o
cat >$tmp/.cshrc <<!
set filec
set fignore = (.o)
set prompt = "$PS1"
cd ~
!
HOME=$tmp
MALLOC_OPTIONS=S
export HOME MALLOC_OPTIONS
# NL: Execute command.
testseq "echo a\n" "? echo a\r\na\r\n? "
testseq "echo \0001\n" "? echo ^A\r\n\0001\r\n? "
# VEOF: List all completions or exit.
testseq "a\0004" "? a^D\r\nambiguous.1 ambiguous.2 \r\r\n? a"
testseq "ignore\0004" "? ignore^D\r\nignore.c ignore.o \r\r\n? ignore"
testseq "set ignoreeof\n\0004" \
"? set ignoreeof\r\n? ^D\r\nUse \"exit\" to leave csh.\r\n? "
testseq "set ignoreeof\na\0004" \
"? set ignoreeof\r\n? a^D\r\nambiguous.1 ambiguous.2 \r\r\n? a"
# VEOL: File name completion.
testseq "\0033" "? \0007"
testseq "c\0033" "? complete"
testseq "a\0033" "? a\0007mbiguous."
testseq "~${USER}\0033" "? ~${USER}"
testseq "ignore\0033" "? ignore.c"
testseq "only\0033" "? only.o"
# VERASE: Delete character.
testseq "\0177" "? "
testseq "ab\0177\0177\0177" "? ab\b \b\b \b"
testseq "a\0002\0177" "? a^B\b\b \b\b"
testseq "\0001\0002\0177" "? ^A^B\b\b \b\b"
testseq "\t\0177" "? \b\b\b\b\b\b\b\b \b\b\b\b\b\b\b\b"
# VINTR: Abort line.
testseq "\0003" "? ^C\r\n? "
testseq "ab\0003" "? ab^C\r\n? "
testseq "foreach i ()\n\0003" "? foreach i ()\r\n? ^C\r\r\n? "
# VKILL: Kill line.
testseq "\0025" "? "
testseq "ab\0025" "? ab\b\b \b\b"
# VLNEXT: Insert literal.
testseq "\0026\0007" "? ^G"
testseq "\0026\0033" "? ^["
testseq "echo \0026\0001a\n" "? echo ^Aa\r\n\0001a\r\n? "
# VREPRINT: Reprint line.
testseq "ab\0022" "? ab^R\r\nab"
# XXX VSTATUS: Send TIOCSTAT.
# VWERASE: Delete word.
testseq "\0027" "? "
testseq "ab\0027" "? ab\b\b \b\b"
testseq "ab cd\0027\0027" "? ab cd\b\b \b\b\b\b\b \b\b\b"
# VWERASE: Delete word using altwerase.
testseq "stty altwerase\n\0027" "? stty altwerase\r\n? "
testseq "stty altwerase\nab\0027" "? stty altwerase\r\n? ab\b\b \b\b"
testseq "stty altwerase\nab/cd\0027\0027" \
"? stty altwerase\r\n? ab/cd\b\b \b\b\b\b\b \b\b\b"
|
