sapor 0.3.3

data/spec/unit/flanders_spec.rb

@@ -0,0 +1,70 @@
+# encoding: utf-8
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2016 Filip van Laenen <f.a.vanlaenen@ieee.org>
+#
+# This file is part of SAPoR.
+#
+# SAPoR is free software: you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation, either version 3 of the License, or (at your option) any later
+# version.
+#
+# SAPoR is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You can find a copy of the GNU General Public License in /doc/gpl.txt
+#
+
+require 'spec_helper'
+
+describe Sapor::Flanders, '#area_code' do
+  it 'returns BE-VLG as the area code' do
+    expect(Sapor::Flanders.instance.area_code).to eq('BE-VLG')
+  end
+end
+
+describe Sapor::Flanders, '#no_of_seats' do
+  it 'returns 124 as the number of seats' do
+    expect(Sapor::Flanders.instance.no_of_seats).to eq(124)
+  end
+end
+
+describe Sapor::Flanders, '#population_size' do
+  it 'returns a population size of 4,238,274' do
+    expect(Sapor::Flanders.instance.population_size).to eq(4_238_274)
+  end
+end
+
+describe Sapor::Flanders, '#seats' do
+  it 'calculates the number of seats for the election of 2019' do
+    flanders = Sapor::Flanders.instance
+    results = flanders.overall_election_results_of_2019
+    seats = flanders.seats(results)
+    expect(seats['Nieuw-Vlaamse Alliantie']).to eq(35)
+    expect(seats['Christen-Democratisch en Vlaams']).to eq(19)
+    expect(seats['Open Vlaamse Liberalen en Democraten']).to eq(16)
+    expect(seats['Socialistische Partij Anders']).to eq(13)
+    expect(seats['Groen']).to eq(14)
+    expect(seats['Vlaams Belang']).to eq(23)
+    expect(seats['Partij van de Arbeid van België']).to eq(4)
+    expect(seats['BE.ONE']).to eq(0)
+    expect(seats['Burgerlijst']).to eq(0)
+    expect(seats['de coöperatie']).to eq(0)
+    expect(seats['Democratisch-Solidair Appèl']).to eq(0)
+    expect(seats['DierAnimal']).to eq(0)
+    expect(seats['Genoeg voor iedereen']).to eq(0)
+    expect(seats['Piratenpartij']).to eq(0)
+    expect(seats['Partij Vrede en Solidariteit']).to eq(0)
+    expect(seats['PRO']).to eq(0)
+    expect(seats['Referendumpartij']).to eq(0)
+    expect(seats['Union des Francophones']).to eq(0)
+  end
+end
+
+describe Sapor::Flanders, '#threshold' do
+  it 'returns a threshold of 5%' do
+    expect(Sapor::Flanders.instance.threshold).to eq(0.05)
+  end
+end

data/spec/unit/france_spec.rb

@@ -0,0 +1,32 @@
+# encoding: utf-8
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2016 Filip van Laenen <f.a.vanlaenen@ieee.org>
+#
+# This file is part of SAPoR.
+#
+# SAPoR is free software: you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation, either version 3 of the License, or (at your option) any later
+# version.
+#
+# SAPoR is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You can find a copy of the GNU General Public License in /doc/gpl.txt
+#
+
+require 'spec_helper'
+
+describe Sapor::France, '#area_code' do
+  it 'returns FR as the area code' do
+    expect(Sapor::France.instance.area_code).to eq('FR')
+  end
+end
+
+describe Sapor::France, '#population_size' do
+  it 'returns a population size of 44,834,000' do
+    expect(Sapor::France.instance.population_size).to eq(44_834_000)
+  end
+end

data/spec/unit/greece_spec.rb

@@ -0,0 +1,118 @@
+
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2016 Filip van Laenen <f.a.vanlaenen@ieee.org>
+#
+# This file is part of SAPoR.
+#
+# SAPoR is free software: you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation, either version 3 of the License, or (at your option) any later
+# version.
+#
+# SAPoR is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You can find a copy of the GNU General Public License in /doc/gpl.txt
+#
+
+require 'spec_helper'
+
+describe Sapor::Greece, '#area_code' do
+  it 'returns GR as the area code' do
+    expect(Sapor::Greece.instance.area_code).to eq('GR')
+  end
+end
+
+describe Sapor::Greece, '#no_of_seats' do
+  it 'returns 300 as the number of seats' do
+    expect(Sapor::Greece.instance.no_of_seats).to eq(300)
+  end
+end
+
+describe Sapor::Greece, '#population_size' do
+  it 'returns a population size of 5,567,930' do
+    expect(Sapor::Greece.instance.population_size).to eq(5_567_930)
+  end
+end
+
+describe Sapor::Greece, '#seats' do
+  it 'calculates the number of seats for the election of 20 September 2015' \
+     ' correctly' do
+    greece = Sapor::Greece.instance
+    results = { 'Συνασπισμός Ριζοσπαστικής Αριστεράς' => 1_925_904,
+                'Νέα Δημοκρατία' => 1_526_205,
+                'Χρυσή Αυγή' => 379_581,
+                'Δημοκρατική Συμπαράταξη' => 341_390,
+                'Κομμουνιστικό Κόμμα Ελλάδας' => 301_632,
+                'Το Ποτάμι' => 222_166,
+                'Ανεξάρτητοι Έλληνες' => 200_423,
+                'Ένωση Κεντρώων' => 186_457,
+                'Λαϊκή Ενότητα' => 155_242,
+                'Αντικαπιταλιστική Αριστερή Συνεργασία για την Ανατροπή Εργατικό Επαναστατικό Κόμμα' => 46_096,
+                'Ενιαίο Παλλαϊκό Μέτωπο' => 41_631,
+                'Κοινωνία' => 35_534,
+                'δημιουργία, ξανά!' => 28_936,
+                'Δημοκρατικοί–Κοινωνία Αξιών–Κόμμα Πειρατών' => 15_257,
+                'Κομμουνιστικό Κόμμα Ελλάδας (μ-λ)–Μ-Λ Κομμουνιστικό Κόμμα Ελλάδας' => 8_944,
+                'Πατριωτική Ένωση–Ελληνική Λαϊκή Συσπείρωση' => 6_253,
+                'Ελληνική Λαϊκή Δημοκρατική Απελευθέρωση' => 4_425,
+                'Οργάνωση Κομμουνιστών Διεθνιστών Ελλάδας' => 2_372,
+                'Οργάνωση για την Ανασυγκρότηση του Κ.Κ.Ε.' => 2_263,
+                'Independent candidates' => 1_139 }
+    seats = greece.seats(results)
+    expect(seats['Συνασπισμός Ριζοσπαστικής Αριστεράς']).to eq(145)
+    expect(seats['Νέα Δημοκρατία']).to eq(75)
+    expect(seats['Χρυσή Αυγή']).to eq(18)
+    expect(seats['Δημοκρατική Συμπαράταξη']).to eq(17)
+    expect(seats['Κομμουνιστικό Κόμμα Ελλάδας']).to eq(15)
+    expect(seats['Το Ποτάμι']).to eq(11)
+    expect(seats['Ανεξάρτητοι Έλληνες']).to eq(10)
+    expect(seats['Ένωση Κεντρώων']).to eq(9)
+    expect(seats['Λαϊκή Ενότητα']).to eq(0)
+    expect(seats['Αντικαπιταλιστική Αριστερή Συνεργασία για την Ανατροπή Εργατικό Επαναστατικό Κόμμα']).to eq(0)
+    expect(seats['Ενιαίο Παλλαϊκό Μέτωπο']).to eq(0)
+    expect(seats['Κοινωνία']).to eq(0)
+    expect(seats['δημιουργία, ξανά!']).to eq(0)
+    expect(seats['Δημοκρατικοί–Κοινωνία Αξιών–Κόμμα Πειρατών']).to eq(0)
+    expect(seats['Κομμουνιστικό Κόμμα Ελλάδας (μ-λ)–Μ-Λ Κομμουνιστικό Κόμμα Ελλάδας']).to eq(0)
+    expect(seats['Πατριωτική Ένωση–Ελληνική Λαϊκή Συσπείρωση']).to eq(0)
+    expect(seats['Ελληνική Λαϊκή Δημοκρατική Απελευθέρωση']).to eq(0)
+    expect(seats['Οργάνωση Κομμουνιστών Διεθνιστών Ελλάδας']).to eq(0)
+    expect(seats['Οργάνωση για την Ανασυγκρότηση του Κ.Κ.Ε.']).to eq(0)
+    expect(seats['Independent candidates']).to eq(0)
+  end
+
+  it 'calculates the number of seats for the election of 20 September 2015' \
+     ' correctly with small parties aggregated as OTHER' do
+    greece = Sapor::Greece.instance
+    results = { 'Συνασπισμός Ριζοσπαστικής Αριστεράς' => 1_925_904,
+                'Νέα Δημοκρατία' => 1_526_205,
+                'Χρυσή Αυγή' => 379_581,
+                'Δημοκρατική Συμπαράταξη' => 341_390,
+                'Κομμουνιστικό Κόμμα Ελλάδας' => 301_632,
+                'Το Ποτάμι' => 222_166,
+                'Ανεξάρτητοι Έλληνες' => 200_423,
+                'Ένωση Κεντρώων' => 186_457,
+                Sapor::OTHER => 155_242 + 46_096 + 41_631 + 35_534 + 28_936 \
+                                + 15_257 + 8_944 + 6_253 + 4_425 + 2_372 \
+                                + 2_263 + 1_139 }
+    seats = greece.seats(results)
+    expect(seats['Συνασπισμός Ριζοσπαστικής Αριστεράς']).to eq(145)
+    expect(seats['Νέα Δημοκρατία']).to eq(75)
+    expect(seats['Χρυσή Αυγή']).to eq(18)
+    expect(seats['Δημοκρατική Συμπαράταξη']).to eq(17)
+    expect(seats['Κομμουνιστικό Κόμμα Ελλάδας']).to eq(15)
+    expect(seats['Το Ποτάμι']).to eq(11)
+    expect(seats['Ανεξάρτητοι Έλληνες']).to eq(10)
+    expect(seats['Ένωση Κεντρώων']).to eq(9)
+    expect(seats[Sapor::OTHER]).to eq(0)
+  end
+end
+
+describe Sapor::Greece, '#threshold' do
+  it 'returns a threshold of 3%' do
+    expect(Sapor::Greece.instance.threshold).to eq(0.03)
+  end
+end

data/spec/unit/hungary_spec.rb

@@ -0,0 +1,132 @@
+# encoding: utf-8
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2016 Filip van Laenen <f.a.vanlaenen@ieee.org>
+#
+# This file is part of SAPoR.
+#
+# SAPoR is free software: you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation, either version 3 of the License, or (at your option) any later
+# version.
+#
+# SAPoR is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You can find a copy of the GNU General Public License in /doc/gpl.txt
+#
+
+require 'spec_helper'
+
+describe Sapor::Hungary, '#area_code' do
+  it 'returns HU as the area code' do
+    expect(Sapor::Hungary.instance.area_code).to eq('HU')
+  end
+end
+
+describe Sapor::Hungary, '#coalitions' do
+  def hungarian_coalitions
+    Sapor::Hungary.instance.coalitions
+  end
+
+  it 'returns Fidesz–KDNP as a coalition to track' do
+    expect(hungarian_coalitions).to include(['Fidesz–KDNP'])
+  end
+
+  it 'returns DK + Együtt + MLP + MSZP + PM as a coalition to track' do
+    expect(hungarian_coalitions).to include(%w(DK Együtt MLP MSZP Párbeszéd))
+  end
+end
+
+describe Sapor::Hungary, '#individual_constituencies_seats' do
+  it 'calculates the number of seats in the individual constituencies for ' \
+     'the election of 2014 correctly' do
+    hungary = Sapor::Hungary.instance
+    results = hungary \
+              .overall_individual_constituencies_election_results_of_2014.dup
+    results['MSZP'] = results['MSZP'] * 5
+    results['DK'] = 1
+    results['Együtt'] = 1
+    results['MLP'] = 1
+    results['Párbeszéd'] = 1
+    seats = hungary.individual_constituencies_seats(results)
+    expect(seats['Fidesz–KDNP']).to eq(87 + 9)
+    expect(seats['MSZP']).to eq(8 + 1 + 1 + 0 + 0)
+    expect(seats['Jobbik']).to eq(0)
+    expect(seats['LMP']).to eq(0)
+    expect(seats['Munkáspárt']).to eq(0)
+    expect(seats['ZÖP']).to eq(0)
+    expect(seats['Szociáldemokraták']).to eq(0)
+    expect(seats['ÖP']).to eq(0)
+    expect(seats['ÚDP']).to eq(0)
+    expect(seats['ÚMP']).to eq(0)
+  end
+end
+
+describe Sapor::Hungary, '#no_of_seats' do
+  it 'returns 199 as the number of seats' do
+    expect(Sapor::Hungary.instance.no_of_seats).to eq(199)
+  end
+end
+
+describe Sapor::Hungary, '#party_list_seats' do
+  it 'calculates the number of seats for the party lists for the election of ' \
+     '2014 correctly' do
+    hungary = Sapor::Hungary.instance
+    results = { 'Fidesz–KDNP' => 2_264_780, 'MSZP' => 1_290_806, 'DK' => 0,
+                'Együtt' => 0, 'MLP' => 0, 'Párbeszéd' => 0,
+                'Jobbik' => 1_020_476, 'LMP' => 269_414, 'Munkáspárt' => 28_323,
+                'ZÖP' => 18_557, 'Szociáldemokraták' => 15_073, 'ÖP' => 6_552,
+                'ÚDP' => 2_100, 'ÚMP' => 1_578,
+                'Other' => 23_507 + 22_219 + 14_085 + 12_563 + 10_969 + \
+                           9_925 + 8_810 + 8_083 + 19_543 }
+    seats = hungary.party_list_seats(results)
+    expect(seats['Fidesz–KDNP']).to eq(44) # Was: 30 + 7
+    expect(seats['MSZP']).to eq(25) # Was: 21 + 2 + 3 + 1 + 1
+    expect(seats['Jobbik']).to eq(19) # Was: 23
+    expect(seats['LMP']).to eq(5)
+    expect(seats['Munkáspárt']).to eq(0)
+    expect(seats['ZÖP']).to eq(0)
+    expect(seats['Szociáldemokraták']).to eq(0)
+    expect(seats['ÖP']).to eq(0)
+    expect(seats['ÚDP']).to eq(0)
+    expect(seats['ÚMP']).to eq(0)
+  end
+end
+
+describe Sapor::Hungary, '#population_size' do
+  it 'returns a population size of 5,047,363' do
+    expect(Sapor::Hungary.instance.population_size).to eq(5_047_363)
+  end
+end
+
+describe Sapor::Hungary, '#seats' do
+  it 'calculates the number of seats for the election of 2014 correctly' do
+    hungary = Sapor::Hungary.instance
+    results = hungary \
+              .overall_individual_constituencies_election_results_of_2014.dup
+    results['MSZP'] = results['MSZP'] * 5
+    results['DK'] = 1
+    results['Együtt'] = 1
+    results['MLP'] = 1
+    results['PM'] = 1
+    seats = hungary.seats(results)
+    expect(seats['Fidesz–KDNP']).to eq(141)
+    expect(seats['MSZP']).to eq(37)
+    expect(seats['Jobbik']).to eq(21)
+    expect(seats['LMP']).to eq(0)
+    expect(seats['Munkáspárt']).to eq(0)
+    expect(seats['ZÖP']).to eq(0)
+    expect(seats['Szociáldemokraták']).to eq(0)
+    expect(seats['ÖP']).to eq(0)
+    expect(seats['ÚDP']).to eq(0)
+    expect(seats['ÚMP']).to eq(0)
+  end
+end
+
+describe Sapor::Hungary, '#threshold' do
+  it 'returns a threshold of 5%' do
+    expect(Sapor::Hungary.instance.threshold).to eq(0.05)
+  end
+end

data/spec/unit/iceland_spec.rb

@@ -0,0 +1,57 @@
+# encoding: utf-8
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2016 Filip van Laenen <f.a.vanlaenen@ieee.org>
+#
+# This file is part of SAPoR.
+#
+# SAPoR is free software: you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation, either version 3 of the License, or (at your option) any later
+# version.
+#
+# SAPoR is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You can find a copy of the GNU General Public License in /doc/gpl.txt
+#
+
+require 'spec_helper'
+
+describe Sapor::Iceland, '#area_code' do
+  it 'returns IS as the area code' do
+    expect(Sapor::Iceland.instance.area_code).to eq('IS')
+  end
+end
+
+describe Sapor::Iceland, '#no_of_seats' do
+  it 'returns 63 as the number of seats' do
+    expect(Sapor::Iceland.instance.no_of_seats).to eq(63)
+  end
+end
+
+describe Sapor::Iceland, '#population_size' do
+  it 'returns a population size of 195,204' do
+    expect(Sapor::Iceland.instance.population_size).to eq(196_246)
+  end
+end
+
+describe Sapor::Iceland, '#seats' do
+  it 'calculates the number of seats for the election of 2017 correctly' do
+    iceland = Sapor::Iceland.instance
+    results = iceland.overall_election_results_of_2017
+    seats = iceland.seats(results)
+    expect(seats['Sjálfstæðisflokkurinn']).to eq(16)
+    expect(seats['Vinstrihreyfingin – grænt framboð']).to eq(11)
+    expect(seats['Framsóknarflokkurinn']).to eq(8)
+    expect(seats['Samfylkingin']).to eq(7)
+    expect(seats['Miðflokkurinn']).to eq(7)
+    expect(seats['Píratar']).to eq(6)
+    expect(seats['Flokkur fólksins']).to eq(4)
+    expect(seats['Viðreisn']).to eq(4)
+    expect(seats['Björt framtíð']).to eq(0)
+    expect(seats['Dögun']).to eq(0)
+    expect(seats['Alþýðufylkingin']).to eq(0)
+  end
+end

data/spec/unit/largest_remainder_spec.rb

@@ -0,0 +1,79 @@
+# encoding: utf-8
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2016 Filip van Laenen <f.a.vanlaenen@ieee.org>
+#
+# This file is part of SAPoR.
+#
+# SAPoR is free software: you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation, either version 3 of the License, or (at your option) any later
+# version.
+#
+# SAPoR is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You can find a copy of the GNU General Public License in /doc/gpl.txt
+#
+
+require 'spec_helper'
+
+SAMPLE_ELECTION_RESULT = { 'Yellow' => 47_000, 'White' => 16_000,
+                           'Red' => 15_800, 'Green' => 12_000, 'Blue' => 6_100,
+                           'Pink' => 3_100 }.freeze
+
+ALABAMA_PARADOX_ELECTION_RESULT = { 'Yellow' => 1500, 'White' => 1500,
+                                    'Red' => 900, 'Green' => 500, 'Blue' => 500,
+                                    'Pink' => 200 }.freeze
+
+NO_OF_SEATS = 10
+
+HARE_QUOTA = Sapor::LargestRemainder.new(NO_OF_SEATS, Sapor::HareQuota)
+DROOP_QUOTA = Sapor::LargestRemainder.new(NO_OF_SEATS, Sapor::DroopQuota)
+
+describe Sapor::LargestRemainder, '#project' do
+  it 'produces the correct result for the Hare quota' do
+    projection = HARE_QUOTA.project(SAMPLE_ELECTION_RESULT)
+    expect(projection['Yellow']).to eq(5)
+    expect(projection['White']).to eq(2)
+    expect(projection['Red']).to eq(1)
+    expect(projection['Green']).to eq(1)
+    expect(projection['Blue']).to eq(1)
+    expect(projection['Pink']).to eq(0)
+  end
+
+  it 'produces the correct result for the 25 seat Alabama paradox for the ' \
+       'Hare quota' do
+    alabama25 = Sapor::LargestRemainder.new(25, Sapor::HareQuota)
+    projection = alabama25.project(ALABAMA_PARADOX_ELECTION_RESULT)
+    expect(projection['Yellow']).to eq(7)
+    expect(projection['White']).to eq(7)
+    expect(projection['Red']).to eq(4)
+    expect(projection['Green']).to eq(3)
+    expect(projection['Blue']).to eq(3)
+    expect(projection['Pink']).to eq(1)
+  end
+
+  it 'produces the correct result for the 26 seat Alabama paradox for the ' \
+       'Hare quota' do
+    alabama26 = Sapor::LargestRemainder.new(26, Sapor::HareQuota)
+    projection = alabama26.project(ALABAMA_PARADOX_ELECTION_RESULT)
+    expect(projection['Yellow']).to eq(8)
+    expect(projection['White']).to eq(8)
+    expect(projection['Red']).to eq(5)
+    expect(projection['Green']).to eq(2)
+    expect(projection['Blue']).to eq(2)
+    expect(projection['Pink']).to eq(1)
+  end
+
+  it 'produces the correct result for the Droop quota' do
+    projection = DROOP_QUOTA.project(SAMPLE_ELECTION_RESULT)
+    expect(projection['Yellow']).to eq(5)
+    expect(projection['White']).to eq(2)
+    expect(projection['Red']).to eq(2)
+    expect(projection['Green']).to eq(1)
+    expect(projection['Blue']).to eq(0)
+    expect(projection['Pink']).to eq(0)
+  end
+end