icu_tournament 0.8.9

data/spec/tournament_krause_spec.rb

@@ -0,0 +1,379 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+module ICU
+  class Tournament
+    describe Krause do
+      def check_player(num, first, last, other={})
+        p = @t.player(num)
+        p.first_name.should == first
+        p.last_name.should  == last
+        p.gender.should     == other[:gender]
+        p.title.should      == other[:title]
+        p.rating.should     == other[:rating]
+        p.fed.should        == other[:fed]
+        p.id.should         == other[:id]
+        p.dob.should        == other[:dob]
+        p.rank.should       == other[:rank]
+      end
+      
+      def check_results(num, results, points)
+        p = @t.player(num)
+        p.results.size.should == results
+        p.points.should == points
+      end
+      
+      context "a typical tournament" do
+        before(:all) do
+          krause = <<KRAUSE
+012 Las Vegas National Open
+022 Las Vegas
+032 USA
+042 2008.06.07
+052 2008.06.09
+062 3
+072 3
+082 1
+092 All-Play-All
+102 Hans Scmidt
+112 Gerry Graham, Herbert Scarry
+122 60 in 2hr, 30 in 1hr, rest in 1hr
+013 Coaching Team                      1    2    3
+0         1         2         3         4         5         6         7         8         9         0         1         2
+0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
+132                                                                                        08.06.07  08.06.08  08.06.09
+001    1 w    Ui Laighleis,Gearoidin            1985 IRL     2501171 1964.06.10  1.0    2     2 b 0     3 w 1          
+001    2 m  m Orr,Mark                          2258 IRL     2500035 1955.11.09  2.0    1     1 w 1               3 b 1
+001    3 m  g Bologan,Viktor                    2663 MDA    13900048 1971.01.01  0.0    3               1 b 0     2 w 0
+KRAUSE
+          @p = ICU::Tournament::Krause.new
+          @t = @p.parse!(krause)
+        end
+        
+        it "should have a name, city and federation" do
+          @t.name.should == 'Las Vegas National Open'
+          @t.city.should == 'Las Vegas'
+          @t.fed.should  == 'USA'
+        end
+        
+        it "should have start and end dates" do
+          @t.start.should  == '2008-06-07'
+          @t.finish.should == '2008-06-09'
+        end
+        
+        it "should have a number of rounds, a type and a time control" do
+          @t.rounds.should       == 3
+          @t.last_round.should   == 3
+          @t.type.should         == 'All-Play-All'
+          @t.time_control.should == '60 in 2hr, 30 in 1hr, rest in 1hr'
+        end
+        
+        it "should have an arbiter and deputies" do
+          @t.arbiter.should == 'Hans Scmidt'
+          @t.deputy.should  == 'Gerry Graham, Herbert Scarry'
+        end
+        
+        it "should have players and their details" do
+          @t.should have(3).players
+          check_player(1, 'Gearoidin', 'Ui Laighleis', :gender => 'F', :rating => 1985, :fed => 'IRL', :id =>  2501171, :dob => '1964-06-10', :rank => 2)
+          check_player(2, 'Mark', 'Orr',               :gender => 'M', :rating => 2258, :fed => 'IRL', :id =>  2500035, :dob => '1955-11-09', :rank => 1, :title => 'IM')
+          check_player(3, 'Viktor', 'Bologan',         :gender => 'M', :rating => 2663, :fed => 'MDA', :id => 13900048, :dob => '1971-01-01', :rank => 3, :title => 'GM')
+        end
+        
+        it "should have correct results for each player" do
+          check_results(1, 2, 1.0)
+          check_results(2, 2, 2.0)
+          check_results(3, 2, 0.0)
+        end
+        
+        it "should have correct round dates" do
+          @t.round_dates.join('|').should == '2008-06-07|2008-06-08|2008-06-09'
+        end
+        
+        it "the parser should retain comment lines" do
+          comments = <<COMMENTS
+062 3
+072 3
+082 1
+0         1         2         3         4         5         6         7         8         9         0         1         2
+0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
+COMMENTS
+          @p.comments.should == comments
+        end
+      end
+      
+      context "the documentation example" do
+        before(:all) do
+          krause = <<KRAUSE
+012 Fantasy Tournament
+032 IRL
+042 2009.09.09
+0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
+132                                                                                        09.09.09  09.09.10  09.09.11
+001    1 w    Mouse,Minerva                     1900 USA     1234567 1928.05.15  1.0    2     2 b 0     3 w 1          
+001    2 m  m Duck,Daffy                        2200 IRL     7654321 1937.04.17  2.0    1     1 w 1               3 b 1
+001    3 m  g Mouse,Mickey                      2600 USA     1726354 1928.05.15  0.0    3               1 b 0     2 w 0
+KRAUSE
+          @p = ICU::Tournament::Krause.new
+          @t = @p.parse!(krause)
+        end
+
+        it "should have a name and federation" do
+          @t.name.should == 'Fantasy Tournament'
+          @t.fed.should  == 'IRL'
+        end
+
+        it "should have a various dates" do
+          @t.start.should  == '2009-09-09'
+          @t.finish.should  == '2009-09-11'
+          @t.round_dates.join('|').should == '2009-09-09|2009-09-10|2009-09-11'
+        end
+
+        it "should have a number of rounds" do
+          @t.rounds.should       == 3
+        end
+
+        it "should have players and their details" do
+          @t.should have(3).players
+          check_player(1, 'Minerva', 'Mouse', :gender => 'F', :rating => 1900, :fed => 'USA', :id => 1234567, :dob => '1928-05-15', :rank => 2)
+          check_player(2, 'Daffy',   'Duck',  :gender => 'M', :rating => 2200, :fed => 'IRL', :id => 7654321, :dob => '1937-04-17', :rank => 1, :title => 'IM')
+          check_player(3, 'Mickey',  'Mouse', :gender => 'M', :rating => 2600, :fed => 'USA', :id => 1726354, :dob => '1928-05-15', :rank => 3, :title => 'GM')
+        end
+
+        it "should have correct results for each player" do
+          check_results(1, 2, 1.0)
+          check_results(2, 2, 2.0)
+          check_results(3, 2, 0.0)
+        end
+
+        it "the parser should retain comment lines" do
+          @p.comments.should == "0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890\n"
+        end
+      end
+      
+      context "the README serialisation example" do
+        before(:all) do
+          @t = ICU::Tournament.new('World Championship', '1972-07-11')
+          @t.add_player(ICU::Player.new('Robert J.', 'Fischer', 1))
+          @t.add_player(ICU::Player.new('Boris V.', 'Spassky', 2))
+          @t.add_result(ICU::Result.new(1, 1, 'L', :opponent => 2, :colour => 'B'))
+          @t.add_result(ICU::Result.new(2, 1, 'L', :opponent => 2, :colour => 'W', :rateable => false))
+          @t.add_result(ICU::Result.new(3, 1, 'W', :opponent => 2, :colour => 'B'))
+          @t.add_result(ICU::Result.new(4, 1, 'W', :opponent => 2, :colour => 'B'))
+          serializer = ICU::Tournament::Krause.new
+          @k = serializer.serialize(@t)
+        end
+
+        it "should produce a valid tournament" do
+          @t.invalid.should be_false
+        end
+        
+        it "should produce output that looks reasonable" do
+          @k.should match(/Fischer,Robert J\./)
+        end
+      end
+      
+      context "serialisation" do
+        before(:all) do
+          @krause = <<KRAUSE
+012 Las Vegas National Open
+022 Las Vegas
+032 USA
+042 2008-06-07
+052 2008-06-10
+092 All-Play-All
+102 Hans Scmidt
+112 Gerry Graham, Herbert Scarry
+122 60 in 2hr, 30 in 1hr, rest in 1hr
+013 Boys                               2    3
+013 Girls                              1    4
+132                                                                                        08-06-07  08-06-08  08-06-09
+001    1 w    Ui Laighleis,Gearoidin            1985 IRL     2501171 1964-06-10  2.0    2     2 b 0     3 w +     4 b 1
+001    2 m  m Orr,Mark                          2258 IRL     2500035 1955-11-09  2.5    1     1 w 1  0000 - =     3 b 1
+001    3 m  g Bologan,Viktor                    2663 MDA    13900048 1971-01-01  0.0    4               1 b -     2 w 0
+001    4   wg Cramling,Pia                      2500 SWE     1700030 1963-04-23  0.5    3            0000 - =     1 w 0
+KRAUSE
+          @p = ICU::Tournament::Krause.new
+          @t = @p.parse!(@krause)
+          @q = ICU::Tournament::Krause.new
+        end
+
+        it "should serialize back to the original if the input is fully canonicalised" do
+          @q.serialize(@t).should == @krause
+        end
+        
+        it "should serialize using the convenience method of the tournament object" do
+          @t.serialize('Krause').should == @krause
+        end
+
+        it "should return nil on invalid input" do
+          @q.serialize('Rubbish').should be_nil
+        end
+      end
+
+      context "auto-ranking" do
+        before(:all) do
+          @krause = <<KRAUSE
+012 Las Vegas National Open
+042 2008-06-07
+001    1 w    Ui Laighleis,Gearoidin            1985 IRL     2501171 1964-06-10  1.0          2 b 0     3 w 1
+001    2 m  m Orr,Mark                          2258 IRL     2500035 1955-11-09  2.0          1 w 1               3 b 1
+001    3 m  g Bologan,Viktor                    2663 MDA    13900048 1971-01-01  0.0                    1 b 0     2 w 0
+KRAUSE
+          @p = ICU::Tournament::Krause.new
+          @t = @p.parse!(@krause)
+        end
+
+        it "should have rankings automatically set" do
+          @t.player(1).rank.should == 2
+          @t.player(2).rank.should == 1
+          @t.player(3).rank.should == 3
+        end
+      end
+      
+      context "renumbering" do
+        before(:all) do
+          @krause = <<KRAUSE
+012 Las Vegas National Open
+042 2008-06-07
+001   10 w    Ui Laighleis,Gearoidin            1985 IRL                         1.0         20 b 0    30 w 1
+001   20 m  m Orr,Mark                          2258 IRL                         2.0         10 w 1              30 b 1
+001   30 m  g Bologan,Viktor                    2663 MDA                         0.0                   10 b 0    20 w 0
+KRAUSE
+          @p = ICU::Tournament::Krause.new
+          @t = @p.parse!(@krause)
+          @reordered = <<REORDERED
+012 Las Vegas National Open
+042 2008-06-07
+001    1 m  m Orr,Mark                          2258 IRL                         2.0    1     2 w 1               3 b 1
+001    2 w    Ui Laighleis,Gearoidin            1985 IRL                         1.0    2     1 b 0     3 w 1          
+001    3 m  g Bologan,Viktor                    2663 MDA                         0.0    3               2 b 0     1 w 0
+REORDERED
+        end
+      
+        it "should serialise correctly after renumbering by rank" do
+          @t.renumber
+          @p.serialize(@t).should == @reordered
+        end
+      end
+
+      context "serialisation of a manually build tournament" do
+        before(:all) do
+          @krause = <<KRAUSE
+012 Las Vegas National Open
+042 2008-06-07
+001    1 w    Ui Laighleis,Gearoidin            1985 IRL     2501171 1964-06-10  1.0          2 b 0     3 w 1          
+001    2    m Orr,Mark                          2258 IRL     2500035 1955-11-09  2.0          1 w 1               3 b 1
+001    3    g Bologan,Viktor                    2663 MDA    13900048 1971-01-01  0.0                    1 b 0     2 w 0
+KRAUSE
+          @p = ICU::Tournament::Krause.new
+          @t = ICU::Tournament.new('Las Vegas National Open', '2008-06-07')
+          @t.add_player(ICU::Player.new('Gearoidin', 'Ui Laighleis', 1, :rating => 1985, :id => 2501171,  :dob => '1964-06-10', :fed => 'IRL', :gender => 'f'))
+          @t.add_player(ICU::Player.new('Mark',      'Orr',          2, :rating => 2258, :id => 2500035,  :dob => '1955-11-09', :fed => 'IRL', :title => 'm'))
+          @t.add_player(ICU::Player.new('Viktor',    'Bologan',      3, :rating => 2663, :id => 13900048, :dob => '1971-01-01', :fed => 'MDA', :title => 'g'))
+          @t.add_result(ICU::Result.new(1, 1, 'L', :opponent => 2, :colour => 'B'))
+          @t.add_result(ICU::Result.new(2, 1, 'W', :opponent => 3, :colour => 'W'))
+          @t.add_result(ICU::Result.new(3, 2, 'W', :opponent => 3, :colour => 'B'))
+          @output = @p.serialize(@t)
+        end
+
+        it "should serialise manually build tournaments" do
+          @output.should == @krause
+        end
+      end
+
+      context "errors" do
+        before(:each) do
+          @k = <<KRAUSE
+012 Gonzaga Classic
+022 Dublin
+032 IRL
+042 2008-02-01
+052 2008-02-03
+062 12
+092 Swiss
+102 Michael Germaine, mlgermaine@eircom.net
+122 120 minutes per player per game
+001    1      Griffiths,Ryan Rhys                    IRL     2502054             4.0    1  0000 - =     3 b 1     8 w 1     5 b =     7 w 1
+001    2      Hotak,Marian                           SVK    14909677             3.5    2     3 w 0     6 b =    11 w 1     8 b 1     5 w 1
+001    3      Duffy,Seamus                           IRL                         3.0    3     2 b 1     1 w 0     4 w 1     6 b =     8 w =
+001    4      Cafolla,Peter                          IRL     2500884             3.0    4     7 b 1     5 w =     3 b 0    11 b +     6 w =
+001    5      Ferry,Edward                           SCO     2461587             3.0    5    10 b 1     4 b =     9 w 1     1 w =     2 b 0
+001    6      Boyle,Bernard                          IRL     2501830             3.0    6    12 b =     2 w =    10 b 1     3 w =     4 b =
+001    7      McCarthy,Tim                           IRL     2500710             2.5    7     4 w 0    10 w =    12 b +     9 b 1     1 b 0
+001    8      Benson,Oisin P.                        IRL     2501821             2.0    8  0000 - =    11 w 1     1 b 0     2 w 0     3 b =
+001    9      Murray,David B.                        IRL     2501511             2.0    9    11 b =    12 w +     5 b 0     7 w 0    10 w =
+001   10      Moser,Philippe                         SUI     1308041             1.5   10     5 w 0     7 b =     6 w 0  0000 - =     9 b =
+001   11      Barbosa,Paulo                          POR     1904612             1.5   11     9 w =     8 b 0     2 b 0     4 w -  0000 - +
+001   12      McCabe,Darren                          IRL     2500760             0.5   12     6 w =     9 b -     7 w -
+KRAUSE
+          @p = ICU::Tournament::Krause.new
+        end
+
+        it "the unaltered example is valid Krause" do
+          t = @p.parse(@k).should be_instance_of(ICU::Tournament)
+        end
+
+        it "removing the line on which the tournament name is specified should cause an error" do
+          @k.sub!('012 Gonzaga Classic', '')
+          lambda { t = @p.parse!(@k) }.should raise_error(/name missing/)
+        end
+
+        it "blanking the tournament name should cause an error" do
+          @k.sub!('Gonzaga Classic', '')
+          lambda { t = @p.parse!(@k) }.should raise_error(/name missing/)
+        end
+
+        it "blanking the start date should cause an error" do
+          @k.sub!('2008-02-01', '2008-02-04')
+          lambda { t = @p.parse!(@k) }.should raise_error(/start.*after.*end/)
+        end
+
+        it "the start cannot be later than the end date" do
+          @k.sub!('2008-02-01', '')
+          lambda { t = @p.parse!(@k) }.should raise_error(/start date missing/)
+        end
+
+        it "creating a duplicate player number should cause an error" do
+          @k.sub!('  2  ', '  1  ')
+          lambda { t = @p.parse!(@k) }.should raise_error(/player number/)
+        end
+
+        it "creating a duplicate rank number should not cause an error becuse the tournament will be reranked" do
+          @k.sub!('4.0    1', '4.0    2')
+          t = @p.parse!(@k)
+          t.player(1).rank.should == 1
+        end
+
+        it "referring to a non-existant player number should cause an error" do
+           @k.sub!(' 3 b 1', '33 b 1')
+           lambda { t = @p.parse!(@k) }.should raise_error(/opponent number/)
+        end
+
+        it "inconsistent colours should cause an error" do
+           @k.sub!('3 b 1', '3 w 1')
+           lambda { t = @p.parse!(@k) }.should raise_error(/result/)
+        end
+
+        it "inconsistent scores should cause an error" do
+           @k.sub!('3 b 1', '3 b =')
+           lambda { t = @p.parse!(@k) }.should raise_error(/result/)
+        end
+
+        it "inconsistent totals should cause an error" do
+           @k.sub!('4.0', '4.5')
+           lambda { t = @p.parse!(@k) }.should raise_error(/total/)
+        end
+
+        it "invalid federations should cause an error" do
+           @k.sub!('SCO', 'XYZ')
+           lambda { t = @p.parse!(@k) }.should raise_error(/federation/)
+        end
+
+        it "removing any player that somebody else has played should cause an error" do
+           @k.sub!(/^001   12.*$/, '')
+           lambda { t = @p.parse!(@k) }.should raise_error(/opponent/)
+        end
+      end
+    end
+  end
+end

data/spec/tournament_spec.rb

@@ -0,0 +1,733 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+module ICU
+  describe Tournament do
+    context "a basic tournament" do
+      it "has a name, start date, some players and some results" do
+        lambda do
+          t = Tournament.new('Bangor Bash', '2009-11-09')
+          t.add_player(Player.new('Bobby', 'Fischer', 1))
+          t.add_player(Player.new('Garry', 'Kasparov', 2))
+          t.add_player(Player.new('Mark', 'Orr', 3))
+          t.add_result(Result.new(1, 1, '=', :opponent => 2, :colour => 'W'))
+          t.add_result(Result.new(2, 2, 'L', :opponent => 3, :colour => 'W'))
+          t.add_result(Result.new(3, 3, 'W', :opponent => 1, :colour => 'W'))
+          t.validate!
+        end.should_not raise_error
+      end
+    end
+    
+    context "documentation example" do
+      before(:each) do
+        @t = t = ICU::Tournament.new('Bangor Masters', '2009-11-09')
+        t.add_player(ICU::Player.new('Bobby', 'Fischer', 10))
+        t.add_player(ICU::Player.new('Garry', 'Kasparov', 20))
+        t.add_player(ICU::Player.new('Mark', 'Orr', 30))
+        t.add_result(ICU::Result.new(1, 10, 'D', :opponent => 30, :colour => 'W'))
+        t.add_result(ICU::Result.new(2, 20, 'W', :opponent => 30, :colour => 'B'))
+        t.add_result(ICU::Result.new(3, 20, 'L', :opponent => 10, :colour => 'W'))
+        t.validate!(:rerank => true)
+        @s = <<EOS
+012 Bangor Masters
+042 2009-11-09
+001   10      Fischer,Bobby                                                      1.5    1    30 w =              20 b 1
+001   20      Kasparov,Garry                                                     1.0    2              30 b 1    10 w 0
+001   30      Orr,Mark                                                           0.5    3    10 b =    20 w 0          
+EOS
+      end
+      
+      it "should serialize to Krause" do
+        parser = ICU::Tournament::Krause.new
+        parser.serialize(@t).should == @s
+      end
+    end 
+
+    context "name" do
+      before(:each) do
+        @t = Tournament.new('Edinburgh Masters', '2009-11-09')
+      end
+
+      it "must be specified in constructor" do
+        @t.name.should == 'Edinburgh Masters'
+      end
+
+      it "can be replaced by accessor" do
+        @t.name = 'Bangor Bashers'
+        @t.name.should == 'Bangor Bashers'
+      end
+
+      it "should not be blank or without letters" do
+        lambda { Tournament.new('   ', '2009-11-09') }.should raise_error(/invalid.*name/)       
+        lambda { @t.name = '333' }.should raise_error(/invalid.*name/)   
+      end
+    end
+
+    context "city" do
+      before(:each) do
+        @t = Tournament.new('Edinburgh Masters', '2009-11-09', :city => 'Edinburgh')
+      end
+
+      it "may be specified in constructor" do
+        @t.city.should == 'Edinburgh'
+      end
+
+      it "can be replaced by accessor" do
+        @t.city = 'Glasgow'
+        @t.city.should == 'Glasgow'
+      end
+
+      it "can be set to nil" do
+        @t.city = ''
+        @t.city.should be_nil
+      end
+
+      it "should not be without letters if set" do
+        lambda { @t.city = '123' }.should raise_error(/invalid.*city/)
+      end
+    end
+
+    context "federation" do
+      before(:each) do
+        @t = Tournament.new('Edinburgh Masters', '2009-11-09', :fed => 'SCO')
+      end
+
+      it "may be specified in constructor" do
+        @t.fed.should == 'SCO'
+      end
+
+      it "can be replaced by accessor" do
+        @t.fed = 'IRL'
+        @t.fed.should == 'IRL'
+      end
+
+      it "can be set to nil" do
+        @t.fed = ''
+        @t.fed.should be_nil
+      end
+
+      it "three letters will automatically be upcased" do
+        @t.fed = 'rus'
+        @t.fed.should == 'RUS'
+      end
+
+      it "should not be without letters if set" do
+        lambda { @t.fed = '123' }.should raise_error(/invalid.*federation/)
+      end
+    end
+
+    context "start date" do
+      before(:each) do
+        @t = Tournament.new('Edinburgh Masters', '2009-11-09')
+      end
+
+      it "must be specified in constructor" do
+        @t.start.should == '2009-11-09'
+      end
+
+      it "can be replaced by accessor" do
+        @t.start = '16th June 2010'
+        @t.start.should == '2010-06-16'
+      end
+
+      it "should be a valid date" do
+        lambda { Tournament.new('Edinburgh Masters', '  ') }.should raise_error(/invalid.*date/)
+        lambda { @t.start = 'X' }.should raise_error(/invalid.*date/)
+      end
+    end
+
+    context "finish date" do
+      before(:each) do
+        @t = Tournament.new('Edinburgh Masters', '2009-11-09', :finish => '12th November 2009')
+      end
+
+      it "may be specified in constructor" do
+        @t.finish.should == '2009-11-12'
+      end
+
+      it "can be replaced by accessor" do
+        @t.finish = '16th December 2009'
+        @t.finish.should == '2009-12-16'
+      end
+
+      it "can be set to nil" do
+        @t.finish = ''
+        @t.finish.should be_nil
+      end
+
+      it "should be a valid date" do
+        lambda { Tournament.new('Edinburgh Masters', '2009-11-09', :finish => 'next week') }.should raise_error(/invalid.*date/)
+        lambda { @t.finish = 'X' }.should raise_error(/invalid.*date/)
+      end
+    end
+
+    context "rounds" do
+      it "defaults to nil" do
+        Tournament.new('Edinburgh Masters', '2009-11-09').rounds.should be_nil
+      end
+
+      it "should be a positive integer or nil" do
+        Tournament.new('Edinburgh Masters', '2009-11-09', :rounds => 3).rounds.should == 3
+        Tournament.new('Edinburgh Masters', '2009-11-09', :rounds => ' 10 ').rounds.should == 10
+        Tournament.new('Edinburgh Masters', '2009-11-09', :rounds => nil).rounds.should be_nil
+        lambda { Tournament.new('Edinburgh Masters', '2009-11-09', :rounds => ' 0 ') }.should raise_error(/invalid.*rounds/)
+      end
+    end
+
+    context "last_round" do
+      before(:each) do
+        @t = Tournament.new('Edinburgh Masters', '2009-11-09')
+        @t.add_player(@mark = Player.new('Mark', 'Orr', 1))
+        @t.add_player(@gary = Player.new('Gary', 'Kasparov', 2))
+        @t.add_player(@boby = Player.new('Bobby', 'Fischer', 3))
+      end
+
+      it "depends on the players results" do
+        @t.last_round.should == 0
+        @t.add_result(Result.new(1, 1, 'W', :opponent => 2))
+        @t.last_round.should == 1
+        @t.add_result(Result.new(2, 2, 'D', :opponent => 3))
+        @t.last_round.should == 2
+        @t.add_result(Result.new(5, 3, 'L', :opponent => 1))
+        @t.last_round.should == 5
+      end
+    end
+
+    context "round date" do
+      before(:each) do
+        @t = Tournament.new('Edinburgh Masters', '2009-11-09')
+      end
+
+      it "should default to none" do
+        @t.round_dates.size.should == 0
+      end
+
+      it "can be added one by one in any order" do
+        @t.add_round_date('2009-11-11')
+        @t.add_round_date('09/11/2009')
+        @t.add_round_date('10th November 2009')
+        @t.round_dates.join('|').should == '2009-11-09|2009-11-10|2009-11-11'
+      end
+    end
+
+    context "site" do
+      it "defaults to nil" do
+        Tournament.new('Edinburgh Masters', '2009-11-09').site.should be_nil
+      end
+
+      it "should be a reasonably valid looking URL" do
+        Tournament.new('Edinburgh Masters', '2009-11-09', :site => 'https://www.bbc.co.uk').site.should == 'https://www.bbc.co.uk'
+        Tournament.new('Edinburgh Masters', '2009-11-09', :site => 'www.icu.ie/event.php?id=1').site.should == 'http://www.icu.ie/event.php?id=1'
+        lambda { Tournament.new('Edinburgh Masters', '2009-11-09', :site => 'X') }.should raise_error(/invalid.*site/)
+      end
+    end
+
+    context "type, arbiter, deputy and time control" do
+      before(:each) do
+        @t = Tournament.new('Edinburgh Masters', '2009-11-09', :type => 'Swiss', :arbiter => 'Gerry Graham', :deputy => 'Herbert Scarry', :time_control => '120 minutes')
+      end
+
+      it "may be specified in constructor" do
+        @t.type.should == 'Swiss'
+        @t.arbiter.should == 'Gerry Graham'
+        @t.deputy.should == 'Herbert Scarry'
+        @t.time_control.should == '120 minutes'
+      end
+
+      it "can be replaced by accessor" do
+        @t.type = 'all-play-all'
+        @t.type.should == 'all-play-all'
+        @t.arbiter = 'Michael Crowe'
+        @t.arbiter.should == 'Michael Crowe'
+        @t.deputy = 'Mark Orr'
+        @t.deputy.should == 'Mark Orr'
+        @t.time_control = '90 minutes'
+        @t.time_control.should == '90 minutes'
+      end
+
+      it "can be set to nil" do
+        @t.type = ''
+        @t.type.should be_nil
+        @t.arbiter = ''
+        @t.arbiter.should be_nil
+        @t.deputy = ''
+        @t.deputy.should be_nil
+        @t.time_control = ''
+        @t.time_control.should be_nil
+      end
+
+      it "should be valid" do
+        lambda { @t.type         = '123' }.should raise_error(/invalid.*type/)
+        lambda { @t.arbiter      = '123' }.should raise_error(/invalid.*arbiter/)
+        lambda { @t.deputy       = '123' }.should raise_error(/invalid.*deputy/)
+        lambda { @t.time_control = 'abc' }.should raise_error(/invalid.*time.*control/)
+      end
+    end
+
+    context "players" do
+      before(:each) do
+        @t = Tournament.new('Edinburgh Masters', '2009-11-09')
+      end
+
+      it "should have unique numbers" do
+        @t.add_player(Player.new('Mark', 'Orr', 1))
+        lambda { @t.add_player(Player.new('Bobby', 'Fischer', 1)) }.should raise_error(/player.*unique/)
+      end
+
+      it "can be added one at a time" do
+        @t.add_player(Player.new('Mark', 'Orr', -1))
+        @t.add_player(Player.new('Gary', 'Kasparov', -2))
+        @t.add_player(Player.new('Bobby', 'Fischer', -3))
+        @t.players.size.should == 3
+        @t.player(-1).first_name.should == 'Mark'
+      end
+    end
+
+    context "results" do
+      before(:each) do
+        @t = Tournament.new('Edinburgh Masters', '2009-11-09', :rounds => 3)
+        @t.add_player(@mark = Player.new('Mark', 'Orr', 1))
+        @t.add_player(@gary = Player.new('Gary', 'Kasparov', 2))
+        @t.add_player(@boby = Player.new('Bobby', 'Fischer', 3))
+      end
+
+      it "can be added one at a time" do
+        @t.add_result(Result.new(1, 1, 'W', :opponent => 2))
+        @t.add_result(Result.new(2, 2, 'D', :opponent => 3))
+        @t.add_result(Result.new(3, 3, 'L', :opponent => 1))
+        @mark.results.size.should == 2
+        @mark.points.should == 2.0
+        @gary.results.size.should == 2
+        @gary.points.should == 0.5
+        @boby.results.size.should == 2
+        @boby.points.should == 0.5
+      end
+
+      it "can be added symmetrically or asymmetrically with respect to rateability" do
+        @t.add_result(Result.new(1, 1, 'W', :opponent => 2))
+        @mark.results[0].rateable.should be_true
+        @gary.results[0].rateable.should be_true
+        @t.add_result(Result.new(2, 1, 'W', :opponent => 3), false)
+        @mark.results[1].rateable.should be_true
+        @boby.results[0].rateable.should be_false
+      end
+
+      it "should have a defined player" do
+        lambda { @t.add_result(Result.new(1, 4, 'L', :opponent => 1)) }.should raise_error(/player.*exist/)
+      end
+
+      it "should have a defined opponent" do
+        lambda { @t.add_result(Result.new(1, 1, 'W', :opponent => 4)) }.should raise_error(/opponent.*exist/)
+      end
+
+      it "should be consistent with the tournament's number of rounds" do
+        lambda { @t.add_result(Result.new(4, 1, 'W', :opponent => 2)) }.should raise_error(/round/)
+      end
+    end
+
+    context "finding players" do
+      before(:all) do
+        @t = Tournament.new('Bangor Bash', '2009-11-09')
+        @t.add_player(Player.new('Bobby', 'Fischer', 1, :fed => 'USA'))
+        @t.add_player(Player.new('Garry', 'Gary Kasparov', 2, :fed => 'RUS'))
+        @t.add_player(Player.new('Mark', 'Orr', 3, :fed => 'IRL'))
+      end
+
+      it "should find players based on loose equality" do
+        @t.find_player(Player.new('Mark', 'Orr', 4, :fed => 'IRL')).num.should == 3
+        @t.find_player(Player.new('Mark', 'Orr', 4, :fed => 'USA')).should be_nil
+        @t.find_player(Player.new('Mark', 'Sax', 4, :fed => 'IRL')).should be_nil
+        @t.find_player(Player.new('John', 'Orr', 4, :fed => 'IRL')).should be_nil
+      end
+    end
+    
+    context "teams" do
+      before(:each) do
+        @t = Tournament.new('Bangor Bash', '2009-11-09')
+      end
+
+      it "should be able to create a new team, add it and retrieve it" do
+        team = Team.new('Wandering Dragons')
+        @t.add_team(team).should be_an_instance_of Team
+        @t.get_team('  wandering  dragons  ').should be_an_instance_of Team
+        @t.get_team('Blundering Bishops').should be_nil
+      end
+      
+      it "should be able to create and add a new team and retrieve it" do
+        @t.add_team('Blundering Bishops').should be_an_instance_of Team
+        @t.get_team('  blundering  bishops  ').should be_an_instance_of Team
+        @t.get_team('Wandering Dragons').should be_nil
+      end
+      
+      it "should throw and exception if there is an attempt to add a team with a name that matches an existing team" do
+        lambda { @t.add_team('Blundering Bishops') }.should_not raise_error
+        lambda { @t.add_team('Wandering Dragons') }.should_not raise_error
+        lambda { @t.add_team('  wandering   dragons  ') }.should raise_error(/similar.*exists/)
+      end
+    end
+    
+    context "validation" do
+      before(:each) do
+        @t = Tournament.new('Edinburgh Masters', '2009-11-09')
+        @t.add_player(@mark = Player.new('Mark', 'Orr', 1))
+        @t.add_player(@gary = Player.new('Gary', 'Kasparov', 2))
+        @t.add_player(@boby = Player.new('Bobby', 'Fischer', 3))
+        @t.add_result(Result.new(1, 1, 'W', :opponent => 2))
+        @t.add_result(Result.new(2, 2, 'W', :opponent => 3))
+        @t.add_result(Result.new(3, 3, 'L', :opponent => 1))
+        @t.add_round_date('2009-11-09')
+        @t.add_round_date('2009-11-10')
+        @t.add_round_date('2009-11-11')
+      end
+
+      it "should be valid" do
+        @t.invalid.should be_false
+      end
+
+      it "should have side effect of setting number of rounds" do
+        @t.rounds.should be_nil
+        @t.invalid
+        @t.rounds.should == 3
+      end
+
+      it "should detect an inconsistent start date" do
+        @t.start = '2009-11-10'
+        lambda { @t.validate! }.should raise_error(/first round.*before.*start/)
+      end
+
+      it "should detect an inconsistent finish date" do
+        @t.finish = '2009-11-10'
+        lambda { @t.validate! }.should raise_error(/last round.*after.*end/)
+      end
+
+      it "should have side effect of setting missing finish date" do
+        @t.finish.should be_nil
+        @t.invalid
+        @t.finish.should == '2009-11-11'
+      end
+
+      it "should detect inconsistent round dates" do
+        @t.add_round_date('2009-11-12')
+        lambda { @t.validate! }.should raise_error(/round dates.*match.*rounds/)
+      end
+
+      it "should have the side effect of providing missing ranks if the rerank option is set" do
+        @t.players.select{ |p| p.rank }.size.should == 0
+        @t.invalid(:rerank => true)
+        @t.player(1).rank.should == 1
+        @t.player(2).rank.should == 2
+        @t.player(3).rank.should == 3
+      end
+
+      it "should have the side effect of correcting bad ranks if the rerank option is set" do
+        @t.player(1).rank = 2
+        @t.player(2).rank = 1
+        @t.player(3).rank = 3
+        @t.invalid(:rerank => true)
+        @t.player(1).rank.should == 1
+        @t.player(2).rank.should == 2
+        @t.player(3).rank.should == 3
+      end
+
+      it "should detect missranked players" do
+        @t.player(1).rank = 2
+        @t.player(2).rank = 1
+        @t.player(3).rank = 3
+        lambda { @t.validate! }.should raise_error(/player 2.*above.*player 1/)
+      end
+      
+      it "should be valid if there are teams, every player is in one of them, and no team has an invalid member" do
+        team1 = Team.new('International Masters')
+        team2 = Team.new('World Champions')
+        @t.add_team(team1)
+        @t.add_team(team2)
+        @t.invalid.should match(/not.*member/)
+        team1.add_member(1)
+        team2.add_member(2)
+        team2.add_member(3)
+        @t.invalid.should be_false
+        team1.add_member(4)
+        @t.invalid.should match(/not.*valid/)
+      end
+      
+      it "should not be valid if one player is in more than one team" do
+        team1 = Team.new('XInternational Masters')
+        team1.add_member(1)
+        team2 = Team.new('XWorld Champions')
+        team2.add_member(2)
+        team2.add_member(3)
+        @t.add_team(team1)
+        @t.add_team(team2)
+        @t.invalid.should be_false
+        team1.add_member(2)
+        @t.invalid.should match(/already.*member/)
+      end
+    end
+    
+    context "renumbering" do
+      before(:each) do
+        @t = Tournament.new('Edinburgh Masters', '2009-11-09')
+        @t.add_player(@mark = Player.new('Mark', 'Orr', 20))
+        @t.add_player(@boby = Player.new('Bobby', 'Fischer', 10))
+        @t.add_player(@gary = Player.new('Gary', 'Kasparov', 30))
+        @t.add_result(Result.new(1, 20, 'W', :opponent => 10))
+        @t.add_result(Result.new(2, 30, 'W', :opponent => 10))
+        @t.add_result(Result.new(3, 20, 'W', :opponent => 30))
+      end
+      
+      it "sample tournament is valid but unranked" do
+        @t.invalid.should be_false
+        @t.player(10).rank.should be_nil
+        @t.players.map{ |p| p.num }.join('|').should == '10|20|30'
+        @t.players.map{ |p| p.last_name }.join('|').should == 'Fischer|Orr|Kasparov'
+      end
+
+      it "should be renumberable by name in the absence of ranking" do
+        @t.renumber
+        @t.invalid.should be_false
+        @t.players.map{ |p| p.num }.join('|').should == '1|2|3'
+        @t.players.map{ |p| p.last_name }.join('|').should == 'Fischer|Kasparov|Orr'
+      end
+      
+      it "should be renumberable by rank if the tournament is ranked" do
+        @t.rerank.renumber
+        @t.invalid.should be_false
+        @t.players.map{ |p| p.num }.join('|').should == '1|2|3'
+        @t.players.map{ |p| p.rank }.join('|').should == '1|2|3'
+        @t.players.map{ |p| p.last_name }.join('|').should == 'Orr|Kasparov|Fischer'
+      end
+      
+      it "should be renumberable by name even if the tourament is ranked" do
+        @t.rerank.renumber(:name)
+        @t.invalid.should be_false
+        @t.players.map{ |p| p.num }.join('|').should == '1|2|3'
+        @t.players.map{ |p| p.last_name }.join('|').should == 'Fischer|Kasparov|Orr'
+      end
+    end
+
+    context "reranking" do
+      before(:each) do
+        @t = Tournament.new('Edinburgh Masters', '2009-11-09')
+        @t.add_player(@boby = Player.new('Bobby', 'Fischer', 1))
+        @t.add_player(@gary = Player.new('Gary', 'Kasparov', 2))
+        @t.add_player(@boby = Player.new('Micky', 'Mouse', 3))
+        @t.add_player(@boby = Player.new('Minnie', 'Mouse', 4))
+        @t.add_player(@boby = Player.new('Gearoidin', 'Ui Laighleis', 5))
+        @t.add_player(@mark = Player.new('Mark', 'Orr', 6))
+        @t.add_result(Result.new(1, 1, 'W', :opponent => 6, :colour => 'W'))
+        @t.add_result(Result.new(2, 1, 'W', :opponent => 3, :colour => 'B'))
+        @t.add_result(Result.new(3, 1, 'W', :opponent => 5, :colour => 'W'))
+        @t.add_result(Result.new(1, 2, 'W', :opponent => 5, :colour => 'B'))
+        @t.add_result(Result.new(2, 2, 'W', :opponent => 4, :colour => 'W'))
+        @t.add_result(Result.new(3, 2, 'W', :opponent => 3, :colour => 'B'))
+        @t.add_result(Result.new(1, 3, 'W', :opponent => 4, :colour => 'W'))
+        @t.add_result(Result.new(3, 4, 'W', :opponent => 6, :colour => 'W'))
+        @t.add_result(Result.new(2, 5, 'D', :opponent => 6, :colour => 'W'))
+      end
+
+      it "should initially be valid but unranked" do
+        @t.invalid.should be_false
+        @t.player(1).rank.should be_nil
+      end
+      
+      it "should have correct default tie break scores" do
+        scores = @t.tie_break_scores
+        scores[1].should == 'Fischer, Bobby'
+        scores[5].should == 'Ui Laighleis, Gearoidin'
+      end
+      
+      it "should have correct actual scores" do
+        @t.player(1).points.should == 3.0
+        @t.player(2).points.should == 3.0
+        @t.player(3).points.should == 1.0
+        @t.player(4).points.should == 1.0
+        @t.player(5).points.should == 0.5
+        @t.player(6).points.should == 0.5
+      end
+      
+      it "should have correct Buchholz tie break scores" do
+        scores = @t.tie_break_scores("Buchholz")
+        scores[1].should == 2.0
+        scores[2].should == 2.5
+        scores[3].should == 7.0
+        scores[4].should == 4.5
+        scores[5].should == 6.5
+        scores[6].should == 4.5
+      end
+      
+      it "Buchholz should be sensitive to unplayed games" do
+        @t.player(1).find_result(1).opponent = nil
+        @t.player(6).find_result(1).opponent = nil
+        scores = @t.tie_break_scores("Buchholz")
+        scores[1].should == 1.5  # 0.5 from Orr changed to 0
+        scores[2].should == 2.5  # didn't play Fischer or Orr so unaffected
+        scores[3].should == 6.5  # 3 from Fischer's changed to 2.5
+        scores[4].should == 5.0  # 0.5 from Orr changed to 1 (because Orr's unrated loss to Fischer now counts as a draw)
+        scores[5].should == 6.5  # 3 from Fischer changed to 2.5, 0.5 from Orr changed to 1 (cancels out)
+        scores[6].should == 1.5  # 3 from Fischer changed to 0
+      end
+      
+      it "should have correct Neustadtl tie break scores" do
+        scores = @t.tie_break_scores(:neustadtl)
+        scores[1].should == 2.0
+        scores[2].should == 2.5
+        scores[3].should == 1.0
+        scores[4].should == 0.5
+        scores[5].should == 0.25
+        scores[6].should == 0.25
+      end
+      
+      it "Neustadtl should be sensitive to unplayed games" do
+        @t.player(1).find_result(1).opponent = nil
+        @t.player(6).find_result(1).opponent = nil
+        scores = @t.tie_break_scores("Neustadtl")
+        scores[1].should == 1.5  # 0.5 from Orr changed to 0
+        scores[2].should == 2.5  # didn't play Fischer or Orr so unaffected
+        scores[3].should == 1.0  # win against Minnie unaffected
+        scores[4].should == 1.0  # 0.5 from Orr changed to 1 (because Orr's unrated loss to Fischer now counts as a draw)
+        scores[5].should == 0.5  # 0.25 from Orr changed to 0.5
+        scores[6].should == 0.25 # loss against Fisher and unplayed against Fisher equivalent
+      end
+      
+      it "should have correct Harkness tie break scores" do
+        scores = @t.tie_break_scores('harkness')
+        scores[1].should == 0.5
+        scores[2].should == 1.0
+        scores[3].should == 3.0
+        scores[4].should == 1.0
+        scores[5].should == 3.0
+        scores[6].should == 1.0
+      end
+      
+      it "should have correct Modified Median tie break scores" do
+        scores = @t.tie_break_scores('Modified Median')
+        scores[1].should == 1.5
+        scores[2].should == 2.0
+        scores[3].should == 4.0
+        scores[4].should == 1.5
+        scores[5].should == 3.5
+        scores[6].should == 1.5
+      end
+      
+      it "should have correct tie break scores for number of blacks" do
+        scores = @t.tie_break_scores('Blacks')
+        scores[3].should == 0
+        scores[4].should == 2
+      end
+      
+      it "number of blacks should should be sensitive to unplayed games" do
+        @t.player(2).find_result(1).opponent = nil
+        @t.player(4).find_result(1).opponent = nil
+        scores = @t.tie_break_scores(:blacks)
+        scores[3].should == 0
+        scores[4].should == 1
+      end
+      
+      it "should have correct tie break scores for number of wins" do
+        scores = @t.tie_break_scores(:wins)
+        scores[1].should == 3
+        scores[6].should == 0
+      end
+      
+      it "number of wins should should be sensitive to unplayed games" do
+        @t.player(1).find_result(1).opponent = nil
+        @t.player(6).find_result(1).opponent = nil
+        scores = @t.tie_break_scores('WINS')
+        scores[1].should == 2
+        scores[6].should == 0
+      end
+
+      it "should use names for tie breaking by default" do
+        @t.rerank
+        @t.player(1).rank.should == 1  # 3.0/"Fischer"
+        @t.player(2).rank.should == 2  # 3.0/"Kasparov"
+        @t.player(3).rank.should == 3  # 1.0/"Mouse,Mickey"
+        @t.player(4).rank.should == 4  # 1.0/"Mouse,Minnie"
+        @t.player(6).rank.should == 5  # 0.5/"Ui"
+        @t.player(5).rank.should == 6  # 0.5/"Orr"
+      end
+    
+      it "should be configurable to use Buchholz" do
+        @t.rerank('Buchholz')
+        @t.player(2).rank.should == 1  # 3.0/2.5
+        @t.player(1).rank.should == 2  # 3.0/2.0
+        @t.player(3).rank.should == 3  # 1.0/7.0
+        @t.player(4).rank.should == 4  # 1.0/4.5
+        @t.player(5).rank.should == 5  # 0.5/6.5
+        @t.player(6).rank.should == 6  # 0.5/4.5
+      end
+      
+      it "should be configurable to use Neustadtl" do
+        @t.rerank(:neustadtl)
+        @t.player(2).rank.should == 1  # 3.0/2.5
+        @t.player(1).rank.should == 2  # 3.0/2.0
+        @t.player(3).rank.should == 3  # 1.0/1.0
+        @t.player(4).rank.should == 4  # 1.0/0.5
+        @t.player(6).rank.should == 5  # 0.5/0.25/"Orr"
+        @t.player(5).rank.should == 6  # 0.5/0.25/"Ui"
+      end
+      
+      it "should be configurable to use number of blacks" do
+        @t.rerank(:blacks)
+        @t.player(2).rank.should == 1  # 3.0/2
+        @t.player(1).rank.should == 2  # 3.0/1
+        @t.player(4).rank.should == 3  # 1.0/2
+        @t.player(3).rank.should == 4  # 1.0/1
+        @t.player(6).rank.should == 5  # 0.5/2
+        @t.player(5).rank.should == 6  # 0.5/1
+      end
+      
+      it "should be configurable to use number of wins" do
+        @t.rerank(:wins)
+        @t.player(1).rank.should == 1  # 3.0/3/"Fi"
+        @t.player(2).rank.should == 2  # 3.0/3/"Ka"
+        @t.player(3).rank.should == 3  # 1.0/1/"Mic"
+        @t.player(4).rank.should == 4  # 1.0/1/"Min"
+        @t.player(6).rank.should == 5  # 0.5/0/"Orr"
+        @t.player(5).rank.should == 6  # 0.5/0/"Ui"
+      end
+      
+      it "should exhibit equivalence between Neustadtl and Sonneborn-Berger" do
+        @t.rerank('Sonneborn-Berger')
+        (1..6).inject(''){ |t,r| t << @t.player(r).rank.to_s }.should == '213465'
+      end
+      
+      it "should be able to use more than one method" do
+        @t.rerank(:neustadtl, :buchholz)
+        @t.player(2).rank.should == 1  # 3.0/2.5
+        @t.player(1).rank.should == 2  # 3.0/2.0
+        @t.player(3).rank.should == 3  # 1.0/1.0
+        @t.player(4).rank.should == 4  # 1.0/0.5
+        @t.player(5).rank.should == 5  # 0.5/0.25/6.5
+        @t.player(6).rank.should == 6  # 0.5/0.25/4.5
+      end
+      
+      it "should throw exception on invalid tie break method" do
+        lambda { @t.rerank(:no_such_tie_break_method) }.should raise_error(/invalid.*method/)
+      end
+    
+      it "should throw exception on invalid tie break method via validation" do
+        lambda { @t.validate!(:rerank => :stupid_tie_break_method) }.should raise_error(/invalid.*method/)
+      end
+    
+      it "should be possible as a side effect of validation" do
+        @t.invalid(:rerank => :buchholz).should be_false
+        @t.player(2).rank.should == 1  # 3/3
+        @t.player(1).rank.should == 2  # 3/2
+        @t.player(3).rank.should == 3  # 1/7
+        @t.player(4).rank.should == 4  # 1/4
+        @t.player(5).rank.should == 5  # 1/6
+        @t.player(6).rank.should == 6  # 0/5
+      end
+      
+      it "should be possible as a side effect of validation with multiple tie break methods" do
+        @t.invalid(:rerank => [:neustadtl, :buchholz]).should be_false
+        @t.player(2).rank.should == 1  # 3/3
+        @t.player(1).rank.should == 2  # 3/2
+        @t.player(3).rank.should == 3  # 1/7
+        @t.player(4).rank.should == 4  # 1/4
+        @t.player(5).rank.should == 5  # 1/6
+        @t.player(6).rank.should == 6  # 0/5
+      end
+    end
+  end
+end