mirror of
https://github.com/kennethreitz/context.git
synced 2026-06-05 23:00:17 +00:00
99 lines
2.0 KiB
LLVM
99 lines
2.0 KiB
LLVM
/*
|
|
* @progname st_all.ll
|
|
* @version 1.15 (2008-01-05)
|
|
* @author Perry Rapp
|
|
* @category self-test
|
|
* @output mixed
|
|
* @description
|
|
|
|
calls all self-test modules,
|
|
Validates report language functions,
|
|
and optionally dumps various data to a file
|
|
(to exercise db functions).
|
|
|
|
Perry is using this for a a regression test.
|
|
|
|
TODO: more conversion tests
|
|
TODO: logic
|
|
TODO: non-ASCII dates
|
|
TODO: Flag date tests for gedcom legal vs illegal
|
|
|
|
*/
|
|
|
|
|
|
char_encoding("ASCII")
|
|
|
|
require("lifelines-reports.version:1.3")
|
|
option("explicitvars") /* Disallow use of undefined variables */
|
|
include("st_string.li")
|
|
include("st_string_UTF-8.li")
|
|
include("st_collate.li")
|
|
include("st_date.li")
|
|
include("st_name.li")
|
|
include("st_number.li")
|
|
include("st_trig.li")
|
|
include("st_convert.li")
|
|
include("st_list.li")
|
|
include("st_table.li")
|
|
include("st_db.li")
|
|
|
|
global(true)
|
|
global(dbuse)
|
|
|
|
proc main()
|
|
{
|
|
set(true,1)
|
|
|
|
getint(alltests, "Run all tests ? (1=yes, 0=prompt)")
|
|
getint(dbuse, "Exercise db functions ? (0=no)")
|
|
getint(logout, "Output errors to file (0=no)")
|
|
|
|
if (dostep(alltests, "Test collation ? (0=no)")) {
|
|
call testCollate()
|
|
}
|
|
if (dostep(alltests, "Test strings ? (0=no)")) {
|
|
call testStrings()
|
|
}
|
|
if (dostep(alltests, "Test lists ? (0=no)")) {
|
|
call testLists()
|
|
}
|
|
if (dostep(alltests, "Test tables ? (0=no)")) {
|
|
call testTables()
|
|
}
|
|
if (dostep(alltests, "Test UTF-8strings ? (0=no)")) {
|
|
call testStrings_UTF_8()
|
|
}
|
|
if (dostep(alltests, "Test numbers ? (0=no)")) {
|
|
call testNums()
|
|
}
|
|
if (dostep(alltests, "Test trig ? (0=no)")) {
|
|
call testTrig()
|
|
}
|
|
if (dostep(alltests, "Test names ? (0=no)")) {
|
|
call testNames()
|
|
}
|
|
if (dostep(alltests, "Test dates ? (0=no)")) {
|
|
call testDates()
|
|
}
|
|
if (dostep(alltests, "Test codeset conversion ? (0=no)")) {
|
|
call testConvert()
|
|
}
|
|
|
|
if (dbuse)
|
|
{
|
|
call exerciseDb()
|
|
}
|
|
}
|
|
|
|
/* should we perform this step ? prompt if not doing all */
|
|
func dostep(alltests, prompt)
|
|
{
|
|
if (alltests) { return(true) }
|
|
getint(doit, prompt)
|
|
return(doit)
|
|
}
|
|
|
|
|
|
|
|
|