Carp/examples/test.carp

(load "Test.carp")
(use Test)
(use Int)
(use String)

(defn main []
  (with-test test
    (assert-equal test 1 2 "1 == 2")
    (assert-true test (Int.> (Array.length &[1 2 3]) 1) "len([1 2 3]) == 1")
    (assert-not-equal test "hi" "bye" "hi != bye")
    (print-test-results test)))