File tree Expand file tree Collapse file tree 1 file changed +6
-4
lines changed Expand file tree Collapse file tree 1 file changed +6
-4
lines changed Original file line number Diff line number Diff line change 398
398
(build/build (build/inputs (io/file inputs " data_readers_test" )) opts cenv)
399
399
(is (contains? (-> @cenv ::ana/data-readers ) 'test/custom-identity))))
400
400
401
- (comment
402
- (let [out " out"
401
+ (deftest test-data-readers-records
402
+ (let [out ( .getPath ( io/file ( test/tmp-dir ) " data-readers-test-records- out" ))
403
403
{:keys [inputs opts]} {:inputs (str (io/file " src" " test" " cljs" ))
404
404
:opts {:main 'data-readers-test.records
405
405
:output-dir out
406
406
:optimizations :none
407
407
:closure-warnings {:check-types :off }}}
408
408
cenv (env/default-compiler-env )]
409
- (build/build (build/inputs (io/file inputs " data_readers_test" )) opts cenv))
410
- )
409
+ (test/delete-out-files out)
410
+ (build/build (build/inputs (io/file inputs " data_readers_test" )) opts cenv)
411
+ (is (true ? (boolean (re-find #"data_readers_test.records.map__GT_Foo\( "
412
+ (slurp (io/file out " data_readers_test" " records.js" ))))))))
411
413
412
414
(deftest test-cljs-2249
413
415
(let [out (io/file (test/tmp-dir ) " cljs-2249-out" )
You can’t perform that action at this time.
0 commit comments