File tree Expand file tree Collapse file tree 1 file changed +0
-26
lines changed
src/test/cljs_cli/cljs_cli Expand file tree Collapse file tree 1 file changed +0
-26
lines changed Original file line number Diff line number Diff line change 9797 (output-is
9898 nil
9999 " {:ns cljs.user, :value 3}" ))))
100-
101- (deftest test-cljs-2680
102- (with-repl-env-filter (complement #{" node" }) ; Exclude Node owing to CLJS-2684
103- (with-sources {" src/foo/core.cljs" " (ns foo.core)"
104- " src/bar/core.clj" " (ns bar.core) (defn watch [] (prn :watch-called))" }
105- (with-in " :cljs/quit\n "
106- (with-post-condition (fn [dir]
107- (some #{" :watch-called" }
108- (str/split-lines (slurp (io/file dir " out" " watch.log" )))))
109- (-> (cljs-main " -co" " {:watch-fn bar.core/watch}" " --watch" " src" " -c" " foo.core" " -r" )
110- (output-is
111- " Watch compilation log available at: out/watch.log"
112- (repl-title )
113- " cljs.user=>" )))))
114- (with-sources {" src/foo/core.cljs" " (ns foo.core"
115- " src/bar/core.clj" " (ns bar.core) (defn watch-error [e] (prn :watch-error-called (.getMessage e)))" }
116- (with-in " :cljs/quit\n "
117- (with-post-condition (fn [dir]
118- (let [log-contents (slurp (io/file dir " out" " watch.log" ))]
119- (and (str/includes? log-contents " :watch-error-called" )
120- (str/includes? log-contents " Unexpected EOF while reading" ))))
121- (-> (cljs-main " -co" " {:watch-error-fn bar.core/watch-error}" " --watch" " src" " -c" " foo.core" " -r" )
122- (output-is
123- " Watch compilation log available at: out/watch.log"
124- (repl-title )
125- " cljs.user=>" )))))))
You can’t perform that action at this time.
0 commit comments