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
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
#--
# This file is part of Sonic Pi: http://sonic-pi.net
# Full project source: https://github.com/samaaron/sonic-pi
# License: https://github.com/samaaron/sonic-pi/blob/master/LICENSE.md
#
# Copyright 2013, 2014, 2015, 2016 by Sam Aaron (http://sam.aaron.name).
# All rights reserved.
#
# Permission is granted for use, copying, modification, and
# distribution of modified versions of this work as long as this
# notice is included.
#++
require_relative "../../setup_test"
require_relative "../../../lib/sonicpi/lang/core"
module SonicPi
class TickTester < Minitest::Test
include SonicPi::Lang::Core
def test_tick_basic_reset
tick_reset
assert_equal(0, look)
end
def test_tick_set
tick_reset_all
tick_set 40
assert_equal(40, look)
end
def test_tick_set_return_val
tick_reset_all
assert_equal(40, tick_set(40))
end
def test_tick_reset_return_val
tick_reset_all
assert_equal(nil, tick_reset)
end
def test_tick_reset_all_return_val
assert_equal(nil, tick_reset_all)
end
def test_tick_reset_all
tick_reset_all
assert_equal(0, look)
assert_equal(0, look(:foo))
assert_equal(0, look(:bar))
assert_equal(0, look(:baz))
assert_equal(0, tick)
assert_equal(0, tick(:foo))
assert_equal(0, tick(:bar))
assert_equal(0, tick(:baz))
assert_equal(1, tick)
assert_equal(1, tick(:foo))
assert_equal(1, tick(:bar))
assert_equal(1, tick(:baz))
tick_reset_all
assert_equal(0, look)
assert_equal(0, look(:foo))
assert_equal(0, look(:bar))
assert_equal(0, look(:baz))
end
def test_basic_tick_behaviour
tick_reset_all
assert_equal(0, tick)
assert_equal(1, tick)
assert_equal(2, tick)
assert_equal(3, tick)
tick_reset
assert_equal(0, tick)
end
def test_basic_look_behaviour
tick_reset_all
assert_equal(0, tick)
assert_equal(0, look)
assert_equal(1, tick)
assert_equal(1, look)
assert_equal(2, tick)
assert_equal(2, look)
assert_equal(3, tick)
assert_equal(3, look)
tick_reset
assert_equal(0, look)
assert_equal(0, tick)
assert_equal(0, look)
end
def test_keyed_ticks
tick_reset_all
assert_equal(0, tick(:foo))
assert_equal(1, tick(:foo))
assert_equal(2, tick(:foo))
assert_equal(0, tick(:bar))
assert_equal(0, tick(:baz))
assert_equal(3, tick(:foo))
assert_equal(1, tick(:bar))
assert_equal(1, tick(:baz))
tick_reset # does not affect keyed ticks
assert_equal(4, tick(:foo))
assert_equal(2, tick(:bar))
assert_equal(2, tick(:baz))
tick_reset_all #affects all ticks of all keys
assert_equal(0, tick(:foo))
assert_equal(0, tick(:bar))
assert_equal(0, tick(:baz))
end
def test_string_keyed_ticks
tick_reset_all
assert_equal(0, tick("foo"))
assert_equal(1, tick(:foo))
assert_equal(1, look("foo"))
assert_equal(1, look(:foo))
end
def test_incremented_ticks
tick_reset_all
# adding an increment value is the same as calling tick n times:
tick(:foo, step: 5)
5.times do
tick
end
assert_equal(4, look(:foo))
assert_equal(4, look)
assert_equal(5, tick(:foo))
assert_equal(5, look(:foo))
assert_equal(5, tick)
assert_equal(5, look)
tick(:foo, step: 5)
5.times do
tick
end
assert_equal(10, look(:foo))
assert_equal(10, look)
end
def test_decremented_ticks
tick_reset_all
5.times do
tick
end
assert_equal(4, look)
tick(step: -1)
assert_equal(3, look)
assert_equal(4, tick)
tick(step: -10)
assert_equal(-6, look)
end
end
end
|
