OSDN Git Service

Changing the directory name
[shogi-server/shogi-server.git] / test2 / TC_floodgate.rb
1 require 'test/unit'
2 load '../shogi-server/shogi-server'
3 require '../shogi-server/pairing' 
4
5 class MockLogger
6   def debug(str)
7   end
8   def info(str)
9     # puts str
10   end
11   def warn(str)
12   end
13   def error(str)
14   end
15 end
16
17 $logger = MockLogger.new
18
19 class TestFloodgate < Test::Unit::TestCase
20   def setup
21     @fg = ShogiServer::League::Floodgate.new(nil)
22   end
23
24   def teardown
25
26   end
27
28   def test_game_name
29     assert(ShogiServer::League::Floodgate.game_name?("floodgate-900-0"))
30     assert(ShogiServer::League::Floodgate.game_name?("floodgate-0-10"))
31     assert(!ShogiServer::League::Floodgate.game_name?("floodgat-900-0"))
32   end
33
34 end
35
36 class TestPairing < Test::Unit::TestCase  
37   def setup
38     @pairing= ShogiServer::Pairing.new
39     @a = ShogiServer::BasicPlayer.new
40     @a.win  = 1
41     @a.loss = 2
42     @a.rate = 0
43     @b = ShogiServer::BasicPlayer.new
44     @b.win  = 10
45     @b.loss = 20
46     @b.rate = 1500
47     @c = ShogiServer::BasicPlayer.new
48     @c.win  = 100
49     @c.loss = 200
50     @c.rate = 1000
51   end
52
53   def test_delete_most_playing_player
54     players = [@a, @b, @c]
55     @pairing.delete_most_playing_player(players)
56     assert_equal([@a,@b], players)
57   end
58
59   def test_delete_least_rate_player
60     players = [@a, @b, @c]
61     @pairing.delete_least_rate_player(players)
62     assert_equal([@b,@c], players)
63   end
64 end
65
66 class TestRandomPairing < Test::Unit::TestCase  
67   def setup
68     @pairing= ShogiServer::RandomPairing.new
69     $called = 0
70     def @pairing.start_game(p1,p2)
71       $called += 1
72     end
73     @a = ShogiServer::BasicPlayer.new
74     @a.win  = 1
75     @a.loss = 2
76     @b = ShogiServer::BasicPlayer.new
77     @b.win  = 10
78     @b.loss = 20
79     @c = ShogiServer::BasicPlayer.new
80     @c.win  = 100
81     @c.loss = 200
82   end
83
84   def test_random_match_1
85     players = [@a]
86     @pairing.match(players)
87     assert_equal(0, $called)
88   end
89
90   def test_random_match_2
91     players = [@a,@b]
92     @pairing.match(players)
93     assert_equal(1, $called)
94   end
95   
96   def test_random_match_3
97     players = [@a, @b, @c]
98     @pairing.match(players)
99     assert_equal(1, $called)
100   end
101 end
102
103 class TestSwissPairing < Test::Unit::TestCase  
104   def setup
105     @pairing= ShogiServer::SwissPairing.new
106     $pairs = []
107     def @pairing.start_game(p1,p2)
108       $pairs << [p1,p2]
109     end
110     @a = ShogiServer::BasicPlayer.new
111     @a.name = "a"
112     @a.win  = 1
113     @a.loss = 2
114     @a.rate = 0
115     @a.last_game_win = false
116     @b = ShogiServer::BasicPlayer.new
117     @b.name = "b"
118     @b.win  = 10
119     @b.loss = 20
120     @b.rate = 1500
121     @b.last_game_win = true
122     @c = ShogiServer::BasicPlayer.new
123     @c.name = "c"
124     @c.win  = 100
125     @c.loss = 200
126     @c.rate = 1000
127     @c.last_game_win = true
128     @d = ShogiServer::BasicPlayer.new
129     @d.name = "d"
130     @d.win  = 1000
131     @d.loss = 2000
132     @d.rate = 1800
133     @d.last_game_win = true
134   end
135
136   def sort(players)
137     return players.sort{|a,b| a.name <=> b.name}
138   end
139
140   def test_include_newbie
141     assert(@pairing.include_newbie?([@a]))
142     assert(!@pairing.include_newbie?([@b]))
143     assert(@pairing.include_newbie?([@b,@a]))
144     assert(!@pairing.include_newbie?([@b,@c]))
145   end
146
147   def test_match_1
148     @pairing.match([@a])
149     assert_equal(0, $pairs.size)
150   end
151   
152   def test_match_2
153     @pairing.match([@b])
154     assert_equal(0, $pairs.size)
155   end
156   
157   def test_match_3
158     @pairing.match([@a,@b])
159     assert_equal(1, $pairs.size)
160     assert_equal(sort([@a,@b]), sort($pairs.first))
161   end
162   
163   def test_match_4
164     @pairing.match([@c,@b])
165     assert_equal(1, $pairs.size)
166     assert_equal(sort([@b,@c]), sort($pairs.first))
167   end
168   
169   def test_match_5
170     @pairing.match([@c,@b,@a])
171     assert_equal(1, $pairs.size)
172     assert_equal(sort([@b,@c]), sort($pairs.first))
173   end
174   
175   def test_match_6
176     @pairing.match([@c,@b,@a,@d])
177     assert_equal(2, $pairs.size)
178     assert_equal(sort([@b,@d]), sort($pairs.first))
179     assert_equal(sort([@a,@c]), sort($pairs.last))
180   end
181 end
182
183 class TestExcludeSacrifice < Test::Unit::TestCase  
184   class Dummy
185     attr_reader :players
186     def match(players)
187       @players = players
188     end
189   end
190   
191   def setup
192     @dummy = Dummy.new
193     @obj = ShogiServer::ExcludeSacrifice.new(@dummy)
194     @a = ShogiServer::BasicPlayer.new
195     @a.player_id   = "a"
196     @a.name = "a"
197     @a.win  = 1
198     @a.loss = 2
199     @a.rate = 0
200     @a.last_game_win = false
201     @b = ShogiServer::BasicPlayer.new
202     @b.player_id   = "gps500+e293220e3f8a3e59f79f6b0efffaa931"
203     @b.name = "b"
204     @b.win  = 10
205     @b.loss = 20
206     @b.rate = 1500
207     @b.last_game_win = true
208     @c = ShogiServer::BasicPlayer.new
209     @c.player_id   = "c"
210     @c.name = "c"
211     @c.win  = 100
212     @c.loss = 200
213     @c.rate = 1000
214     @c.last_game_win = true
215   end
216
217   def test_match_1
218     @obj.match([@a])
219     assert_equal(1, @dummy.players.size)
220   end
221   
222   def test_match_2
223     @obj.match([@b])
224     assert_equal(0, @dummy.players.size)
225   end
226   
227   def test_match_3
228     @obj.match([@a, @b])
229     assert_equal(2, @dummy.players.size)
230   end
231
232   def test_match_4
233     @obj.match([@a, @b, @c])
234     assert_equal(2, @dummy.players.size)
235   end
236
237   def test_match_5
238     @obj.match([@a, @c])
239     assert_equal(2, @dummy.players.size)
240   end
241 end
242