mirror of
https://github.com/kennethreitz/context.git
synced 2026-06-19 14:11:00 +00:00
53 lines
1.2 KiB
Plaintext
53 lines
1.2 KiB
Plaintext
/*
|
|
* @progname st_collate_8859-1.li
|
|
* @version 1.0
|
|
* @author Perry Rapp
|
|
* @category test
|
|
* @output mixed
|
|
* @description
|
|
*
|
|
* some collation tests written in ISO-8859-1 (Latin-1)
|
|
*
|
|
*/
|
|
|
|
char_encoding("ISO-8859-1")
|
|
|
|
require("lifelines-reports.version:1.3")
|
|
option("explicitvars") /* Disallow use of undefined variables */
|
|
|
|
proc finnish_8859_1()
|
|
{
|
|
if (not(set_and_check_locale("fi_FI", "Finnish"))) {
|
|
return()
|
|
}
|
|
call set_section("finnish_8859-1")
|
|
/* sanity check */
|
|
call check_collate3("A", "L", "Z")
|
|
/* Adia sorts between Z and Odia */
|
|
call check_collate3("Z", "Ä:[Adia]", "Ö:[Odia]")
|
|
/* ydia & udia sort as y */
|
|
call check_collate3("x", "y", "z")
|
|
call check_collate3("x", "ÿ:[ydia]", "z")
|
|
call check_collate3("x", "ü:[udia]", "z")
|
|
/* eth (lower=u00F0) sorts as d */
|
|
call check_collate3("c", "d", "e")
|
|
call check_collate3("c", "ð:[eth]", "e")
|
|
}
|
|
proc spanish_8859_1()
|
|
{
|
|
if (not(set_and_check_locale("es_ES", "Spanish"))) {
|
|
return()
|
|
}
|
|
call set_section("spanish_8859-1")
|
|
call check_collate3("A", "N", "Z")
|
|
call check_collate3("N", "Ñ:[Ntilde]", "O")
|
|
}
|
|
proc testCollate_8859_1()
|
|
{
|
|
call finnish_8859_1()
|
|
call spanish_8859_1()
|
|
call set_section("")
|
|
}
|
|
|
|
|