File tree 1 file changed +0
-26
lines changed
src/test/cljs_cli/cljs_cli 1 file changed +0
-26
lines changed Original file line number Diff line number Diff line change 97
97
(output-is
98
98
nil
99
99
" {: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