/usr/share/lifelines/st/st_collate_UTF-8.li is in lifelines-reports 3.0.61-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 | /*
* @progname st_collate_UTF-8.li
* @version 1.0
* @author Perry Rapp
* @category self-test
* @output none
* @description
*
* some collation tests written in UTF-8
*
*/
char_encoding("UTF-8")
require("lifelines-reports.version:1.3")
option("explicitvars") /* Disallow use of undefined variables */
proc finnish_UTF_8()
{
if (not(set_and_check_locale("fi_FI", "Finnish"))) {
return()
}
call set_section("finnish_UTF-8")
/* 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 polish_UTF_8()
{
if (not(set_and_check_locale("pl_PL", "Polish"))) {
return()
}
call set_section("polish_UTF-8")
/* sanity check */
call check_collate3("A", "L", "Z")
/* Lstroke is between L and M */
call check_collate3("L", "Ł:[Lstroke]", "M")
}
proc spanish_UTF_8()
{
if (not(set_and_check_locale("es_ES", "Spanish"))) {
return()
}
call set_section("spanish_UTF-8")
/* sanity check */
call check_collate3("A", "N", "Z")
/* ennay is between N and O */
call check_collate3("N", "Ñ:[Ntilde]", "O")
}
proc testCollate_UTF_8()
{
call finnish_UTF_8()
call polish_UTF_8()
call spanish_UTF_8()
call set_section("")
}
|