Archived
Will Anderson
15 lines
507 B
EmacsLisp
15 lines
507 B
EmacsLisp
// lang-ang.el - Old English NLG tests
|
|
// Expected: "Se mann sihþ þone hund." / "Se mann is god."
|
|
fn test_assert() -> String {
|
|
return sem_realize(sem_frame_lang("assert", "se mann", "seon", "", "ang"))
|
|
}
|
|
fn test_question() -> String {
|
|
return sem_realize(sem_frame_lang("query", "se mann", "seon", "", "ang"))
|
|
}
|
|
fn test_describe() -> String {
|
|
return sem_realize(sem_frame_lang("describe", "se mann", "god", "", "ang"))
|
|
}
|
|
println(test_assert())
|
|
println(test_question())
|
|
println(test_describe())
|