sanichi-chess_icu 0.1.0

data/spec/player_spec.rb

@@ -0,0 +1,276 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+module ICU
+  describe Player do
+    context "a typical player" do
+      it "should have a name, number and some results" do
+        lambda do
+          player = Player.new('Mark', 'Orr', 1)
+          player.add_result(Result.new(1, 1, 'W', :opponent => 37, :score => 'W', :colour => 'W'))
+          player.add_result(Result.new(2, 1, 'W', :opponent => 13, :score => 'W', :colour => 'B'))
+          player.add_result(Result.new(3, 1, 'W', :opponent => 7,  :score => 'D', :colour => 'W'))
+        end.should_not raise_error
+      end
+    end
+    
+    context "names" do
+      it "should be specified in constructor" do
+        p = Player.new('Mark', 'Orr', 1)
+        p.first_name.should == 'Mark'
+        p.last_name.should == 'Orr'
+      end
+      
+      it "should be resettable via accessors" do
+        p = Player.new('Mark', 'Orr', 1)
+        p.first_name= 'Gary'
+        p.last_name= 'Kasparov'
+        p.first_name.should == 'Gary'
+        p.last_name.should == 'Kasparov'
+      end
+      
+      it "should not contain invalid characters" do
+        lambda { Player.new('12', 'Orr', 1) }.should raise_error(/invalid first name/)
+        lambda { Player.new('Mark', '*!', 1) }.should raise_error(/invalid last name/)
+      end
+      
+      it "should not have empty last name" do
+        lambda { Player.new('Mark', '', 1) }.should raise_error(/invalid last name/)
+        lambda { Player.new('', 'Orr', 1) }.should raise_error(/invalid first name/)
+      end
+      
+      it "both names can be returned together" do
+        p = Player.new('Mark', 'Orr', 1)
+        p.name.should == 'Orr, Mark'
+      end
+      
+      it "names should be automatically canonicalised" do
+        p = Player.new(' maRk J   l ', '  ORR', 1)
+        p.name.should == 'Orr, Mark J. L.'
+        p.first_name = 'z'
+        p.name.should == 'Orr, Z.'
+        p.last_name = "  o   meFiSto  "
+        p.name.should == "O'Mefisto, Z."
+      end
+    end
+    
+    context "number" do
+      it "should just be an integer" do
+        Player.new('Mark', 'Orr', 3).num.should == 3
+        Player.new('Mark', 'Orr', -7).num.should == -7
+        Player.new('Mark', 'Orr', '  -4  ').num.should == -4
+        Player.new('Mark', 'Orr', '0').num.should == 0
+        lambda { Player.new('Mark', 'Orr', '  ') }.should raise_error(/invalid player number/)
+      end
+    end
+    
+    context "ID" do
+      it "defaults to nil" do
+        Player.new('Mark', 'Orr', 3).id.should be_nil
+      end
+
+      it "should be a positive integer" do
+        Player.new('Mark', 'Orr', 3, :id => 1350).id.should == 1350
+        Player.new('Gary', 'Kasparov', 4, :id => '4100018').id.should == 4100018
+        lambda { Player.new('Mark', 'Orr', 3, :id => ' 0 ') }.should raise_error(/invalid ID/)
+      end
+    end
+    
+    context "federation" do
+      it "defaults to nil" do
+        Player.new('Mark', 'Orr', 3).fed.should be_nil
+        Player.new('Mark', 'Orr', 3, :fed => '   ').fed.should be_nil
+      end
+
+      it "should consist of at least three letters" do
+        Player.new('Gary', 'Kasparov', 1, :fed => 'RUS').fed.should == 'RUS'
+        Player.new('Mark', 'Orr', 3, :fed => ' Ireland ').fed.should == 'Ireland'
+        lambda { Player.new('Danny', 'Kopec', 3, :fed => 'US') }.should raise_error(/invalid federation/)
+      end
+    end
+    
+    context "title" do
+      it "defaults to nil" do
+        Player.new('Mark', 'Orr', 3).title.should be_nil
+        Player.new('Mark', 'Orr', 3, :title => '   ').title.should be_nil
+      end
+
+      it "should be one of national, candidate, FIDE, international or grand master" do
+        Player.new('Gary', 'Kasparov', 1, :title => 'GM').title.should == 'GM'
+        Player.new('Mark', 'Orr', 2, :title => ' im ').title.should == 'IM'
+        Player.new('Pia', 'Cramling', 3, :title => ' wg ').title.should == 'WGM'
+        Player.new('Philip', 'Short', 4, :title => 'F ').title.should == 'FM'
+        Player.new('Gearoidin', 'Ui Laighleis', 5, :title => 'wc').title.should == 'WCM'
+        Player.new('Eamon', 'Keogh', 6, :title => 'nm').title.should == 'NM'
+        lambda { Player.new('Mark', 'Orr', 3, :title => 'Dr') }.should raise_error(/invalid chess title/)
+      end
+    end
+    
+    context "rating" do
+      it "defaults to nil" do
+        Player.new('Mark', 'Orr', 3).rating.should be_nil
+        Player.new('Mark', 'Orr', 3, :rating => '   ').rating.should be_nil
+      end
+
+      it "should be a positive integer" do
+        Player.new('Gary', 'Kasparov', 1, :rating => 2800).rating.should == 2800
+        Player.new('Mark', 'Orr', 2, :rating => ' 2100 ').rating.should == 2100
+        lambda { Player.new('Mark', 'Orr', 3, :rating => -2100) }.should raise_error(/invalid rating/)
+        lambda { Player.new('Mark', 'Orr', 3, :rating => 'IM') }.should raise_error(/invalid rating/)
+      end
+    end
+    
+    context "rank" do
+      it "defaults to nil" do
+        Player.new('Mark', 'Orr', 3).rank.should be_nil
+      end
+
+      it "should be a positive integer" do
+        Player.new('Mark', 'Orr', 3, :rank => 1).rank.should == 1
+        Player.new('Gary', 'Kasparov', 4, :rank => ' 29 ').rank.should == 29
+        lambda { Player.new('Mark', 'Orr', 3, :rank => 0) }.should raise_error(/invalid rank/)
+        lambda { Player.new('Mark', 'Orr', 3, :rank => ' -1 ') }.should raise_error(/invalid rank/)
+      end
+    end
+    
+    context "date of birth" do
+      it "defaults to nil" do
+        Player.new('Mark', 'Orr', 3).dob.should be_nil
+        Player.new('Mark', 'Orr', 3, :dob => '   ').dob.should be_nil
+      end
+
+      it "should be a yyyy-mm-dd date" do
+        Player.new('Mark', 'Orr', 3, :dob => '1955-11-09').dob.should == '1955-11-09'
+        lambda { Player.new('Mark', 'Orr', 3, :dob => 'X') }.should raise_error(/invalid DOB/)
+      end
+    end
+    
+    context "results and points" do
+      it "should initialise to an empty array" do
+        results = Player.new('Mark', 'Orr', 3).results
+        results.should be_instance_of Array
+        results.size.should == 0
+      end
+      
+      it "can be added to" do
+        player = Player.new('Mark', 'Orr', 3)
+        player.add_result(Result.new(1, 3, 'W', :opponent => 1))
+        player.add_result(Result.new(2, 3, 'D', :opponent => 2))
+        player.add_result(Result.new(3, 3, 'L', :opponent => 4))
+        results = player.results
+        results.should be_instance_of Array
+        results.size.should == 3
+        player.points.should == 1.5
+      end
+      
+      it "should not allow mismatched player numbers" do
+        player = Player.new('Mark', 'Orr', 3)
+        lambda { player.add_result(Result.new(1, 4, 'W', :opponent => 1)) }.should raise_error(/player number .* matched/)
+      end
+      
+      it "should enforce unique round numbers" do
+        player = Player.new('Mark', 'Orr', 3)
+        player.add_result(Result.new(1, 3, 'W', :opponent => 1))
+        player.add_result(Result.new(2, 3, 'D', :opponent => 2))
+        lambda { player.add_result(Result.new(2, 3, 'L', :opponent => 4)) }.should raise_error(/round number .* unique/)
+      end
+    end
+    
+    context "looking up results" do
+      before(:all) do
+        @p = Player.new('Mark', 'Orr', 1)
+        @p.add_result(Result.new(1, 1, 'W', :opponent => 37, :score => 'W', :colour => 'W'))
+        @p.add_result(Result.new(2, 1, 'W', :opponent => 13, :score => 'W', :colour => 'B'))
+        @p.add_result(Result.new(3, 1, 'W', :opponent => 7,  :score => 'D', :colour => 'W'))
+      end
+      
+      it "should find results by round number" do
+        @p.find_result(1).opponent.should == 37
+        @p.find_result(2).opponent.should == 13
+        @p.find_result(3).opponent.should == 7
+        @p.find_result(4).should be_nil
+      end
+    end
+    
+    context "subsumption" do
+      before(:each) do
+        @p1 = Player.new('Mark', 'Orr', 1, :id => 1350)
+        @p2 = Player.new('Mark', 'Orr', 2, :rating => 2100, :title => 'IM', :fed => 'IRL')
+        @p3 = Player.new('Gearoidin', 'Ui Laighleis', 3, :rating => 1600, :title => 'WIM', :fed => 'IRL')
+      end
+      
+      it "takes on the ID, rating, title and fed of the other player but not the player number" do
+        @p1.subsume(@p2)
+        @p1.num.should == 1
+        @p1.id.should == 1350
+        @p1.rating.should == 2100
+        @p1.title.should == 'IM'
+        @p1.fed.should == 'IRL'
+      end
+      
+      it "should have a kind of symmetry" do
+        p1 = @p1.dup
+        p2 = @p2.dup
+        p1.subsume(p2).eql?(@p2.subsume(@p1))
+      end
+      
+      it "cannot be done with unequal objects" do
+        lambda { @p1.subsume(@p3) }.should raise_error(/cannot merge.*not strictly equal/)
+      end
+    end
+    
+    context "loose equality" do
+      before(:all) do
+        @mark1 = Player.new('Mark', 'Orr', 1)
+        @mark2 = Player.new('Mark', 'Orr', 2, :fed => 'IRL')
+        @mark3 = Player.new('Mark', 'Orr', 3, :fed => 'USA')
+        @mark4 = Player.new('Mark', 'Sax', 4, :def => 'HUN')
+        @john1 = Player.new('John', 'Orr', 5, :fed => 'IRL')
+      end
+      
+      it "any player is equal to itself" do
+        (@mark1 == @mark1).should be_true
+      end
+      
+      it "two players are equal if their names are the same and their federations do not conflict" do
+        (@mark1 == @mark2).should be_true
+      end
+      
+      it "two players cannot be equal if they have different names" do
+        (@mark1 == @mark4).should be_false
+        (@mark1 == @john1).should be_false
+      end
+      
+      it "two players cannot be equal if they have different federations" do
+        (@mark2 == @mark3).should be_false
+        (@mark1 == @mark3).should be_true
+      end
+    end
+  
+    context "strict equality" do
+      before(:all) do
+        @mark1 = Player.new('Mark', 'Orr', 1)
+        @mark2 = Player.new('Mark', 'Orr', 2, :id => 1350, :rating => 2100, :title => 'IM')
+        @mark3 = Player.new('Mark', 'Orr', 3, :id => 1530)
+        @mark4 = Player.new('Mark', 'Orr', 4, :rating => 2200)
+        @mark5 = Player.new('Mark', 'Orr', 5, :title => 'GM')
+      end
+    
+      it "any player is equal to itself" do
+        @mark1.eql?(@mark1).should be_true
+        @mark1.eql?(@mark1).should be_true
+      end
+      
+      it "two players are equal as long as their ID, rating and title do not conflict" do
+        @mark1.eql?(@mark2).should be_true
+        @mark3.eql?(@mark4).should be_true
+        @mark4.eql?(@mark5).should be_true
+      end
+      
+      it "two players are not equal if their ID, rating or title conflict" do
+        @mark2.eql?(@mark3).should be_false
+        @mark2.eql?(@mark4).should be_false
+        @mark2.eql?(@mark5).should be_false
+      end
+    end
+  end
+end

data/spec/result_spec.rb

@@ -0,0 +1,165 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+module ICU
+  describe Result do
+    context "a typical result" do
+      it "should have a round, player number and score plus optional opponent number, colour and rateable flag" do
+        lambda { Result.new(3, 5, 'W', :opponent => 11, :colour => 'W') }.should_not raise_error
+      end
+    end
+    
+    context "round number" do
+      it "should be a positive integer" do
+        lambda { Result.new(-2, 2, 0) }.should raise_error(/invalid round number/)
+        lambda { Result.new(0, 2, 0) }.should raise_error(/invalid round number/)
+        Result.new(1, 2, 0).round.should == 1
+        Result.new(' 3 ', 2, 0).round.should == 3
+      end
+    end
+    
+    context "player number" do
+      it "should be an integer" do
+        lambda { Result.new(1, '  ', 0) }.should raise_error(/invalid player number/)
+        Result.new(1, 2, 0).player.should == 2
+        Result.new(1, ' 0 ', 0).player.should == 0
+        Result.new(1, -5, 0).player.should == -5
+        Result.new(1, " 9 ", 0).player.should == 9
+      end
+    end
+    
+    context "score" do
+      [1, 1.0, 'W', 'w', '+'].each do |score|
+        it "should be 'W' for #{score}, #{score.class}" do
+          Result.new(1, 2, score).score.should == 'W'
+        end
+      end
+      [0, 0.0, 'L', 'l', '-'].each do |score|
+        it "should be 'L' for #{score}, #{score.class}" do
+          Result.new(1, 2, score).score.should == 'L'
+        end
+      end
+      ['½', 0.5, 'D', 'd', '='].each do |score|
+        it "should be 'L' for #{score}, #{score.class}" do
+          Result.new(1, 2, score).score.should == 'D'
+        end
+      end
+      ['', ' ', 'x', 2, -1.0, nil].each do |score|
+        it "should raise error for invalid score (#{score})" do
+          lambda { Result.new(1, 2, score) }.should raise_error(/invalid score/)
+        end
+      end
+      it "should be expressable as a number" do
+        Result.new(1, 2, 'W').points.should == 1.0
+        Result.new(1, 2, 'L').points.should == 0.0
+        Result.new(1, 2, 'D').points.should == 0.5
+      end
+    end
+    
+    context "colour" do
+      it "should be 'W' or 'B' or nil (unknown)" do
+        Result.new(4, 1, 0).colour.should be_nil
+        Result.new(4, 1, 0, :colour => 'W').colour.should == 'W'
+        Result.new(4, 1, 0, :colour => 'white').colour.should == 'W'
+        Result.new(4, 1, 0, :colour => '  b ').colour.should == 'B'
+        Result.new(4, 1, 0, :colour => ' BLACK ').colour.should == 'B'
+        lambda { Result.new(4, 1, 0, :colour => 'red') }.should raise_error(/invalid colour/)
+      end
+    end
+    
+    context "opponent number" do
+      it "should be nil (the default) or an integer" do
+        Result.new(4, 1, 0).opponent.should be_nil
+        Result.new(4, 1, 0, :opponent => nil).opponent.should be_nil
+        Result.new(4, 1, 0, :opponent => '   ').opponent.should be_nil
+        Result.new(4, 1, 0, :opponent => 0).opponent.should == 0
+        Result.new(4, 1, 0, :opponent => 2).opponent.should == 2
+        Result.new(4, 1, 0, :opponent => -6).opponent.should == -6
+        Result.new(4, 1, 0, :opponent => ' 10 ').opponent.should == 10
+        lambda { Result.new(4, 1, 0, :opponent => 'X') }.should raise_error(/invalid opponent number/)
+      end
+      
+      it "should be different to player number" do
+        lambda { Result.new(4, 1, 0, :opponent => 1) }.should raise_error(/opponent .* player .* different/)
+      end
+    end
+    
+    context "rateable flag" do
+      it "should default to false if there is no opponent" do
+        Result.new(4, 1, 0).rateable.should be_false
+      end
+      
+      it "should default to true if there is an opponent" do
+        Result.new(4, 1, 0, :opponent => 10).rateable.should be_true
+      end
+      
+      it "should change if an opponent is added" do
+        r = Result.new(4, 1, 0)
+        r.opponent = 5;
+        r.rateable.should be_true
+      end
+      
+      it "should be settable to false from the constructor" do
+        Result.new(4, 1, 0, :opponent => 10, :rateable => false).rateable.should be_false
+      end
+
+      it "should be settable to false using the accessor" do
+        r = Result.new(4, 1, 0, :opponent => 10)
+        r.rateable= false
+        r.rateable.should be_false
+      end
+      
+      it "should not be settable to true if there is no opponent" do
+        r = Result.new(4, 1, 0)
+        r.rateable= true
+        r.rateable.should be_false
+      end
+    end
+    
+    context "reversed result" do
+      it "should be nil if there is no opponent" do
+        Result.new(4, 1, 0).reverse.should be_nil
+      end
+      
+      it "should have player and opponent swapped" do
+        r = Result.new(4, 1, 0, :opponent => 2).reverse
+        r.player.should == 2
+        r.opponent.should == 1
+      end
+      
+      it "should have reversed result" do
+        Result.new(4, 1, 0, :opponent => 2).reverse.score.should == 'W'
+        Result.new(4, 1, 1, :opponent => 2).reverse.score.should == 'L'
+        Result.new(4, 1, '=', :opponent => 2).reverse.score.should == 'D'
+      end
+      
+      it "should preserve rateability" do
+        Result.new(4, 1, 0, :opponent => 2).reverse.rateable.should be_true
+        Result.new(4, 1, 0, :opponent => 2, :rateable => false).reverse.rateable.should be_false
+      end
+    end
+    
+    context "loose equality" do
+      before(:each) do
+        @r1 = Result.new(1, 1, 0, :opponent => 2, :colour => 'W')
+        @r2 = Result.new(1, 1, 0, :opponent => 2, :colour => 'W')
+        @r3 = Result.new(2, 1, 0, :opponent => 2, :colour => 'W')
+        @r4 = Result.new(1, 3, 0, :opponent => 2, :colour => 'W')
+        @r5 = Result.new(1, 1, 1, :opponent => 2, :colour => 'W')
+        @r6 = Result.new(1, 1, 0, :opponent => 3, :colour => 'W')
+        @r7 = Result.new(1, 1, 0, :opponent => 2, :colour => 'B')
+      end
+      
+      it "should be equal if the round, player numbers, result and colour all match" do
+        (@r1 == @r2).should be_true
+      end
+      
+      it "should not be equal if the round, player numbers, result or colour do not match" do
+        (@r1 == @r3).should be_false
+        (@r1 == @r4).should be_false
+        (@r1 == @r5).should be_false
+        (@r1 == @r6).should be_false
+        (@r1 == @r7).should be_false
+      end
+    end
+  end
+end

data/spec/spec_helper.rb

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

data/spec/tournament_fcsv_spec.rb

@@ -0,0 +1,306 @@
+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 = ForeignCSV.new(@csv)
+          @t = @f.tournament
+        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 "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 = ForeignCSV.new(@csv)
+          @t = @f.tournament
+        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 = ForeignCSV.new(@csv)
+          @t = @f.tournament
+        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 = ForeignCSV.new(@csv)
+          @t = @f.tournament
+        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 "invalid files" do
+        it "a blank file is invalid" do
+          lambda { ForeignCSV.new(' ') }.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 { ForeignCSV.new(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 { ForeignCSV.new(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 { ForeignCSV.new(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 { ForeignCSV.new(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 { ForeignCSV.new(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 { ForeignCSV.new(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 { ForeignCSV.new(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 { ForeignCSV.new(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 { ForeignCSV.new(csv) }.should raise_error(/line 13.*same name.*conflicting/i)
+        end
+      end
+    end
+  end
+end