Board : implement specs

2 files changed, 64 insertions, 63 deletions

diff --git a/lib/colonial_twilight/board.rb b/lib/colonial_twilight/board.rb
index 4acf9b3..5fc46b7 100644
--- a/lib/colonial_twilight/board.rb
+++ b/lib/colonial_twilight/board.rb
@@ -690,66 +690,3 @@ end
 # class ColonialTwilight::Sector
 #   undef :adjacents=
 # end
-
-if $PROGRAM_NAME == __FILE__
-  def check(board)
-    # puts '--- Coastal'
-    # board.spaces.select{ |s| s.coastal? }.each { |s| puts s.name }
-    raise 'coastal sectors error' if board.spaces.select(&:coastal?).size != 14
-    # puts '--- not Mountain'
-    # board.spaces.select{ |s| not s.mountain? }.each { |s| puts s.name }
-    raise 'not moauntain sectors error' if board.spaces.reject(&:mountain?).size != 9
-    # puts '--- Border'
-    # board.spaces.select{ |s| s.border? }.each { |s| puts s.name }
-    raise 'border sectors error' if board.spaces.select(&:border?).size != 9
-    # puts '--- City'
-    # board.spaces.select{ |s| s.city? }.each { |s| puts s.name }
-    raise 'city sectors error' if board.spaces.select(&:city?).size != 3
-
-    [[0, 11], [1, 9], [2, 9], [3, 1]].each do |p, n|
-      # puts "--- Population #{p}"
-      # board.spaces.select{ |s| s.pop==p }.each { |s| puts s.name }
-      raise "population #{p} error" if board.spaces.select { |s| s.pop == p }.size != n
-    end
-    raise 'sectors count wrong' if board.sectors.size != 28
-  end
-
-  def check_forces what, board, vals
-    sup, opp, gov, fln = 0, 0, 0, 0
-    ft, fp, at, ap, g = 0, 0, 0, 0, 0
-    gb, fb = 0, 0
-    board.spaces.each do |s|
-      sup += 1 if s.alignment == :support
-      opp += 1 if s.alignment == :oppose
-      gov += 1 if s.control == :GOV
-      fln += 1 if s.control == :FLN
-      unless s.country?
-        ft += s.french_troops
-        fp += s.french_police
-        at += s.algerian_troops
-        ap += s.algerian_police
-        gb += s.gov_bases
-      end
-      g += s.fln_underground
-      fb += s.fln_bases
-    end
-    raise "wrong support #{sup} != #{vals[0]}" if sup != vals[0]
-    raise "wrong oppose #{opp} != #{vals[1]}" if opp != vals[1]
-    raise "wrong GOV control #{gov} != #{vals[2]}" if gov != vals[2]
-    raise "wrong FLN control #{fln} != #{vals[3]}" if fln != vals[3]
-    raise "wrong french troops #{ft} != #{vals[4]}" if ft != vals[4]
-    raise "wrong french police  #{fp} != #{vals[5]}" if fp != vals[5]
-    raise "wrong algerian troops #{at} != #{vals[6]}" if at != vals[6]
-    raise "wrong algerian police #{ap} != #{vals[7]}" if ap != vals[7]
-    raise "wrong Guerrillas #{g} != #{vals[8]}" if g != vals[8]
-    raise "wrong GOV bases #{gb} != #{vals[9]}" if gb != vals[9]
-    raise "wrong FLN bases #{fb} != #{vals[10]}" if fb != vals[10]
-  end
-
-  b = ColonialTwilight::Board.new
-  puts 'check'
-  check b
-  b.load :short
-  check_forces 'short', b, [3, 7, 16, 3, 9, 17, 3, 7, 17, 4, 8]
-  puts 'ok'
-end
diff --git a/spec/board_spec.rb b/spec/board_spec.rb
new file mode 100644
index 0000000..d1defd4
--- /dev/null
+++ b/spec/board_spec.rb
@@ -0,0 +1,64 @@
+# frozen_string_literal: true
+
+require './lib/colonial_twilight/board'
+
+def compute(board)
+  vals = [0] * 11
+  board.spaces.each do |s|
+    vals[0] += 1 if s.alignment == :support
+    vals[1] += 1 if s.alignment == :oppose
+    vals[2] += 1 if s.control == :GOV
+    vals[3] += 1 if s.control == :FLN
+    unless s.country?
+      vals[4] += s.french_troops
+      vals[5] += s.french_police
+      vals[6] += s.algerian_troops
+      vals[7] += s.algerian_police
+      vals[8] += s.gov_bases
+    end
+    vals[9] += s.fln_underground
+    vals[10] += s.fln_bases
+  end
+  vals
+end
+
+describe ColonialTwilight::Board do
+
+  describe 'board setup' do
+    board = ColonialTwilight::Board.new
+    it 'has spaces' do expect(board.spaces.size).to eq(30) end
+    it 'has sectors' do expect(board.sectors.size).to eq(28) end
+    it 'has country sectors' do expect(board.spaces.select(&:country?).size).to eq(2) end
+    it 'has coastal sectors' do expect(board.spaces.select(&:coastal?).size).to eq(14) end
+    it 'has border sectors' do expect(board.spaces.select(&:border?).size).to eq(9) end
+    it 'has mountain sectors' do expect(board.spaces.select(&:mountain?).size).to eq(21) end
+    it 'has no mountain sectors' do expect(board.spaces.reject(&:mountain?).size).to eq(9) end
+    it 'has city sectors' do expect(board.spaces.select(&:city?).size).to eq(3) end
+    it 'has 0 pop sectors' do expect(board.spaces.select { |s| s.pop == 0 }.size).to eq(11) end
+    it 'has 1 pop sectors' do expect(board.spaces.select { |s| s.pop == 1 }.size).to eq(9) end
+    it 'has 2 pop sectors' do expect(board.spaces.select { |s| s.pop == 2 }.size).to eq(9) end
+    it 'has 3 pop sectors' do expect(board.spaces.select { |s| s.pop == 3 }.size).to eq(1) end
+  end
+
+  describe 'short scenario setup' do
+    board = ColonialTwilight::Board.new
+    board.load :short
+    it 'has 0 pop sectors' do expect(board.spaces.select { |s| s.pop == 0 }.size).to eq(14) end
+    it 'has 1 pop sectors' do expect(board.spaces.select { |s| s.pop == 1 }.size).to eq(6) end
+    it 'countries are independent' do expect(board.spaces.select(&:country?).select(&:independent?).size).to eq(2) end
+    vals = compute board
+    it 'total support' do expect(vals[0]).to eq(3) end
+    it 'total opposition' do expect(vals[1]).to eq(7) end
+    it 'total GOV control' do expect(vals[2]).to eq(16) end
+    it 'total FLN control' do expect(vals[3]).to eq(3) end
+    it 'total french troops' do expect(vals[4]).to eq(9) end
+    it 'total french police' do expect(vals[5]).to eq(17) end
+    it 'total algerian troops' do expect(vals[6]).to eq(3) end
+    it 'total algerian police' do expect(vals[7]).to eq(7) end
+    it 'total GOV bases' do expect(vals[8]).to eq(4) end
+    it 'total FLN undergound' do expect(vals[9]).to eq(17) end
+    it 'total FLN bases' do expect(vals[10]).to eq(8) end
+    it 'oppositon + bases' do expect(board.opposition_bases).to eq(19) end
+    it 'support + commitment' do expect(board.support_commitment).to eq (22) end
+  end
+end