timburks / nu fork watch download tarball
public
Description: The Nu programming language.
Homepage: http://programming.nu
Clone URL: git://github.com/timburks/nu.git
nu / test / test_nu.nu
100644 36 lines (31 sloc) 1.176 kb
raw blame history 
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

;; test_nu.nu
;;  tests for basic Nu functionality.
;;
;;  Copyright (c) 2008 Issac Trotts
 
(class TestNu is NuTestCase
     (imethod (id) testThrow* is
         (assert_throws "NuFunkyException"
                        (throw* "NuFunkyException" "Something funky happened.")))
 
     (imethod (id) testSymbol? is
         (assert_true (symbol? 'a))
         (assert_true (symbol? 'ab))
         (assert_false (symbol? 1))
         (assert_false (symbol? "a"))
         (assert_false (symbol? nil))
         (assert_false (symbol? '(a b))))
 
     (imethod (id) testAtom? is
         (assert_true (atom? 'a))
         (assert_true (atom? nil))
         (assert_true (atom? 1))
         (assert_true (atom? ""))   ;; debatable
         (assert_true (atom? "a"))  ;; debatable
         (assert_true (atom? 'a'))
         (assert_false (atom? '(1)))
         (assert_false (atom? '(array 1))))
    
      (imethod (id) testAssert is
          (assert t)
          (assert (eq 1 (+ 0 1)))
          (assert_throws "NuAssertionFailure"
                         (do () (assert nil)))
          (assert_throws "NuAssertionFailure"
                         (do () (assert (eq 0 1))))))