(use test accents-substitute-latin1)

(test-begin "Latin1 -> ASCII")
(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 "-Ç-"))
(test "-CC-" (accents-substitute "-ÇÇ-"))
(test-end "Latin1 -> ASCII")

(test-begin "Latin1 -> HTML")
(test "-ã-" (accents-substitute "-ã-" mode: 'html))
(test "-Ã-" (accents-substitute "-Ã-" mode: 'html))
(test "-á-" (accents-substitute "-á-" mode: 'html))
(test "-Á-" (accents-substitute "-Á-" mode: 'html))
(test "-â-"  (accents-substitute "-â-" mode: 'html))
(test "-Â-"  (accents-substitute "-Â-" mode: 'html))
(test "-à-" (accents-substitute "-à-" mode: 'html))
(test "-À-" (accents-substitute "-À-" mode: 'html))
(test "-ä-"   (accents-substitute "-ä-" mode: 'html))
(test "-Ä-"   (accents-substitute "-Ä-" mode: 'html))
(test "-é-" (accents-substitute "-é-" mode: 'html))
(test "-É-" (accents-substitute "-É-" mode: 'html))
(test "-ê-"  (accents-substitute "-ê-" mode: 'html))
(test "-Ê-"  (accents-substitute "-Ê-" mode: 'html))
(test "-è-" (accents-substitute "-è-" mode: 'html))
(test "-È-" (accents-substitute "-È-" mode: 'html))
(test "-ë-"   (accents-substitute "-ë-" mode: 'html))
(test "-Ë-"   (accents-substitute "-Ë-" mode: 'html))
(test "-í-" (accents-substitute "-í-" mode: 'html))
(test "-Í-" (accents-substitute "-Í-" mode: 'html))
(test "-î-"  (accents-substitute "-î-" mode: 'html))
(test "-Î-"  (accents-substitute "-Î-" mode: 'html))
(test "-ì-" (accents-substitute "-ì-" mode: 'html))
(test "-Ì-" (accents-substitute "-Ì-" mode: 'html))
(test "-ï-"   (accents-substitute "-ï-" mode: 'html))
(test "-Ï-"   (accents-substitute "-Ï-" mode: 'html))
(test "-õ-" (accents-substitute "-õ-" mode: 'html))
(test "-Õ-" (accents-substitute "-Õ-" mode: 'html))
(test "-ó-" (accents-substitute "-ó-" mode: 'html))
(test "-Ó-" (accents-substitute "-Ó-" mode: 'html))
(test "-ô-"  (accents-substitute "-ô-" mode: 'html))
(test "-Ô-"  (accents-substitute "-Ô-" mode: 'html))
(test "-ò-" (accents-substitute "-ò-" mode: 'html))
(test "-Ò-" (accents-substitute "-Ò-" mode: 'html))
(test "-ö-"   (accents-substitute "-ö-" mode: 'html))
(test "-Ö-"   (accents-substitute "-Ö-" mode: 'html))
(test "-ú-" (accents-substitute "-ú-" mode: 'html))
(test "-Ú-" (accents-substitute "-Ú-" mode: 'html))
(test "-û-"  (accents-substitute "-û-" mode: 'html))
(test "-Û-"  (accents-substitute "-Û-" mode: 'html))
(test "-ù-" (accents-substitute "-ù-" mode: 'html))
(test "-Ù-" (accents-substitute "-Ù-" mode: 'html))
(test "-ü-"   (accents-substitute "-ü-" mode: 'html))
(test "-Ü-"   (accents-substitute "-Ü-" mode: 'html))
(test "-ç-" (accents-substitute "-ç-" mode: 'html))
(test "-Ç-" (accents-substitute "-Ç-" mode: 'html))
(test "-ÇÇ-" (accents-substitute "-ÇÇ-" mode: 'html))
(test-end "Latin1 -> HTML")