(use test accents-substitute-latin1)

(test "-a-" (accents-substitute "-ã-"))
(test "-A-" (accents-substitute "-Ã-"))
(test "-a-" (accents-substitute "-á-"))
(test "-A-" (accents-substitute "-Á-"))
(test "-a-" (accents-substitute "-â-"))
(test "-A-" (accents-substitute "-Â-"))
(test "-a-" (accents-substitute "-à-"))
(test "-A-" (accents-substitute "-À-"))
(test "-a-" (accents-substitute "-ä-"))
(test "-A-" (accents-substitute "-Ä-"))
(test "-e-" (accents-substitute "-é-"))
(test "-E-" (accents-substitute "-É-"))
(test "-e-" (accents-substitute "-ê-"))
(test "-E-" (accents-substitute "-Ê-"))
(test "-e-" (accents-substitute "-è-"))
(test "-E-" (accents-substitute "-È-"))
(test "-e-" (accents-substitute "-ë-"))
(test "-E-" (accents-substitute "-Ë-"))
(test "-i-" (accents-substitute "-í-"))
(test "-I-" (accents-substitute "-Í-"))
(test "-i-" (accents-substitute "-î-"))
(test "-I-" (accents-substitute "-Î-"))
(test "-i-" (accents-substitute "-ì-"))
(test "-I-" (accents-substitute "-Ì-"))
(test "-i-" (accents-substitute "-ï-"))
(test "-I-" (accents-substitute "-Ï-"))
(test "-o-" (accents-substitute "-õ-"))
(test "-O-" (accents-substitute "-Õ-"))
(test "-o-" (accents-substitute "-ó-"))
(test "-O-" (accents-substitute "-Ó-"))
(test "-o-" (accents-substitute "-ô-"))
(test "-O-" (accents-substitute "-Ô-"))
(test "-o-" (accents-substitute "-ò-"))
(test "-O-" (accents-substitute "-Ò-"))
(test "-o-" (accents-substitute "-ö-"))
(test "-O-" (accents-substitute "-Ö-"))
(test "-u-" (accents-substitute "-ú-"))
(test "-U-" (accents-substitute "-Ú-"))
(test "-u-" (accents-substitute "-û-"))
(test "-U-" (accents-substitute "-Û-"))
(test "-u-" (accents-substitute "-ù-"))
(test "-U-" (accents-substitute "-Ù-"))
(test "-u-" (accents-substitute "-ü-"))
(test "-U-" (accents-substitute "-Ü-"))
(test "-c-" (accents-substitute "-ç-"))
(test "-C-" (accents-substitute "-Ç-"))