icu_tournament 0.8.9

data/spec/spec_helper.rb

@@ -0,0 +1,3 @@
+require 'rubygems'
+require 'spec'
+require File.dirname(__FILE__) + '/../lib/icu_tournament'

data/spec/team_spec.rb

@@ -0,0 +1,60 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+module ICU
+  describe Team do
+    context "a typical team" do
+      before(:each) do
+        @t = Team.new('Wandering Dragons')
+        @t.add_member(0)
+        @t.add_member('3')
+        @t.add_member('  -7  ')
+      end
+      
+      it "should have a name" do
+        @t.name.should == 'Wandering Dragons'
+      end
+      
+      it "should have some members" do
+        @t.should have(3).members
+        @t.include?(0).should be_true
+        @t.include?(3).should be_true
+        @t.include?(-7).should be_true
+        @t.include?(7).should be_false
+      end
+      
+      it "should match names ignoring case and irrelevant whitespace" do
+        @t.matches('Wandering Dragons').should be_true
+        @t.matches('  wandering  dragons  ').should be_true
+        @t.matches('  wanderingdragons  ').should be_false
+        @t.matches('Blundering Bishops').should be_false
+      end
+      
+      it "should have a changeable name with irrelevant whitespace being trimmed" do
+        @t.name = '  blue    dragons   '
+        @t.name.should == 'blue dragons'
+      end
+      
+      it "should blowup if an attempt is made to blank the name" do
+        lambda { @t.name = '  ' }.should raise_error(/blank/)
+      end
+      
+      it "should blowup if an attempt is made to add a non-number" do
+        lambda { @t.add_member('  ') }.should raise_error(/number/)
+      end
+
+      it "should blow up if an attempt is made to add a duplicate number" do
+        lambda { @t.add_member(3) }.should raise_error(/duplicate/)
+      end
+
+      it "should renumber successfully if the map has the relevant player numbers" do
+        map = { 0 => 1, 3 => 2, -7 => 3 }
+        @t.renumber(map)
+        @t.members.sort.join('').should == '123'
+      end
+
+      it "should raise exception if a player is missing from the renumber map" do
+        lambda { @t.renumber({ 5 => 1, 3 => 2 }) }.should raise_error(/player.*not found/)
+      end
+    end
+  end
+end

data/spec/tournament_fcsv_spec.rb

@@ -0,0 +1,548 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+module ICU
+  class Tournament
+    describe ForeignCSV do
+      def check_player(num, first, last, results, rateable, points, other={})
+        p = @t.player(num)
+        p.first_name.should == first
+        p.last_name.should == last
+        p.id.should == other[:id]
+        p.rating.should == other[:rating]
+        p.fed.should == other[:fed]
+        p.title.should == other[:title]
+        p.results.size.should == results
+        p.results.select{|r| r.rateable}.size.should == rateable
+        p.points.should == points
+      end
+      
+      context "a typical tournament" do
+        before(:all) do
+          @csv = <<CSV
+Event,"Bangor Open, 2003"
+Start,1st July 2003
+Rounds,4
+Website,http://www.icu.ie/tournaments/display.php?id=371
+
+Player,3364,Ui Laighleis,Gearoidin
+1,0,B,Cronin,April,2005,,IRL
+2,=,W,Connolly,Suzanne,1950,,IRL
+3,=,-
+4,1,B,Powell,Linda,1850,,WLS
+Total,2
+CSV
+          @f = ICU::Tournament::ForeignCSV.new
+          @t = @f.parse!(@csv)
+        end
+        
+        it "should have a name" do
+          @t.name.should == 'Bangor Open, 2003'
+        end
+        
+        it "should have a start date" do
+          @t.start.should == '2003-07-01'
+        end
+        
+        it "should have a number of rounds" do
+          @t.rounds.should == 4
+        end
+        
+        it "should have a website" do
+          @t.site.should == 'http://www.icu.ie/tournaments/display.php?id=371'
+        end
+        
+        it "should have some players" do
+          @t.should have(4).players
+        end
+        
+        it "should have correct player details" do
+          check_player(1, 'Gearoidin', 'Ui Laighleis', 4, 3, 2.0, :id => 3364)
+          check_player(2, 'April',     'Cronin',       1, 0, 1.0, :rating => 2005, :fed => 'IRL')
+          check_player(3, 'Suzanne',   'Connolly',     1, 0, 0.5, :rating => 1950, :fed => 'IRL')
+          check_player(4, 'Linda',     'Powell',       1, 0, 0.0, :rating => 1850, :fed => 'WLS')
+        end
+      end
+      
+      context "the rdoc example tournament" do
+        before(:all) do
+          @csv = <<CSV
+Event,"Isle of Man Masters, 2007"
+Start,2007-09-22
+Rounds,9
+Website,http://www.bcmchess.co.uk/monarch2007/
+
+Player,456,Fox,Anthony
+1,0,B,Taylor,Peter P.,2209,,ENG
+2,=,W,Nadav,Egozi,2205,,ISR
+3,=,B,Cafolla,Peter,2048,,IRL
+4,1,W,Spanton,Tim R.,1982,,ENG
+5,1,B,Grant,Alan,2223,,SCO
+6,0,-
+7,=,W,Walton,Alan J.,2223,,ENG
+8,0,B,Bannink,Bernard,2271,FM,NED
+9,=,W,Phillips,Roy,2271,,MAU
+Total,4
+CSV
+          @f = ICU::Tournament::ForeignCSV.new
+          @t = @f.parse!(@csv)
+          @p = @t.player(1)
+          @o = @t.players.reject { |o| o.num == 1 }
+          @r = @t.player(2)
+        end
+        
+        it "should have correct basic details" do
+          @t.name.should == 'Isle of Man Masters, 2007'
+          @t.start.should == '2007-09-22'
+          @t.rounds.should == 9
+          @t.site.should == 'http://www.bcmchess.co.uk/monarch2007/'
+        end
+        
+        it "should have the right number of players in the right order" do
+          @t.players.size.should == 9
+          @t.players.inject(''){ |a,o| a << o.num.to_s }.should == '123456789'
+        end
+        
+        it "should have the right details for the main player" do
+          @p.name.should == "Fox, Anthony"
+          @p.results.size == 9
+          @p.results.find_all{ |r| r.rateable }.size.should == 8
+          @p.points.should == 4.0
+        end
+        
+        it "should have the right details for the opponents" do
+          @o.size.should == 8
+          @o.find_all{ |o| o.results.size == 1}.size.should == 8
+          @r.name.should == "Taylor, Peter P."
+          @r.results[0].rateable.should be_false
+        end
+      end
+    
+      context "a tournament with more than one player" do
+        before(:all) do
+          @csv = <<CSV
+Event,"Edinburgh Masters, 2007"
+Start,3rd January 2007
+Rounds,2
+Website,http://www.chesscenter.com/twic/twic.html
+
+Player,3364,Ui Laighleis,Gearoidin
+1,=,W,Kasparov,Gary,2800,GM,RUS
+2,=,B,Cronin,April,2005,,IRL
+Total,1.0
+
+Player,1350,Orr,Mark
+1,=,W,Cronin,April,2005,,IRL
+2,1,B,Fischer,Bobby,2700,GM,USA
+Total,1.5
+CSV
+          @f = ICU::Tournament::ForeignCSV.new
+          @t = @f.parse!(@csv)
+        end
+
+        it "should have the usual basic details" do
+          @t.name.should == 'Edinburgh Masters, 2007'
+          @t.start.should == '2007-01-03'
+          @t.rounds.should == 2
+          @t.site.should == 'http://www.chesscenter.com/twic/twic.html'
+        end
+
+        it "should have the correct number of players" do
+          @t.should have(5).players
+        end
+
+        it "should have correct player details" do
+          check_player(1, 'Gearoidin', 'Ui Laighleis', 2, 2, 1.0, :id => 3364)
+          check_player(4, 'Mark',      'Orr',          2, 2, 1.5, :id => 1350)
+          check_player(2, 'Gary',      'Kasparov',     1, 0, 0.5, :rating => 2800, :fed => 'RUS', :title => 'GM')
+          check_player(3, 'April',     'Cronin',       2, 0, 1.0, :rating => 2005, :fed => 'IRL')
+          check_player(5, 'Bobby',     'Fischer',      1, 0, 0.0, :rating => 2700, :fed => 'USA', :title => 'GM')
+        end
+      end
+      
+      context "a tournament where someone is both a player and an opponent" do
+        before(:all) do
+          @csv = <<CSV
+Event,"Bratto Open, 2001"
+Start,7th March 2001
+Rounds,2
+Website,http://www.federscacchi.it/
+
+Player,3364,Ui Laighleis,Gearoidin
+1,=,W,Kasparov,Gary,2800,,RUS
+2,=,B,Orr,Mark,2100,IM,IRL
+Total,1.0
+
+Player,1350,Orr,Mark
+1,=,W,Cronin,April,2005,,IRL
+2,=,W,Ui Laighleis,Gearoidin,1800,,IRL
+Total,1.0
+CSV
+          @f = ICU::Tournament::ForeignCSV.new
+          @t = @f.parse!(@csv)
+        end
+
+        it "should have the usual basic details" do
+          @t.name.should == 'Bratto Open, 2001'
+          @t.start.should == '2001-03-07'
+          @t.rounds.should == 2
+          @t.site.should == 'http://www.federscacchi.it/'
+        end
+
+        it "should have the correct number of players" do
+          @t.should have(4).players
+        end
+
+        it "should have correct player details" do
+          check_player(1, 'Gearoidin', 'Ui Laighleis', 2, 2, 1.0, :rating => 1800, :fed => 'IRL', :id => 3364)
+          check_player(3, 'Mark',      'Orr',          2, 2, 1.0, :rating => 2100, :fed => 'IRL', :id => 1350, :title => 'IM')
+          check_player(2, 'Gary',      'Kasparov',     1, 0, 0.5, :rating => 2800, :fed => 'RUS')
+          check_player(4, 'April',     'Cronin',       1, 0, 0.5, :rating => 2005, :fed => 'IRL')
+        end
+      end
+      
+      context "a file that contains spurious white space and other untidiness" do
+        before(:all) do
+          @csv = <<CSV
+          
+ Event," Bratto Open, 2001 "
+Start, 7th  March  2001
+ Rounds, 2
+  Website, http://www.federscacchi.it/
+Player ,3364 , ui Laighleis, gearoidin
+
+1, = ,W, kasparov,  gary, 2800 , g , Rus
+
+ 2 ,=, b, Orr , Mark,2100, iM , irl
+Total,1.0
+
+CSV
+          @f = ICU::Tournament::ForeignCSV.new
+          @t = @f.parse!(@csv)
+        end
+
+        it "should have the correct basic details" do
+          @t.name.should == 'Bratto Open, 2001'
+          @t.start.should == '2001-03-07'
+          @t.rounds.should == 2
+          @t.site.should == 'http://www.federscacchi.it/'
+        end
+
+        it "should have the correct number of players" do
+          @t.should have(3).players
+        end
+
+        it "should have correct player details" do
+          check_player(1, 'Gearoidin', 'Ui Laighleis', 2, 2, 1.0, :id => 3364)
+          check_player(2, 'Gary',      'Kasparov',     1, 0, 0.5, :rating => 2800, :fed => 'RUS', :title => 'GM')
+          check_player(3, 'Mark',      'Orr',          1, 0, 0.5, :rating => 2100, :fed => 'IRL', :title => 'IM')
+        end
+      end
+      
+      context "#parse" do
+        before(:each) do
+          @f = ICU::Tournament::ForeignCSV.new
+        end
+
+        it "should behave just like #parse! on success" do
+          csv = <<CSV
+Event,"Bratto Open, 2001"
+Start,7th March 2001
+Rounds,2
+Website,http://www.federscacchi.it/
+
+Player,3364,Ui Laighleis,Gearoidin
+1,=,W,Kasparov,Gary,2800,GM,RUS
+2,=,B,Orr,Mark,2100,IM,IRL
+Total,1.0
+CSV
+          @f.parse(csv).should be_an_instance_of(ICU::Tournament)
+          @f.error.should be_nil
+        end
+        
+        it "should not throw an exception but return nil on error" do
+          @f.parse(' ').should be_nil
+          @f.error.should match(/event/)
+        end
+      end
+
+      context "invalid files" do
+        before(:each) do
+          @f = ICU::Tournament::ForeignCSV.new
+        end
+        
+        it "a blank file is invalid" do
+          lambda { @f.parse!(' ') }.should raise_error(/event/i)
+        end
+        
+        it "the event should come first" do
+          csv = <<CSV
+Start,7th March 2001
+Event,"Bratto Open, 2001"
+Rounds,2
+Website,http://www.federscacchi.it/
+CSV
+          lambda { @f.parse!(csv) }.should raise_error(/line 1.*event/i)
+        end
+        
+        it "the start should come second" do
+          csv = <<CSV
+Event,"Bratto Open, 2001"
+Rounds,2
+Start,7th March 2001
+Website,http://www.federscacchi.it/
+CSV
+          lambda { @f.parse!(csv) }.should raise_error(/line 2.*start/i)
+        end
+        
+        it "the number of rounds should come third" do
+          csv = <<CSV
+Event,"Bratto Open, 2001"
+Start,7th March 2001
+Website,http://www.federscacchi.it/
+Rounds,2
+CSV
+          lambda { @f.parse!(csv) }.should raise_error(/line 3.*rounds/i)
+        end
+        
+        it "there should be a web site" do
+          csv = <<CSV
+Event,"Bratto Open, 2001"
+Start,7th March 2001
+Rounds,2
+
+CSV
+          lambda { @f.parse!(csv) }.should raise_error(/line 4.*site/i)
+        end
+        
+        it "should have at least one player" do
+          csv = <<CSV
+Event,"Bratto Open, 2001"
+Start,7th March 2001
+Rounds,2
+Website,http://www.federscacchi.it/
+CSV
+          lambda { @f.parse!(csv) }.should raise_error(/line 4.*no players/i)
+        end
+        
+        it "the player needs to have a valid ID number" do
+          csv = <<CSV
+Event,"Bratto Open, 2001"
+Start,7th March 2001
+Rounds,2
+Website,http://www.federscacchi.it/
+
+Player,0,Ui Laighleis,Gearoidin
+CSV
+          lambda { @f.parse!(csv) }.should raise_error(/line 6.*number/i)
+        end
+        
+        it "should have the right number of results for each player" do
+          csv = <<CSV
+Event,"Bratto Open, 2001"
+Start,7th March 2001
+Rounds,2
+Website,http://www.federscacchi.it/
+
+Player,3364,Ui Laighleis,Gearoidin
+1,=,W,Kasparov,Gary,2800,GM,RUS
+Total,0.5
+CSV
+          lambda { @f.parse!(csv) }.should raise_error(/line 8.*round/i)
+        end
+        
+        it "should have correct totals" do
+          csv = <<CSV
+Event,"Bratto Open, 2001"
+Start,7th March 2001
+Rounds,2
+Website,http://www.federscacchi.it/
+
+Player,3364,Ui Laighleis,Gearoidin
+1,=,W,Kasparov,Gary,2800,GM,RUS
+2,=,B,Orr,Mark,2100,IM,IRL
+Total,1.5
+CSV
+          lambda { @f.parse!(csv) }.should raise_error(/line 9.*total/i)
+        end
+        
+        
+        it "players who match by name and federation should match in all other details" do
+          csv = <<CSV
+Event,"Bratto Open, 2001"
+Start,7th March 2001
+Rounds,2
+Website,http://www.federscacchi.it/
+
+Player,3364,Ui Laighleis,Gearoidin
+1,=,W,Kasparov,Gary,2800,GM,RUS
+2,=,B,Orr,Mark,2100,IM,IRL
+Total,1.0
+
+Player,1350,Orr,Mark
+1,=,W,Fischer,Bobby,2700,,USA
+2,=,B,Kasparov,Gary,2850,GM,RUS
+Total,1.0
+CSV
+          lambda { @f.parse!(csv) }.should raise_error(/line 13.*same name.*conflicting/i)
+        end
+      end
+      
+      context "serialisation of simple tournament" do
+        before(:each) do
+          @csv = <<CSV
+Event,"Edinburgh Masters, 2007"
+Start,2007-08-09
+Rounds,2
+Website,http://www.chesscenter.com/twic/twic.html
+
+Player,3364,Ui Laighleis,Gearoidin
+1,0,W,Kasparov,Gary,2800,GM,RUS
+2,1,B,Cronin,April,2005,,IRL
+Total,1.0
+
+Player,1350,Orr,Mark
+1,=,W,Cronin,April,2005,,IRL
+2,=,-
+Total,1.0
+CSV
+          @f = ICU::Tournament::ForeignCSV.new
+          @t = @f.parse!(@csv)
+        end
+
+        it "should serialize back to the original" do
+          @f.serialize(@t).should == @csv
+        end
+
+        it "should return nil on invalid input" do
+          @f.serialize('Rubbish').should be_nil
+        end
+      end
+      
+      context "serialisation of ForeignCSV documentation example" do
+        before(:each) do
+          @csv = <<CSV
+Event,"Isle of Man Masters, 2007"
+Start,2007-09-22
+Rounds,9
+Website,http://www.bcmchess.co.uk/monarch2007/
+
+Player,456,Fox,Anthony
+1,0,B,Taylor,Peter P.,2209,,ENG
+2,=,W,Nadav,Egozi,2205,,ISR
+3,=,B,Cafolla,Peter,2048,,IRL
+4,1,W,Spanton,Tim R.,1982,,ENG
+5,1,B,Grant,Alan,2223,,SCO
+6,0,-
+7,=,W,Walton,Alan J.,2223,,ENG
+8,0,B,Bannink,Bernard,2271,FM,NED
+9,=,W,Phillips,Roy,2271,,MAU
+Total,4.0
+
+Player,159,Cafolla,Peter
+1,0,W,Jackson,Oliver A.,2198,,ENG
+2,0,B,Jeroen,Van Den Berssalaar,,,NED
+3,=,W,Fox,Anthony,2100,,IRL
+4,=,B,Collins,Sam E.,2394,IM,IRL
+5,1,W,Troyke,Doreen,2151,WFM,GER
+6,=,B,Nelson,Jonathan P.,2282,,ENG
+7,0,W,Egozi,Nadav,2205,,ISR
+8,=,B,Weeks,Manuel,2200,FM,AUS
+9,0,W,Grant,Alan,2223,,SCO
+Total,3.0
+CSV
+          @t = ICU::Tournament.new("Isle of Man Masters, 2007", '2007-09-22')
+          @t.site = 'http://www.bcmchess.co.uk/monarch2007/'
+          @t.rounds = 9
+          @t.add_player(ICU::Player.new('Anthony', 'Fox', 1, :id => 456, :rating => 2100, :fed => 'IRL'))
+          @t.add_player(ICU::Player.new('Peter', 'Cafolla', 2, :id => 159, :rating => 2048, :fed => 'IRL'))
+          @t.add_player(ICU::Player.new('Peter P.', 'Taylor', 3, :rating => 2209, :fed => 'ENG'))
+          @t.add_player(ICU::Player.new('Egozi', 'Nadav', 4, :rating => 2205, :fed => 'ISR'))
+          @t.add_player(ICU::Player.new('Tim R.', 'Spanton', 5, :rating => 1982, :fed => 'ENG'))
+          @t.add_player(ICU::Player.new('Alan', 'Grant', 6, :rating => 2223, :fed => 'SCO'))
+          @t.add_player(ICU::Player.new('Alan J.', 'Walton', 7, :rating => 2223, :fed => 'ENG'))
+          @t.add_player(ICU::Player.new('Bernard', 'Bannink', 8, :rating => 2271, :fed => 'NED', :title => 'FM'))
+          @t.add_player(ICU::Player.new('Roy', 'Phillips', 9, :rating => 2271, :fed => 'MAU'))
+          @t.add_player(ICU::Player.new('Oliver A.', 'Jackson', 10, :rating => 2198, :fed => 'ENG'))
+          @t.add_player(ICU::Player.new('Van Den Berssalaar', 'Jeroen', 11, :fed => 'NED'))
+          @t.add_player(ICU::Player.new('Sam E.', 'Collins', 12, :rating => 2394, :fed => 'IRL', :title => 'IM'))
+          @t.add_player(ICU::Player.new('Doreen', 'Troyke', 13, :rating => 2151, :fed => 'GER', :title => 'WFM'))
+          @t.add_player(ICU::Player.new('Jonathan P.', 'Nelson', 14, :rating => 2282, :fed => 'ENG'))
+          @t.add_player(ICU::Player.new('Nadav', 'Egozi', 15, :rating => 2205, :fed => 'ISR'))
+          @t.add_player(ICU::Player.new('Manuel', 'Weeks', 16, :rating => 2200, :fed => 'AUS', :title => 'FM'))
+          @t.add_player(ICU::Player.new('Alan', 'Grant', 17, :rating => 2223, :fed => 'SCO'))
+          @t.add_result(ICU::Result.new(1, 1, 'L', :opponent => 3,  :colour => 'B'))
+          @t.add_result(ICU::Result.new(2, 1, 'D', :opponent => 4,  :colour => 'W'))
+          @t.add_result(ICU::Result.new(3, 1, 'D', :opponent => 2,  :colour => 'B'))
+          @t.add_result(ICU::Result.new(4, 1, 'W', :opponent => 5,  :colour => 'W'))
+          @t.add_result(ICU::Result.new(5, 1, 'W', :opponent => 6,  :colour => 'B'))
+          @t.add_result(ICU::Result.new(6, 1, 'L'))
+          @t.add_result(ICU::Result.new(7, 1, 'D', :opponent => 7,  :colour => 'W'))
+          @t.add_result(ICU::Result.new(8, 1, 'L', :opponent => 8,  :colour => 'B'))
+          @t.add_result(ICU::Result.new(9, 1, 'D', :opponent => 9,  :colour => 'W'))
+          @t.add_result(ICU::Result.new(1, 2, 'L', :opponent => 10, :colour => 'W'))
+          @t.add_result(ICU::Result.new(2, 2, 'L', :opponent => 11, :colour => 'B'))
+          @t.add_result(ICU::Result.new(3, 2, 'D', :opponent => 1,  :colour => 'W'))
+          @t.add_result(ICU::Result.new(4, 2, 'D', :opponent => 12, :colour => 'B'))
+          @t.add_result(ICU::Result.new(5, 2, 'W', :opponent => 13, :colour => 'W'))
+          @t.add_result(ICU::Result.new(6, 2, 'D', :opponent => 14, :colour => 'B'))
+          @t.add_result(ICU::Result.new(7, 2, 'L', :opponent => 15, :colour => 'W'))
+          @t.add_result(ICU::Result.new(8, 2, 'D', :opponent => 16, :colour => 'B'))
+          @t.add_result(ICU::Result.new(9, 2, 'L', :opponent => 17, :colour => 'W'))
+        end
+
+        it "should serialize to the expected string" do
+          @t.serialize('ForeignCSV').should == @csv
+        end
+      end
+      
+      context "serialisation of shortened ForeignCSV documentation example" do
+        before(:each) do
+          @csv = <<CSV
+Event,"Isle of Man Masters, 2007"
+Start,2007-09-22
+Rounds,9
+Website,http://www.bcmchess.co.uk/monarch2007/
+
+Player,456,Fox,Anthony
+1,0,B,Taylor,Peter P.,2209,,ENG
+2,=,W,Nadav,Egozi,2205,,ISR
+3,=,B,Cafolla,Peter,2048,,IRL
+4,1,W,Spanton,Tim R.,1982,,ENG
+5,1,B,Grant,Alan,2223,,SCO
+6,0,-
+7,=,W,Walton,Alan J.,2223,,ENG
+8,0,B,Bannink,Bernard,2271,FM,NED
+9,=,W,Phillips,Roy,2271,,MAU
+Total,4.0
+CSV
+          @t = ICU::Tournament.new("Isle of Man Masters, 2007", '2007-09-22', :round => 9)
+          @t.site = 'http://www.bcmchess.co.uk/monarch2007/'
+          @t.rounds = 9
+          @t.add_player(ICU::Player.new('Anthony', 'Fox', 1, :id => 456, :rating => 2100, :fed => 'IRL'))
+          @t.add_player(ICU::Player.new('Peter P.', 'Taylor', 2, :rating => 2209, :fed => 'ENG'))
+          @t.add_player(ICU::Player.new('Egozi', 'Nadav', 3, :rating => 2205, :fed => 'ISR'))
+          @t.add_player(ICU::Player.new('Peter', 'Cafolla', 4, :rating => 2048, :fed => 'IRL'))
+          @t.add_player(ICU::Player.new('Tim R.', 'Spanton', 5, :rating => 1982, :fed => 'ENG'))
+          @t.add_player(ICU::Player.new('Alan', 'Grant', 6, :rating => 2223, :fed => 'SCO'))
+          @t.add_player(ICU::Player.new('Alan J.', 'Walton', 7, :rating => 2223, :fed => 'ENG'))
+          @t.add_player(ICU::Player.new('Bernard', 'Bannink', 8, :rating => 2271, :fed => 'NED', :title => 'FM'))
+          @t.add_player(ICU::Player.new('Roy', 'Phillips', 9, :rating => 2271, :fed => 'MAU'))
+          @t.add_result(ICU::Result.new(1, 1, 'L', :opponent => 2,  :colour => 'B'))
+          @t.add_result(ICU::Result.new(2, 1, 'D', :opponent => 3,  :colour => 'W'))
+          @t.add_result(ICU::Result.new(3, 1, 'D', :opponent => 4,  :colour => 'B'))
+          @t.add_result(ICU::Result.new(4, 1, 'W', :opponent => 5,  :colour => 'W'))
+          @t.add_result(ICU::Result.new(5, 1, 'W', :opponent => 6,  :colour => 'B'))
+          @t.add_result(ICU::Result.new(6, 1, 'L'))
+          @t.add_result(ICU::Result.new(7, 1, 'D', :opponent => 7,  :colour => 'W'))
+          @t.add_result(ICU::Result.new(8, 1, 'L', :opponent => 8,  :colour => 'B'))
+          @t.add_result(ICU::Result.new(9, 1, 'D', :opponent => 9,  :colour => 'W'))
+          @t.validate!
+        end
+
+        it "should serialize to the expected string" do
+          @t.serialize('ForeignCSV').should == @csv
+        end
+      end
+    end
+  end
+end