(import scheme
        (chicken base)
        (chicken load)
        (chicken pathname)
        (chicken port)
        (chicken process-context)
        test)

(define test-dir (or (get-environment-variable "TESTS")
                     "tests"))

;;; Setup

(import (jimmy emit)
        (jimmy read)
        #;(jimmy wrap))

(test-begin)

;;; Reading

(define test-file (make-pathname (list test-dir) "test" "gmi"))
(define expected-doc
  '(((meta) ("title" "a" "test" "document")
     ("date" "2024-05-13T03:02:45Z")
     ("uuid" "b3daebf1-440b-4828-a4d9-9089c7bd7c61"))
    ((hdr1) ("a" "test" "document" "of" "some" "kind"))
    ((para) ("here" "is" "a" "test" "document.")
     ("it" "has" "paragraphs")
     (link "example.com" "with" "links!")
     ("and" "other" "things."))
    ((hdr2) ("a" "code" "example"))
    ((verb) ("for (a=1;a<=4;a++) {") ("\tprintf(\"%d\\n\", a);") ("}"))
    ((hdr3) ("other" "examples"))
    ((quot) ("a" "blockquote" "is" "a" "quote") ("that" "is" "blocky."))
    ((list) ("list" "1") ("list" "2") ("list" "3"))
    ((link) ("example.com" "link" "list" "1")
     ("example.com" "link" "list" "2")
     ("example.com" "link" "list" "3"))
    ((para) ("ok," "now" "for" "another" "test:")
     ("will" "*strong*" "in-line" "text" "be" "converted?")
     ("as" "well" "as" "`code`," "_emph_" "and" "such?")
     ("what" "if" "*i" "_nest_" "them*")
     ("what" "if" "*i" "_nest" "them*" "wrong_" "?")
     ("what" "about" "*breaking" "them")
     ("over" "two" "lines?*"))))
(define actual-doc (with-input-from-file test-file parse))

(test "read" expected-doc actual-doc)

(define doc expected-doc)

;;; Emitting

(test-group "gemini"
  (define expected-gmi
    (string-append "# a test document of some kind\n\n"
                   "here is a test document. it has paragraphs \n"
                   "=> example.com with links!\n"
                   "and other things.\n\n"
                   "## a code example\n\n"
                   "```\nfor (a=1;a<=4;a++) {\n"
                   "\tprintf(\"%d\\n\", a);"
                   "\n}\n```\n\n"
                   "### other examples\n\n"
                   "> a blockquote is a quote that is blocky.\n\n"
                   "* list 1\n"
                   "* list 2\n"
                   "* list 3\n\n"
                   "=> example.com link list 1\n"
                   "=> example.com link list 2\n"
                   "=> example.com link list 3\n\n"
                   "ok, now for another test: "
                   "will *strong* in-line text be converted? "
                   "as well as `code`, _emph_ and such? "
                   "what if *i _nest_ them* what if *i _nest them* wrong_ ? "
                   "what about *breaking them over two lines?*\n\n"))
  (define actual-gmi (with-output-to-string (lambda () (emit doc))))
  (test "emit" expected-gmi actual-gmi))

;;; HTML

(test-group "html"
  (import (jimmy html))
  (define expected-html
    (string-append "<h1>a test document of some kind</h1>\n"
                   "<p>\n"
                   " here is a test document.\n"
                   " it has paragraphs\n"
                   " <a href=\"example.com\">with links!</a>\n"
                   " and other things.\n"
                   "</p>\n"
                   "<h2>a code example</h2>\n"
                   "<pre><code>for (a=1;a<=4;a++) {\n"
                   "\tprintf(\"%d\\n\", a);\n"
                   "}\n"
                   "</code></pre>\n"
                   "<h3>other examples</h3>\n"
                   "<blockquote>\n"
                   " a blockquote is a quote\n"
                   " that is blocky.\n"
                   "</blockquote>\n"
                   "<ul>\n"
                   " <li>list 1</li>\n"
                   " <li>list 2</li>\n"
                   " <li>list 3</li>\n"
                   "</ul>\n"
                   "<ul>\n"
                   " <li><a href=\"example.com\">link list 1</a></li>\n"
                   " <li><a href=\"example.com\">link list 2</a></li>\n"
                   " <li><a href=\"example.com\">link list 3</a></li>\n"
                   "</ul>\n"
                   "<p>\n"
                   " ok, now for another test:\n"
                   " will <b>strong</b> in-line text be converted?\n"
                   " as well as <code>code</code>, <i>emph</i> and such?\n"
                   " what if <b>i <i>nest</i> them</b>\n"
                   " what if <b>i <i>nest them</b> wrong</i> ?\n"
                   " what about *breaking them\n"
                   " over two lines?*\n"
                   "</p>\n"))
  (define actual-html (with-output-to-string (lambda () (emit doc))))
  (test "emit html" expected-html actual-html))

(test-end)
(test-exit)