f1results 0.1

data/LICENSE

@@ -0,0 +1,22 @@
+Copyright (c) 2012 Darren Jeacocke
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,23 @@
+# F1Results
+
+Get F1 results from formula1.com
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'f1results'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install f1results
+
+## Usage
+
+### Command Line
+
+    $ f1results <season> [<round>] [-q, --qualifying]

data/Rakefile

@@ -0,0 +1,10 @@
+require 'bundler/setup'
+require 'rake'
+require 'rake/testtask'
+
+task :default => :test
+
+Rake::TestTask.new do |t|
+  t.libs << 'test/lib'
+  t.pattern = 'test/*_test.rb'
+end

data/bin/f1results

@@ -0,0 +1,53 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'optparse'
+require 'terminal-table'
+require 'f1results'
+
+options = {}
+
+optparse = OptionParser.new do |opts|
+  options[:type] = :race
+  opts.on('-q', '--qualifying', 'Qualifying') do
+    options[:type] = :qualifying
+  end
+end
+
+optparse.parse!
+
+season = ARGV[0] || Time.now.year
+country = if country = ARGV[1]
+  country.to_i == 0 ? country : country.to_i
+else
+  :latest
+end
+
+begin
+  event = F1Results.get(season, country, options[:type])
+rescue Exception => e
+  puts e
+  exit
+end
+
+title = [event.country, event.type.to_s.capitalize, event.grand_prix].join(' ')
+table = Terminal::Table.new :title => title, :rows => event.to_a
+
+if event.qualifying?
+  cols = %W(Pos Num Driver Team Q1 Q2 Q3 Laps)
+  table.align_column 0, :right
+  table.align_column 1, :right
+  table.align_column 7, :right
+
+elsif event.race?
+  cols = %W(Pos Num Driver Team Laps Time/Retired Grid Points)
+  table.align_column 0, :right
+  table.align_column 1, :right
+  table.align_column 4, :right
+  table.align_column 5, :right
+  table.align_column 6, :right
+  table.align_column 7, :right
+end
+
+table.headings = cols
+puts table

data/lib/f1results.rb

@@ -0,0 +1,21 @@
+require 'f1results/version'
+require 'f1results/agent'
+require 'f1results/event'
+require 'f1results/result'
+
+module F1Results
+  BASEURL = 'http://www.formula1.com'
+
+  # Get results from formula1.com for a given season, country, and event type
+  # (race or qualifying)
+  #
+  #   F1Results.get(2010, 'australia', :qualifying)
+  #
+  # Returns an `F1Results::Event` object which has a method `results`, which
+  # returns multiple objects of type `F1Results::Result`
+
+  def self.get(year, country, type = :race)
+    agent = F1Results::Agent.new
+    agent.get_event(year, country, type)
+  end
+end

data/lib/f1results/agent.rb

@@ -0,0 +1,51 @@
+require 'mechanize'
+
+module F1Results
+  class Agent < ::Mechanize
+    def get_event(season, country, type)
+      event = Event.new(:season => season, :type => type)
+
+      begin
+        get(::File.join(F1Results::BASEURL, "results/season/#{season}/"))
+      rescue Mechanize::ResponseCodeError, 404
+        raise "No results for season: #{season}"
+      end
+
+      season_country_link = case
+      when country.is_a?(String)
+        event.country = country
+        page.link_with(:text => event.country)
+      when country.is_a?(Integer)
+
+        # Get the link to the country on the nth row
+
+        next_page = page.parser.at_xpath("//tr[not(position()=1)][#{country}]/td[1]/a")
+        event.country = next_page.text
+        page.link_with(:node => next_page)
+      when country == :latest
+
+        # Get the link to the country in the last row where results are present
+
+        next_page = page.parser.at_xpath('(//tr/td[3][node()])[last()]/../td[1]/a')
+        event.country = next_page.text
+        page.link_with(:node => next_page)
+      end
+      raise "Grand Prix not found: #{season} #{country}" if season_country_link.nil?
+
+      click(season_country_link)
+      event.grand_prix = page.parser.at_xpath('//h2').text
+
+      if event.qualifying?
+        grand_prix_link = page.link_with(:text => 'QUALIFYING') || page.link_with(:text => 'SUNDAY QUALIFYING')
+        raise "No qualifying results for: #{season} #{country}" if grand_prix_link.nil?
+        click(grand_prix_link)
+      end
+
+      table = page.parser.xpath('//table[contains(@class, "raceResults")]')
+      raise "No results for: #{season} #{country}" if table.empty?
+
+      event.parse_results_table(table)
+      event
+    end
+  end
+end

data/lib/f1results/event.rb

@@ -0,0 +1,49 @@
+module F1Results
+  class Event
+    attr_accessor :season, :country, :type, :grand_prix, :results
+
+    def initialize(args)
+      args.each { |k,v| send("#{k}=", v) }
+      @results = []
+    end
+
+    def country
+      @country.split(/(\W)/).map(&:capitalize).join
+    end
+
+    def qualifying?
+      @type == :qualifying
+    end
+
+    def race?
+      @type == :race
+    end
+
+    def to_a
+      @results.map(&:to_a)
+    end
+
+    def winner
+      @results.first.driver
+    end
+
+    def loser
+      @results.last.driver
+    end
+
+    def parse_results_table(table)
+      data = table.xpath('//tr')[1..-1].map do |row|
+        row.xpath('./td').map do |col|
+          col.text.strip
+        end
+      end
+
+      data.each_with_index do |row, i|
+        klass = qualifying? ? QualifyingResult : RaceResult
+        result = klass.new(row)
+        result.index = i + 1
+        @results << result unless result.position.nil?
+      end
+    end
+  end
+end

data/lib/f1results/result.rb

@@ -0,0 +1,79 @@
+module F1Results
+  class Result
+    attr_accessor :index, :position, :driver, :driver_number, :team, :time, :retired, :laps
+
+    def initialize(row = nil)
+      build(row) unless row.nil?
+    end
+
+    def position=(n)
+      @position = case
+      when n == ''
+        nil
+      when n.to_i == 0
+        n
+      else
+        n.to_i
+      end
+    end
+
+    def time_or_retired=(str)
+      if /^[0-9]|\+/ =~ str
+        @time = str
+      else
+        @retired = str
+      end
+    end
+
+    def time_or_retired
+      time || retired
+    end
+
+    private
+
+    def build(row)
+      self.position = row[0]
+      @driver_number = row[1].to_i
+      @driver = row[2]
+      @team = row[3]
+    end
+  end
+
+  class QualifyingResult < Result
+    attr_accessor :q1, :q2, :q3
+
+    def to_a
+      [position, driver_number, driver, team, q1, q2, q3, laps]
+    end
+
+    private
+
+    def build(row)
+      @q1 = row[4]
+      if row.length > 5
+        @q2 = row[5]
+        @q3 = row[6]
+        @laps = row[7].to_i
+      end
+      super
+    end
+  end
+
+  class RaceResult < Result
+    attr_accessor :grid, :points
+
+    def to_a
+      [position, driver_number, driver, team, laps, time_or_retired, grid, points]
+    end
+
+    private
+
+    def build(row)
+      @laps = row[4].to_i
+      self.time_or_retired = row[5]
+      @grid = row[6].to_i
+      @points = row[7].to_i
+      super
+    end
+  end
+end

data/lib/f1results/version.rb

@@ -0,0 +1,3 @@
+module F1Results
+  VERSION = "0.1"
+end

data/test/agent_test.rb

@@ -0,0 +1,70 @@
+# encoding: utf-8
+require 'test_helper'
+
+class AgentTest < MiniTest::Unit::TestCase
+  include Fixtures
+
+  def setup
+    @agent = F1Results::Agent.new
+  end
+
+  def test_get_event_2012_great_britain
+    event = @agent.get_event(2012, 'Great Britain', :race)
+    assert event.race?
+    assert_equal 'Great Britain', event.country
+    assert_equal '2012 FORMULA 1 SANTANDER BRITISH GRAND PRIX', event.grand_prix
+    assert_equal 24, event.results.size
+    assert_equal 'Mark Webber', event.winner
+    assert_equal 'Vitaly Petrov', event.loser
+  end
+
+  def test_get_event_2012_great_britain_qualifying
+    event = @agent.get_event(2012, 'Great Britain', :qualifying)
+    assert event.qualifying?
+    assert_equal 'Great Britain', event.country
+    assert_equal '2012 FORMULA 1 SANTANDER BRITISH GRAND PRIX', event.grand_prix
+    assert_equal 24, event.results.size
+    assert_equal 'Fernando Alonso', event.winner
+    assert_equal 'Charles Pic', event.loser
+  end
+
+  def test_get_event_2005_australia_qualifyng
+    event = @agent.get_event(2005, 'Australia', :qualifying)
+    assert_equal 'Australia', event.country
+    assert_equal "2005 FORMULA 1™ Foster's Australian Grand Prix", event.grand_prix
+    assert_equal 20, event.results.size
+    assert_equal 'Giancarlo Fisichella', event.winner
+  end
+
+  def test_get_event_1992_hungary
+    event = @agent.get_event(1992, 'Hungary', :race)
+    assert_equal 'Hungary', event.country
+    assert_equal '1992 Hungarian Grand Prix', event.grand_prix
+    assert_equal 31, event.results.size
+    assert_equal 'Ayrton Senna', event.winner
+  end
+
+  def test_get_event_with_bad_year
+    assert_raises RuntimeError, 'Invalid season: 1800' do
+      @agent.get_event(1800, 'Australia', :race)
+    end
+  end
+
+  def test_get_event_with_bad_grand_prix
+    assert_raises RuntimeError, 'Invalid Grand Prix: New Zealand' do
+      @agent.get_event(2012, 'New Zealand', :race)
+    end
+  end
+
+  def test_get_event_2012_9th
+    event = @agent.get_event(2012, 9, :race)
+    assert_equal 'Great Britain', event.country
+    assert_equal '2012 FORMULA 1 SANTANDER BRITISH GRAND PRIX', event.grand_prix
+  end
+
+  def test_get_event_2012_latest
+    event = @agent.get_event(2012, :latest, :race)
+    assert_equal 'Hungary', event.country
+    assert_equal 'FORMULA 1 ENI MAGYAR NAGYDÍJ 2012', event.grand_prix
+  end
+end

data/test/result_test.rb

@@ -0,0 +1,53 @@
+# encoding: utf-8
+require 'test_helper'
+
+class ResultTest < MiniTest::Unit::TestCase
+  def test_time
+    result = F1Results::RaceResult.new
+    result.time_or_retired = '1:25:11.288'
+    assert_equal '1:25:11.288', result.time
+  end
+
+  def test_relative_time
+    result = F1Results::RaceResult.new
+    result.time_or_retired = '+3.0 secs'
+    assert_equal '+3.0 secs', result.time
+  end
+
+  def test_retired
+    result = F1Results::RaceResult.new
+    result.time_or_retired = 'Accident'
+    assert_equal 'Accident', result.retired
+    result.time_or_retired = 'Gear box'
+    assert_equal 'Gear box', result.retired
+  end
+
+  def test_parse_race
+    result = F1Results::RaceResult.new(['5', '9', 'Kimi Räikkönen', 'Lotus-Renault', '52', '+10.3 secs', '6', '10'])
+    assert_equal 5, result.position
+    assert_equal 9, result.driver_number
+    assert_equal 'Kimi Räikkönen', result.driver
+    assert_equal 'Lotus-Renault', result.team
+    assert_equal 52, result.laps
+    assert_equal '+10.3 secs', result.time
+    assert_equal 6, result.grid
+    assert_equal 10, result.points
+  end
+
+  def test_parse_qualifying
+    result = F1Results::QualifyingResult.new(['1', '5', 'Fernando Alonso', 'Ferrari', '1:46.515', '1:56.921', '1:51.746', '25'])
+    assert_equal 1, result.position
+    assert_equal 5, result.driver_number
+    assert_equal 'Fernando Alonso', result.driver
+    assert_equal 'Ferrari', result.team
+    assert_equal '1:46.515', result.q1
+    assert_equal '1:56.921', result.q2
+    assert_equal '1:51.746', result.q3
+    assert_equal 25, result.laps
+  end
+
+  def test_race_to_a
+    result = F1Results::RaceResult.new(['5', '9', 'Kimi Räikkönen', 'Lotus-Renault', '52', '+10.3 secs', '6', '10'])
+    assert_equal [5, 9, 'Kimi Räikkönen', 'Lotus-Renault', 52, '+10.3 secs', 6, 10], result.to_a
+  end
+end

metadata

@@ -0,0 +1,136 @@
+--- !ruby/object:Gem::Specification
+name: f1results
+version: !ruby/object:Gem::Version
+  version: '0.1'
+  prerelease: 
+platform: ruby
+authors:
+- Darren Jeacocke
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-01-07 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: mechanize
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: terminal-table
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: minitest
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: webmock
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: Get F1 results from formula1.com
+email: dazonic@me.com
+executables:
+- f1results
+extensions: []
+extra_rdoc_files: []
+files:
+- bin/f1results
+- lib/f1results/agent.rb
+- lib/f1results/event.rb
+- lib/f1results/result.rb
+- lib/f1results/version.rb
+- lib/f1results.rb
+- test/agent_test.rb
+- test/result_test.rb
+- Rakefile
+- README.md
+- LICENSE
+homepage: https://github.com/daz/f1results
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.23
+signing_key: 
+specification_version: 3
+summary: F1 Results
+test_files: []