tbls/test/story.test.fnl

(let [{
  : flatten
  : create-corpus 
  } (require :src.story)]

  (let [corpus (create-corpus "test/morpheme-word-epithet.txt")
        origin-key :name
        origin-table ["[morpheme.c][word] [epithet]"
                      "[prefix] [morpheme.c][word] [epithet]"
                      "[prefix] [morpheme.c][word]"
                      ]
        origin-string "[morpheme.c][word] [epithet]"
        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)))))