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_array.nu
100644 105 lines (97 sloc) 3.355 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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105

;; test_array.nu
;;  tests for Nu array extensions.
;;
;;  Copyright (c) 2007 Tim Burks, Neon Design Technology, Inc.
 
(class TestArray is NuTestCase
     
     (- testCreate is
        (set a (NSMutableArray arrayWithList:'(1 2)))
        (a << "three")
        (assert_equal 3 (a count))
        (assert_equal 2 (a 1))
        (assert_equal "three" (a 2)))
     
     (- testEach is
        (set i 0)
        (set a (array 0 1 2))
        (a each:
           (do (x)
               (assert_equal i x)
               (set i (+ i 1))))
        ;; iteration with break
        (set a (array 0 1 2 3 4 5 6))
        (set sum 0)
        (a each:
           (do (x)
               (if (eq x 4) (break))
               (set sum (+ sum x))))
        (assert_equal 6 sum)
        ;; iteration with continue
        (set a (array 0 1 2 3 4 5 6))
        (set sum 0)
        (a each:
           (do (x)
               (if (eq x 4) (continue))
               (set sum (+ sum x))))
        (assert_equal 17 sum))
     
     (- testEachInReverse is
        (set i 0)
        (set a (array 2 1 0))
        (a eachInReverse:
           (do (x)
               (assert_equal i x)
               (set i (+ i 1))))
        ;; iteration with break
        (set a (array 6 5 4 3 2 1 0))
        (set sum 0)
        (a eachInReverse:
           (do (x)
               (if (eq x 4) (break))
               (set sum (+ sum x))))
        (assert_equal 6 sum)
        ;; iteration with continue
        (set a (array 6 5 4 3 2 1 0))
        (set sum 0)
        (a eachInReverse:
           (do (x)
               (if (eq x 4) (continue))
               (set sum (+ sum x))))
        (assert_equal 17 sum))
     
     (- testEachWithIndex is
        (set i 0)
        (set a (array "zero" "one" "two"))
        (a eachWithIndex:
           (do (value index)
               (assert_equal i index)
               (set i (+ i 1))))
        ;; iteration with break
        (set a (array "zero" "one" "two" "three" "four" "five" "six"))
        (set sum 0)
        (a eachWithIndex:
           (do (value index)
               (if (eq index 4) (break))
               (set sum (+ sum index))))
        (assert_equal 6 sum)
        ;; iteration with continue
        (set a (array "zero" "one" "two" "three" "four" "five" "six"))
        (set sum 0)
        (a eachWithIndex:
           (do (value index)
               (if (eq index 4) (continue))
               (set sum (+ sum index))))
        (assert_equal 17 sum))
     
     (- testSortedArrayUsingBlock is
        (set array (NSArray arrayWithList:(list 9 42 37 1 17 30 11 28)))
        (set sorted (array sortedArrayUsingBlock:(do (a b) (b compare:a))))
        (assert_equal '(42 37 30 28 17 11 9 1) (sorted list))
        (set array (NSArray arrayWithList:(list "mary" "christopher" "ed" "brian" "tim" "jennifer")))
        (set sorted (array sortedArrayUsingBlock:(do (a b) ((a length) compare:(b length)))))
        (assert_equal '("ed" "tim" "mary" "brian" "jennifer" "christopher") (sorted list)))
     
     (- testIndexing is
        (set a (array 1 2 3))
        (assert_equal 1 (a 0))
        (assert_equal 2 (a 1))
        (assert_equal 3 (a (+ 1 1)))
        (assert_equal 3 (a -1))
        (assert_equal 2 (a -2))
        (assert_equal 1 (a -3))
        (assert_equal nil (a 3))
        (assert_equal nil (a -4))))