t_morse.sh revision 1.3 1 1.3 rillig # $NetBSD: t_morse.sh,v 1.3 2024/10/12 20:44:11 rillig Exp $
2 1.1 rillig #
3 1.1 rillig # Copyright (c) 2024 The NetBSD Foundation, Inc.
4 1.1 rillig # All rights reserved.
5 1.1 rillig #
6 1.1 rillig # Redistribution and use in source and binary forms, with or without
7 1.1 rillig # modification, are permitted provided that the following conditions
8 1.1 rillig # are met:
9 1.1 rillig # 1. Redistributions of source code must retain the above copyright
10 1.1 rillig # notice, this list of conditions and the following disclaimer.
11 1.1 rillig # 2. Redistributions in binary form must reproduce the above copyright
12 1.1 rillig # notice, this list of conditions and the following disclaimer in the
13 1.1 rillig # documentation and/or other materials provided with the distribution.
14 1.1 rillig #
15 1.1 rillig # THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
16 1.1 rillig # ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
17 1.1 rillig # TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
18 1.1 rillig # PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
19 1.1 rillig # BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
20 1.1 rillig # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
21 1.1 rillig # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
22 1.1 rillig # INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
23 1.1 rillig # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
24 1.1 rillig # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
25 1.1 rillig # POSSIBILITY OF SUCH DAMAGE.
26 1.1 rillig #
27 1.1 rillig
28 1.1 rillig atf_test_case digits
29 1.3 rillig digits_head()
30 1.3 rillig {
31 1.2 rillig atf_set 'require.progs' '/usr/games/morse'
32 1.2 rillig }
33 1.3 rillig digits_body()
34 1.3 rillig {
35 1.1 rillig trailing_space=' '
36 1.1 rillig morse_s_digits="\
37 1.1 rillig -----
38 1.1 rillig .----
39 1.1 rillig ..---
40 1.1 rillig ...--
41 1.1 rillig ....-
42 1.1 rillig .....
43 1.1 rillig -....
44 1.1 rillig --...
45 1.1 rillig ---..
46 1.1 rillig ----.
47 1.1 rillig $trailing_space
48 1.1 rillig ...-.-
49 1.1 rillig "
50 1.1 rillig atf_check -o "inline:$morse_s_digits" \
51 1.1 rillig /usr/games/morse -s 0123456789
52 1.1 rillig
53 1.1 rillig morse_digits="\
54 1.1 rillig daw daw daw daw daw
55 1.1 rillig dit daw daw daw daw
56 1.1 rillig dit dit daw daw daw
57 1.1 rillig dit dit dit daw daw
58 1.1 rillig dit dit dit dit daw
59 1.1 rillig dit dit dit dit dit
60 1.1 rillig daw dit dit dit dit
61 1.1 rillig daw daw dit dit dit
62 1.1 rillig daw daw daw dit dit
63 1.1 rillig daw daw daw daw dit
64 1.1 rillig
65 1.1 rillig dit dit dit daw dit daw
66 1.1 rillig "
67 1.1 rillig atf_check -o "inline:$morse_digits" \
68 1.1 rillig /usr/games/morse 0123456789
69 1.1 rillig }
70 1.1 rillig
71 1.3 rillig
72 1.1 rillig # Before 2024-06-16, non-ASCII characters invoked undefined behavior,
73 1.1 rillig # possibly crashing morse.
74 1.1 rillig atf_test_case nonascii
75 1.3 rillig nonascii_head()
76 1.3 rillig {
77 1.2 rillig atf_set 'require.progs' '/usr/games/morse'
78 1.2 rillig }
79 1.1 rillig nonascii_body()
80 1.1 rillig {
81 1.1 rillig expected="\
82 1.1 rillig
83 1.1 rillig dit dit dit daw dit daw
84 1.1 rillig "
85 1.1 rillig atf_check -o "inline:$expected" \
86 1.1 rillig /usr/games/morse
87 1.1 rillig }
88 1.1 rillig
89 1.3 rillig
90 1.3 rillig atf_test_case roundtrip
91 1.3 rillig roundtrip_head() {
92 1.3 rillig atf_set 'require.progs' '/usr/games/morse'
93 1.3 rillig }
94 1.3 rillig roundtrip_body()
95 1.3 rillig {
96 1.3 rillig # Most punctuation is ignored during encoding.
97 1.3 rillig # Missing are: !#$%&*;<>[\]^{|}~
98 1.3 rillig
99 1.3 rillig input=\
100 1.3 rillig ' !"#$%&'\''()*+,-./'\
101 1.3 rillig '0123456789:;<=>?'\
102 1.3 rillig '@ABCDEFGHIJKLMNO'\
103 1.3 rillig 'PQRSTUVWXYZ[\]^_'\
104 1.3 rillig '`abcdefghijklmno'\
105 1.3 rillig 'pqrstuvwxyz{|}~'
106 1.3 rillig
107 1.3 rillig expected=\
108 1.3 rillig ' "'\''()+,-./'\
109 1.3 rillig '0123456789:=?'\
110 1.3 rillig '@ABCDEFGHIJKLMNO'\
111 1.3 rillig 'PQRSTUVWXYZ_'\
112 1.3 rillig 'ABCDEFGHIJKLMNO'\
113 1.3 rillig 'PQRSTUVWXYZ \n'
114 1.3 rillig
115 1.3 rillig atf_check -o 'save:roundtrip.morse' \
116 1.3 rillig /usr/games/morse -s "$input"
117 1.3 rillig atf_check -o "inline:$expected" \
118 1.3 rillig /usr/games/morse -d < roundtrip.morse
119 1.3 rillig }
120 1.3 rillig
121 1.3 rillig
122 1.1 rillig atf_init_test_cases()
123 1.1 rillig {
124 1.1 rillig atf_add_test_case digits
125 1.1 rillig atf_add_test_case nonascii
126 1.3 rillig atf_add_test_case roundtrip
127 1.1 rillig }
128