71 lines
2 KiB
Text
71 lines
2 KiB
Text
#!/bin/relish
|
|
|
|
;; relish: versatile lisp shell
|
|
;; Copyright (C) 2021 Aidan Hahn
|
|
;;
|
|
;; This program is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
;;
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
;;
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
;; USERLIB-TESTS
|
|
;; this file implements unit tests for handwritten userlib functions
|
|
|
|
(def passed
|
|
'prints if a test has passed'
|
|
(test)
|
|
(echo (concat "PASSED: " test)))
|
|
|
|
(def failed
|
|
'prints if a test has failed'
|
|
(test)
|
|
(echo (concat "FAILED: " test)))
|
|
|
|
(def test-cases 'all test cases'
|
|
(('set updates var'
|
|
(quote
|
|
(let ((test-val 0))
|
|
(set (q test-val) 3)
|
|
(eq? test-val 3))))
|
|
|
|
('prepend prepends to list'
|
|
(quote
|
|
(let ((list (2 3 4))
|
|
(list (prepend 1 list))
|
|
(list-head (pop list)))
|
|
(eq? (car list-head) 1))))
|
|
|
|
('map applies function across list'
|
|
(quote
|
|
(let ((list (1 2 3))
|
|
(adder (lambda (x) (add 1 x))))
|
|
(eq? (map adder list) (2 3 4)))))
|
|
|
|
('reduce function adds numbers'
|
|
(quote
|
|
(let ((list (1 2 3))
|
|
(adder (lambda (x y) (add x y))))
|
|
(eq? (reduce adder list) (add 1 2 3)))))
|
|
|
|
;; add more test cases here
|
|
))
|
|
|
|
;; run all test cases, print output
|
|
(let ((test-iter (pop test-cases)))
|
|
(while (gt? (len test-iter) 1)
|
|
(let ((test (car test-iter))
|
|
(remaining (cdr test-iter))
|
|
(test-name (car test))
|
|
(test-body (cdr test)))
|
|
(if (eval test-body)
|
|
(passed test-name)
|
|
(failed test-name))
|
|
(set (q test-iter) (pop remaining)))))
|