(test-begin "arithmetic")

(test-equal "addition" 4 (+ 2 2))
(test-equal "subtraction" 0 (- 5 5))
(test-equal "multiplication" 12 (* 3 4))
(test-equal "division" 5 (/ 10 2))

(test-end "arithmetic")

(test-begin "strings")

(test-equal "concatenation"
  "hello world"
  (string-append "hello" " " "world"))

(test-equal "length"
  5
  (string-length "hello"))

(test-equal "case conversion"
  "HELLO"
  (string-upcase "hello"))

(test-end "strings")

(test-begin "lists")

(test-equal "append"
  '(1 2 3 4)
  (append '(1 2) '(3 4)))

(test-equal "reverse"
  '(3 2 1)
  (reverse '(1 2 3)))

(test-equal "map"
  '(2 4 6)
  (map (lambda (x) (* x 2))
       '(1 2 3)))

(test-equal "wrong result"
  '(a b c d)
  '(a x c y))

(test-end "lists")