665ae4dd97
* Add tests for markdown-clj and tools.namespace
See comment for why only one markdown test could be run.
Closes #1069 and #1064
* Convert 10 test libs using add-libtest
Also improved add-libtest to only require maven artifact
and rely on clojars for getting git-url most of the time
* Convert 8 more test libs using add-libtest
Also updated table and added comment for newline test
* Fix doric test
* Disable tools.namespace test that fails on windows
* Added dozen manual test libs and converted 2 test libs
add-libtest.clj supports manually-added and test-directories options
* Converts last tests to test namespaces and write libraries.csv
* Add a number of library tests from projects.md
Also add more docs around adding test libs and tweak add script
* Use :sha for gitlib and older clojure cli
* Revert "Use :sha for gitlib and older clojure cli"
This reverts commit c663ab8368.
* Fix and disable failing tests
Disabled tests that fail consistently and fixed windows one
32 lines
871 B
Clojure
32 lines
871 B
Clojure
(ns portal.e2e
|
|
(:require [portal.colors :as c]))
|
|
|
|
(defn step [code]
|
|
(binding [*out* *err*]
|
|
(println "\n==> Enter to execute:" code "\n"))
|
|
(read-line)
|
|
(prn code))
|
|
|
|
(def pane-titles '("Alice" "Mad Hatter" "The Cake is a Lie"))
|
|
|
|
(defn options []
|
|
{:portal.colors/theme
|
|
(rand-nth (keys (dissoc c/themes ::c/vs-code-embedded)))
|
|
:portal.launcher/window-title
|
|
(rand-nth pane-titles)})
|
|
|
|
(defn -main [& args]
|
|
(if (= (first args) "web")
|
|
(step '(require '[portal.web :as p]))
|
|
(step '(require '[portal.api :as p])))
|
|
(step `(do (add-tap #'p/submit)
|
|
(p/open ~(options))))
|
|
(step '(tap> :hello-world))
|
|
(step '(p/clear))
|
|
(step '(require '[examples.data :refer [data]]))
|
|
(step '(tap> data))
|
|
(step '(p/clear))
|
|
(step '(remove-tap #'p/submit))
|
|
(step '(tap> :hello-world))
|
|
(step '(p/eval-str "(js/alert 1)"))
|
|
(step '(p/close)))
|