berry/tests/range.be at e5f12b8b80043ea36199d5c4a16b8ac8a9304b96 · s-hadinger/berry · GitHub

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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
# test ranges
var l

# simple ranges
l = []
for i:1..10 l..i end
assert(l == [1, 2, 3, 4, 5, 6, 7, 8, 9, 10])

l = []
for i:range(1, 10) l..i end
assert(l == [1, 2, 3, 4, 5, 6, 7, 8, 9, 10])

# range in higher steps
l = []
for i:range(1, 10, 2) l..i end
assert(l == [1, 3, 5, 7, 9])

# negative ranges
l = []
for i:range(1, 10, -2) l..i end
assert(l == [])

l = []
for i:range(30, 0, -3) l..i end
assert(l == [30, 27, 24, 21, 18, 15, 12, 9, 6, 3, 0])

# lower(), upper(), incr() accessors
var r = range(3, 7)
assert(r.lower() == 3)
assert(r.upper() == 7)
assert(r.incr() == 1)

var r2 = range(0, 20, 5)
assert(r2.lower() == 0)
assert(r2.upper() == 20)
assert(r2.incr() == 5)

var r3 = range(10, 0, -2)
assert(r3.lower() == 10)
assert(r3.upper() == 0)
assert(r3.incr() == -2)

# tostring - incr == 1 uses "(lower..upper)" format
assert(str(range(1, 5)) == "(1..5)")

# tostring - incr != 1 uses "range(lower, upper, incr)" format
assert(str(range(0, 10, 3)) == "range(0, 10, 3)")
assert(str(range(10, 0, -1)) == "range(10, 0, -1)")

# setrange - basic usage
var r4 = range(1, 5)
r4.setrange(10, 20)
assert(r4.lower() == 10)
assert(r4.upper() == 20)
assert(r4.incr() == 1)

# setrange - with custom increment
r4.setrange(0, 100, 10)
assert(r4.lower() == 0)
assert(r4.upper() == 100)
assert(r4.incr() == 10)

# setrange - verify iteration after setrange
l = []
var r5 = range(1, 3)
r5.setrange(5, 9, 2)
for i:r5 l..i end
assert(l == [5, 7, 9])

# init error: missing arguments
try
    range(1)
    assert(false, "should raise")
except .. as e, m
    assert(e == 'value_error')
end

# init error: non-int arguments
try
    range(1, 2.0)
    assert(false, "should raise")
except .. as e, m
    assert(e == 'value_error')
end

# init error: zero increment
try
    range(1, 10, 0)
    assert(false, "should raise")
except .. as e, m
    assert(e == 'value_error')
end

# setrange error: missing arguments
try
    var r6 = range(1, 5)
    r6.setrange(1)
    assert(false, "should raise")
except .. as e, m
    assert(e == 'value_error')
end

# setrange error: non-int arguments
try
    var r7 = range(1, 5)
    r7.setrange(1, "bad")
    assert(false, "should raise")
except .. as e, m
    assert(e == 'value_error')
end

# setrange error: zero increment
try
    var r8 = range(1, 5)
    r8.setrange(1, 10, 0)
    assert(false, "should raise")
except .. as e, m
    assert(e == 'value_error')
end