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