-
-
Notifications
You must be signed in to change notification settings - Fork 571
/
util_test.rb
executable file
·300 lines (258 loc) · 8.74 KB
/
util_test.rb
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
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
#!/usr/bin/env ruby
require File.dirname(__FILE__) + '/test_helper'
require 'pathname'
class UtilTest < Test::Unit::TestCase
include Haml::Util
class Dumpable
attr_reader :arr
def initialize; @arr = []; end
def _before_dump; @arr << :before; end
def _after_dump; @arr << :after; end
def _around_dump
@arr << :around_before
yield
@arr << :around_after
end
def _after_load; @arr << :loaded; end
end
def test_scope
assert(File.exist?(scope("Rakefile")))
end
def test_to_hash
assert_equal({
:foo => 1,
:bar => 2,
:baz => 3
}, to_hash([[:foo, 1], [:bar, 2], [:baz, 3]]))
end
def test_map_keys
assert_equal({
"foo" => 1,
"bar" => 2,
"baz" => 3
}, map_keys({:foo => 1, :bar => 2, :baz => 3}) {|k| k.to_s})
end
def test_map_vals
assert_equal({
:foo => "1",
:bar => "2",
:baz => "3"
}, map_vals({:foo => 1, :bar => 2, :baz => 3}) {|k| k.to_s})
end
def test_map_hash
assert_equal({
"foo" => "1",
"bar" => "2",
"baz" => "3"
}, map_hash({:foo => 1, :bar => 2, :baz => 3}) {|k, v| [k.to_s, v.to_s]})
end
def test_powerset
return unless Set[Set[]] == Set[Set[]] # There's a bug in Ruby 1.8.6 that breaks nested set equality
assert_equal([[].to_set].to_set,
powerset([]))
assert_equal([[].to_set, [1].to_set].to_set,
powerset([1]))
assert_equal([[].to_set, [1].to_set, [2].to_set, [1, 2].to_set].to_set,
powerset([1, 2]))
assert_equal([[].to_set, [1].to_set, [2].to_set, [3].to_set,
[1, 2].to_set, [2, 3].to_set, [1, 3].to_set, [1, 2, 3].to_set].to_set,
powerset([1, 2, 3]))
end
def test_restrict
assert_equal(0.5, restrict(0.5, 0..1))
assert_equal(1, restrict(2, 0..1))
assert_equal(1.3, restrict(2, 0..1.3))
assert_equal(0, restrict(-1, 0..1))
end
def test_merge_adjacent_strings
assert_equal(["foo bar baz", :bang, "biz bop", 12],
merge_adjacent_strings(["foo ", "bar ", "baz", :bang, "biz", " bop", 12]))
str = "foo"
assert_equal(["foo foo foo", :bang, "foo foo", 12],
merge_adjacent_strings([str, " ", str, " ", str, :bang, str, " ", str, 12]))
end
def test_intersperse
assert_equal(["foo", " ", "bar", " ", "baz"],
intersperse(%w[foo bar baz], " "))
assert_equal([], intersperse([], " "))
end
def test_substitute
assert_equal(["foo", "bar", "baz", 3, 4],
substitute([1, 2, 3, 4], [1, 2], ["foo", "bar", "baz"]))
assert_equal([1, "foo", "bar", "baz", 4],
substitute([1, 2, 3, 4], [2, 3], ["foo", "bar", "baz"]))
assert_equal([1, 2, "foo", "bar", "baz"],
substitute([1, 2, 3, 4], [3, 4], ["foo", "bar", "baz"]))
assert_equal([1, "foo", "bar", "baz", 2, 3, 4],
substitute([1, 2, 2, 2, 3, 4], [2, 2], ["foo", "bar", "baz"]))
end
def test_strip_string_array
assert_equal(["foo ", " bar ", " baz"],
strip_string_array([" foo ", " bar ", " baz "]))
assert_equal([:foo, " bar ", " baz"],
strip_string_array([:foo, " bar ", " baz "]))
assert_equal(["foo ", " bar ", :baz],
strip_string_array([" foo ", " bar ", :baz]))
end
def test_paths
assert_equal([[1, 3, 5], [2, 3, 5], [1, 4, 5], [2, 4, 5]],
paths([[1, 2], [3, 4], [5]]))
assert_equal([[]], paths([]))
assert_equal([[1, 2, 3]], paths([[1], [2], [3]]))
end
def test_lcs
assert_equal([1, 2, 3], lcs([1, 2, 3], [1, 2, 3]))
assert_equal([], lcs([], [1, 2, 3]))
assert_equal([], lcs([1, 2, 3], []))
assert_equal([1, 2, 3], lcs([5, 1, 4, 2, 3, 17], [0, 0, 1, 2, 6, 3]))
assert_equal([1], lcs([1, 2, 3, 4], [4, 3, 2, 1]))
assert_equal([1, 2], lcs([1, 2, 3, 4], [3, 4, 1, 2]))
end
def test_lcs_with_block
assert_equal(["1", "2", "3"],
lcs([1, 4, 2, 5, 3], [1, 2, 3]) {|a, b| a == b && a.to_s})
assert_equal([-4, 2, 8],
lcs([-5, 3, 2, 8], [-4, 1, 8]) {|a, b| (a - b).abs <= 1 && [a, b].max})
end
def test_silence_warnings
old_stderr, $stderr = $stderr, StringIO.new
warn "Out"
assert_equal("Out\n", $stderr.string)
silence_warnings {warn "In"}
assert_equal("Out\n", $stderr.string)
ensure
$stderr = old_stderr
end
def test_haml_warn
assert_warning("Foo!") {haml_warn "Foo!"}
end
def test_silence_haml_warnings
old_stderr, $stderr = $stderr, StringIO.new
silence_haml_warnings {warn "Out"}
assert_equal("Out\n", $stderr.string)
silence_haml_warnings {haml_warn "In"}
assert_equal("Out\n", $stderr.string)
ensure
$stderr = old_stderr
end
def test_has
assert(has?(:instance_method, String, :chomp!))
assert(has?(:private_instance_method, Haml::Engine, :set_locals))
end
def test_enum_with_index
assert_equal(%w[foo0 bar1 baz2],
enum_with_index(%w[foo bar baz]).map {|s, i| "#{s}#{i}"})
end
def test_enum_cons
assert_equal(%w[foobar barbaz],
enum_cons(%w[foo bar baz], 2).map {|s1, s2| "#{s1}#{s2}"})
end
def test_ord
assert_equal(102, ord("f"))
assert_equal(98, ord("bar"))
end
def test_flatten
assert_equal([1, 2, 3], flatten([1, 2, 3], 0))
assert_equal([1, 2, 3], flatten([1, 2, 3], 1))
assert_equal([1, 2, 3], flatten([1, 2, 3], 2))
assert_equal([[1, 2], 3], flatten([[1, 2], 3], 0))
assert_equal([1, 2, 3], flatten([[1, 2], 3], 1))
assert_equal([1, 2, 3], flatten([[1, 2], 3], 2))
assert_equal([[[1], 2], [3], 4], flatten([[[1], 2], [3], 4], 0))
assert_equal([[1], 2, 3, 4], flatten([[[1], 2], [3], 4], 1))
assert_equal([1, 2, 3, 4], flatten([[[1], 2], [3], 4], 2))
end
def test_set_hash
assert(set_hash(Set[1, 2, 3]) == set_hash(Set[3, 2, 1]))
assert(set_hash(Set[1, 2, 3]) == set_hash(Set[1, 2, 3]))
s1 = Set[]
s1 << 1
s1 << 2
s1 << 3
s2 = Set[]
s2 << 3
s2 << 2
s2 << 1
assert(set_hash(s1) == set_hash(s2))
end
def test_set_eql
assert(set_eql?(Set[1, 2, 3], Set[3, 2, 1]))
assert(set_eql?(Set[1, 2, 3], Set[1, 2, 3]))
s1 = Set[]
s1 << 1
s1 << 2
s1 << 3
s2 = Set[]
s2 << 3
s2 << 2
s2 << 1
assert(set_eql?(s1, s2))
end
def test_caller_info
assert_equal(["/tmp/foo.rb", 12, "fizzle"], caller_info("/tmp/foo.rb:12: in `fizzle'"))
assert_equal(["/tmp/foo.rb", 12, nil], caller_info("/tmp/foo.rb:12"))
assert_equal(["(haml)", 12, "blah"], caller_info("(haml):12: in `blah'"))
assert_equal(["", 12, "boop"], caller_info(":12: in `boop'"))
assert_equal(["/tmp/foo.rb", -12, "fizzle"], caller_info("/tmp/foo.rb:-12: in `fizzle'"))
assert_equal(["/tmp/foo.rb", 12, "fizzle"], caller_info("/tmp/foo.rb:12: in `fizzle {}'"))
end
def test_version_gt
assert_version_gt("2.0.0", "1.0.0")
assert_version_gt("1.1.0", "1.0.0")
assert_version_gt("1.0.1", "1.0.0")
assert_version_gt("1.0.0", "1.0.0.rc")
assert_version_gt("1.0.0.1", "1.0.0.rc")
assert_version_gt("1.0.0.rc", "0.9.9")
assert_version_gt("1.0.0.beta", "1.0.0.alpha")
assert_version_eq("1.0.0", "1.0.0")
assert_version_eq("1.0.0", "1.0.0.0")
end
def assert_version_gt(v1, v2)
#assert(version_gt(v1, v2), "Expected #{v1} > #{v2}")
assert(!version_gt(v2, v1), "Expected #{v2} < #{v1}")
end
def assert_version_eq(v1, v2)
assert(!version_gt(v1, v2), "Expected #{v1} = #{v2}")
assert(!version_gt(v2, v1), "Expected #{v2} = #{v1}")
end
def test_dump_and_load
obj = Dumpable.new
data = dump(obj)
assert_equal([:before, :around_before, :around_after, :after], obj.arr)
obj2 = load(data)
assert_equal([:before, :around_before, :loaded], obj2.arr)
end
class FooBar
def foo
Haml::Util.abstract(self)
end
end
def test_abstract
assert_raise_message(NotImplementedError,
"UtilTest::FooBar must implement #foo") {FooBar.new.foo}
end
def test_def_static_method
klass = Class.new
def_static_method(klass, :static_method, [:arg1, :arg2],
:sarg1, :sarg2, <<RUBY)
s = "Always " + arg1
s << " <% if sarg1 %>and<% else %>but never<% end %> " << arg2
<% if sarg2 %>
s << "."
<% end %>
RUBY
c = klass.new
assert_equal("Always brush your teeth and comb your hair.",
c.send(static_method_name(:static_method, true, true),
"brush your teeth", "comb your hair"))
assert_equal("Always brush your teeth and comb your hair",
c.send(static_method_name(:static_method, true, false),
"brush your teeth", "comb your hair"))
assert_equal("Always brush your teeth but never play with fire.",
c.send(static_method_name(:static_method, false, true),
"brush your teeth", "play with fire"))
assert_equal("Always brush your teeth but never play with fire",
c.send(static_method_name(:static_method, false, false),
"brush your teeth", "play with fire"))
end
end