tests/test.min
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 |
;; test module ( 'OK ' :ok (" " print!) :padding ;; describe ( :name "Testing: [" print! name print! "]" put! padding () ) :describe ;; assert ( ' :check ; save the check quotation to validate ' :results ; save the result symbol to update (check -> true ==) ( ok results append quote .results "." print! ) ( check results append quote .results "x" print! ) ifte results ) :assert ;; report ( newline ' :results ; save the results collected so far 0 :total 0 :failed results ( total succ .total (ok !=) (failed succ .failed) () ifte ) map padding total print! " tests executed - " print! failed print! " failed." put! ( ' :result result (ok !=) (padding "FAILED: " print! result put!) () ifte ) map ) :report ) => :test |