wp2static/integration-tests/test/wp2static_test/crawl_test.clj
2022-03-19 09:07:06 -07:00

29 lines
1.3 KiB
Clojure

(ns wp2static-test.crawl-test
(:require [clojure.string :as str]
[clojure.test :refer :all]
[wp2static-test.test :as test]))
(defn get-crawled-file [path]
(slurp (str "wordpress/wp-content/uploads/wp2static-crawled-site/" path)))
(deftest test-crawled-site
(test/with-test-system [_]
(test/wp-cli! {} "wp2static" "detect")
(test/wp-cli! {} "wp2static" "crawl")
(is (str/includes? (get-crawled-file "index.html") "Welcome to WordPress"))
(is (str/includes? (get-crawled-file "robots.txt") "Sitemap: http://localhost:7000/wp-sitemap.xml"))))
(deftest test-basic-auth
(let [opts {:sh-opts [:env {"HTTP_HOST" "localhost:7002"}]}]
(test/with-test-system [_]
(test/wp-cli! opts "wp2static" "options" "set" "basicAuthUser" "basic")
(test/wp-cli! opts "wp2static" "options" "set" "basicAuthPassword" "auth")
(try
(test/wp-cli! opts "wp2static" "detect")
(test/wp-cli! opts "wp2static" "crawl")
(is (str/includes? (get-crawled-file "index.html") "Welcome to WordPress"))
(is (str/includes? (get-crawled-file "robots.txt") "Sitemap: http://localhost:7002/wp-sitemap.xml"))
(finally
(test/wp-cli! opts "wp2static" "options" "set" "basicAuthUser" "")
(test/wp-cli! opts "wp2static" "options" "set" "basicAuthPassword" ""))))))