/usr/share/lifelines/st/st_name.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 66 67 | /*
* @progname st_name.li
* @version 1.0
* @author Perry Rapp
* @category self-test
* @output none
* @description validate name functions
*/
char_encoding("ASCII")
require("lifelines-reports.version:1.3")
option("explicitvars") /* Disallow use of undefined variables */
include("st_aux")
/* entry point in case not invoked via st_all.ll */
proc main()
{
call testNames()
}
/*
test some name functions
*/
proc testNames()
{
set(testok, 0)
set(testfail, 0)
set(namestr, "Fyodor Nikolaievich Medvedev")
call testExtract(namestr, 3, 0)
set(namestr, "Jose Antonio Martinez de Garcia")
call testExtract(namestr, 5, 0)
set(namestr, "Jose Antonio /Martinez/ de Garcia")
call testExtract(namestr, 5, 3)
set(namestr, "Kara /Hattersley-Smith/")
call testExtract(namestr, 2, 2)
set(namestr, "L. /Vitellius/ Tancinus Cives Hisp. Caurie[n]sis")
call testExtract(namestr, 6, 2)
call reportSubsection("name tests")
}
/* test extractnames on passed string */
proc testExtract(namestr, fragcount, surn)
{
set(node, createnode("NAME", namestr))
list(namelist)
extractnames(node, namelist, count, surna)
if (ne(count, fragcount)) {
call reportfail(concat("extractnames failed count "
, d(count), "<>", d(fragcount), " on ", namestr))
}
else { incr(testok) }
if (ne(surna, surn)) {
call reportfail(concat("extractnames failed surname "
, d(surna), "<>", d(surn), " on ", namestr))
}
else { incr(testok) }
}
|