tbls/test/story.test.fnl

24 lines
846 B
Plaintext
Raw Normal View History

2024-08-02 18:22:14 +00:00
(let [{
: flatten
: create-corpus
} (require :src.story)]
(let [corpus (create-corpus "test/morpheme-word-epithet.txt")
origin-key :name
2024-08-03 23:09:10 +00:00
origin-table ["[morpheme.c][word] [epithet]"
"[prefix] [morpheme.c][word] [epithet]"
"[prefix] [morpheme.c][word]"
2024-08-02 18:22:14 +00:00
]
2024-08-03 23:09:10 +00:00
origin-string "[morpheme.c][word] [epithet]"
2024-08-02 18:22:14 +00:00
get-story-with-key
(partial flatten corpus (. corpus origin-key))
get-story-with-table
(partial flatten corpus origin-table)
get-story-with-string
(partial flatten corpus origin-string)
]
(print "\n== Cast of Characters ==")
(for [_ 1 4] (print (get-story-with-key)))
(for [_ 1 4] (print (get-story-with-table)))
(for [_ 1 4] (print (get-story-with-string)))))