(ns snippets-test
  (:require [cheshire.core :as cheshire]
            [clojure.string :as str]
            [clojure.test :refer [deftest is]]
            [snippets :as main]
            [snippets.app :as app]
            [malli.generator :as mg]
            [rum.core :as rum]))

(deftest example-test
  (is (= 4 (+ 2 2))))

(defn get-context [db]
  {:biff/db         db
   :biff/malli-opts #'main/malli-opts})

(deftest send-message-test
  (let [message (mg/generate :string)
        user    (mg/generate :user main/malli-opts)
        ctx     (get-context {})
        _       (app/send-message ctx {:text (cheshire/generate-string {:text message})})]
    (is (some? message))))

(deftest chat-test
  (let [n-messages (+ 3 (rand-int 10))
        now        (java.util.Date.)
        messages   (for [doc (mg/sample :msg (assoc main/malli-opts :size n-messages))]
                     (assoc doc :msg/sent-at now))]
    (let [response (app/chat {:biff/db {}})
          html     (rum/render-html response)]
      (is (some? html)))))