/usr/share/lifelines/st/st_aux.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 68 69 70 71 72 73 | /*
* @progname st_aux.li
* @version 1.0
* @author Perry Rapp
* @category self-test
* @output none
* @description
*
* auxiliary functions for all self-test modules
*
*/
/* This file is all ASCII, so we don't need to choose a codeset */
char_encoding("ASCII")
require("lifelines-reports.version:1.3")
option("explicitvars") /* Disallow use of undefined variables */
global(testok)
global(testfail)
global(testskip)
global(logout)
global(section)
/* report failure to screen, & to file if logging */
proc reportfail(str)
{
if (gt(strlen(section),0)) {
print(concat(section, nl()))
}
print(str)
print(nl())
if (logout) {
if (gt(strlen(section),0)) {
section nl()
}
str nl()
}
set(section,"")
incr(testfail)
}
/* clear counters at start of subsection */
proc initSubsection()
{
set(testok, 0)
set(testfail, 0)
set(testskip, 0)
}
/* report results of just completed subsectioin (testok...) */
proc reportSubsection(title)
{
set(res, concat("Passed ", d(testok), "/", d(add(testok,testfail)), " "))
if (gt(testskip, 0)) {
set(res, concat(res, "(skipped ", d(testskip), ") "))
}
set(res, concat(res, title, "\n"))
print(res)
set(testok, 0)
set(testfail, 0)
}
func set_and_check_locale(locstr, locname)
{
set(res, setlocale(locstr))
if (nestr(res, "C")) {
return(1)
}
call reportfail(concat("Locale missing: ", locstr, " (", locname, ")"))
return (0)
}
|