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
|
require 'test_helper'
class MultisetTest < GSL::TestCase
def test_multiset
return if GSL::VERSION < '1.14'
c63 = [ [0, 0, 0], [0, 0, 1], [0, 0, 2], [0, 0, 3], [0, 0, 4], [0, 0, 5],
[0, 1, 1], [0, 1, 2], [0, 1, 3], [0, 1, 4], [0, 1, 5],
[0, 2, 2], [0, 2, 3], [0, 2, 4], [0, 2, 5],
[0, 3, 3], [0, 3, 4], [0, 3, 5],
[0, 4, 4], [0, 4, 5],
[0, 5, 5],
[1, 1, 1], [1, 1, 2], [1, 1, 3], [1, 1, 4], [1, 1, 5],
[1, 2, 2], [1, 2, 3], [1, 2, 4], [1, 2, 5],
[1, 3, 3], [1, 3, 4], [1, 3, 5],
[1, 4, 4], [1, 4, 5],
[1, 5, 5],
[2, 2, 2], [2, 2, 3], [2, 2, 4], [2, 2, 5],
[2, 3, 3], [2, 3, 4], [2, 3, 5],
[2, 4, 4], [2, 4, 5],
[2, 5, 5],
[3, 3, 3], [3, 3, 4], [3, 3, 5],
[3, 4, 4], [3, 4, 5],
[3, 5, 5],
[4, 4, 4], [4, 4, 5],
[4, 5, 5],
[5, 5, 5] ]
c = GSL::Multiset.alloc(6, 3)
c.init_first
status = i = 0
loop {
if i >= 56
status = 1
break
end
3.times { |j| status |= c.data[j] != c63[i][j] ? 0 : 1 }
assert c.valid, "gsl_multiset_valid(#{i})"
i += 1
break if c.next != GSL::SUCCESS
}
refute status.zero?
end
end
|
