Home | History | Annotate | Line # | Download | only in games
      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