sapor 0.3.6

data/spec/unit/ireland_spec.rb

@@ -0,0 +1,62 @@
+
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2020 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::Ireland, '#area_code' do
+  it 'returns IE as the area code' do
+    expect(Sapor::Ireland.instance.area_code).to eq('IE')
+  end
+end
+
+describe Sapor::Ireland, '#no_of_seats' do
+  it 'returns 160 as the number of seats' do
+    expect(Sapor::Ireland.instance.no_of_seats).to eq(160)
+  end
+end
+
+describe Sapor::Ireland, '#population_size' do
+  it 'returns a population size of 2,132,895' do
+    expect(Sapor::Ireland.instance.population_size).to eq(2_132_895)
+  end
+end
+
+describe Sapor::Ireland, '#seats' do
+  it 'calculates the number of seats for the election of 2016 correctly' do
+    Ireland = Sapor::Ireland.instance
+    results = Ireland.overall_election_results_of_2016
+    seats = Ireland.seats(results)
+    expect(seats['Fine Gael']).to eq(49 - 1  - 2)
+    expect(seats['Fianna Fáil']).to eq(44 + 3 + 1  - 2)
+    expect(seats['Sinn Féin']).to eq(23 + 4 + 1)
+    expect(seats['Labour Party']).to eq(7 + 1  + 1)
+    expect(seats['Solidarity–People Before Profit']).to eq(6 - 1)
+    expect(seats['Independents 4 Change']).to eq(4 - 1  - 1)
+    expect(seats['Social Democrats']).to eq(3  + 2)
+    expect(seats['Green Party/Comhaontas Glas']).to eq(2 - 1)
+    expect(seats['Catholic Democrats']).to eq(0)
+    expect(seats['Communist Party of Ireland']).to eq(0)
+    expect(seats['Direct Democracy Ireland']).to eq(0)
+    expect(seats['Fís Nua']).to eq(0)
+    expect(seats['Irish Democratic Party']).to eq(0)
+    expect(seats['Renua Ireland']).to eq(0)
+    expect(seats['Workers’ Party']).to eq(0)
+    expect(seats['Independent']).to eq(20 - 3 - 1  + 2)
+  end
+end

data/spec/unit/largest_remainder_spec.rb

@@ -0,0 +1,79 @@
+# encoding: utf-8
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2020 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

data/spec/unit/latvia_spec.rb

@@ -0,0 +1,62 @@
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2020 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::Latvia, '#area_code' do
+  it 'returns LV as the area code' do
+    expect(Sapor::Latvia.instance.area_code).to eq('LV')
+  end
+end
+
+describe Sapor::Latvia, '#no_of_seats' do
+  it 'returns 100 as the number of seats' do
+    expect(Sapor::Latvia.instance.no_of_seats).to eq(100)
+  end
+end
+
+describe Sapor::Latvia, '#population_size' do
+  it 'returns a population size of 839,000' do
+    expect(Sapor::Latvia.instance.population_size).to eq(839_000)
+  end
+end
+
+describe Sapor::Latvia, '#seats' do
+  it 'calculates the number of seats for the election of 2018 correctly' do
+    Latvia = Sapor::Latvia.instance
+    results = Latvia.overall_election_results_of_2018
+    seats = Latvia.seats(results)
+    expect(seats['Sociāldemokrātiskā partija “Saskaņa”']).to eq(23)
+    expect(seats['Politiskā partija „KPV LV”']).to eq(16)
+    expect(seats['Jaunā konservatīvā partija']).to eq(16)
+    expect(seats['Nacionālā apvienība „Visu Latvijai!”–„Tēvzemei un ' \
+                 'Brīvībai/LNNK”']).to eq(13)
+    expect(seats['Attīstībai/Par!']).to eq(13)
+    expect(seats['Zaļo un Zemnieku savienība']).to eq(11)
+    expect(seats['Jaunā VIENOTĪBA']).to eq(8)
+    expect(seats['Latvijas Reģionu Apvienība']).to eq(0)
+    expect(seats['Latvijas Krievu savienība']).to eq(0)
+    expect(seats['PROGRESĪVIE']).to eq(0)
+    expect(seats['No sirds Latvijai']).to eq(0)
+    expect(seats['Latviešu Nacionālisti']).to eq(0)
+    expect(seats['Par Alternatīvu']).to eq(0)
+    expect(seats['Apvienība SKG']).to eq(0)
+    expect(seats['Rīcības partija']).to eq(0)
+    expect(seats['Latvijas centriskā partija']).to eq(0)
+  end
+end

data/spec/unit/luxembourg_spec.rb

@@ -0,0 +1,55 @@
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2020 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::Luxembourg, '#area_code' do
+  it 'returns LU as the area code' do
+    expect(Sapor::Luxembourg.instance.area_code).to eq('LU')
+  end
+end
+
+describe Sapor::Luxembourg, '#no_of_seats' do
+  it 'returns 60 as the number of seats' do
+    expect(Sapor::Luxembourg.instance.no_of_seats).to eq(60)
+  end
+end
+
+describe Sapor::Luxembourg, '#population_size' do
+  it 'returns a population size of 3,529,969' do
+    expect(Sapor::Luxembourg.instance.population_size).to eq(3_529_969)
+  end
+end
+
+describe Sapor::Luxembourg, '#seats' do
+  it 'calculates the number of seats for the election of 2018 correctly' do
+    Luxembourg = Sapor::Luxembourg.instance
+    results = Luxembourg.overall_election_results_of_2018
+    seats = Luxembourg.seats(results)
+    expect(seats['Chrëschtlech-Sozial Vollekspartei']).to eq(21)
+    expect(seats['Lëtzebuerger Sozialistesch Aarbechterpartei']).to eq(10)
+    expect(seats['Demokratesch Partei']).to eq(12)
+    expect(seats['déi gréng']).to eq(9)
+    expect(seats['Alternativ Demokratesch Reformpartei']).to eq(4)
+    expect(seats['déi Lénk']).to eq(2)
+    expect(seats['Piratepartei Lëtzebuerg']).to eq(2)
+    expect(seats['Kommunistesch Partei Lëtzebuerg']).to eq(0)
+    expect(seats['Demokratie']).to eq(0)
+    expect(seats['déi Konservativ']).to eq(0)
+  end
+end

data/spec/unit/multi_district_leveled_proportional_spec.rb

@@ -0,0 +1,49 @@
+# encoding: utf-8
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2020 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 = { 'Red' => 120, 'Green' => 120, 'Blue' => 100 }.freeze
+
+SAMPLE_DETAILED_ELECTION_RESULT = { 'North' => { 'Red' => 50, 'Green' => 70 },
+                                    'South' => { 'Red' => 70, 'Green' => 50,
+                                                 'Blue' => 100 } }.freeze
+
+SAMPLE_SEAT_DISTRIBUTION = { 'North' => 3, 'South' => 5 }.freeze
+
+SAMPLE_LEVELING_SEATS = 2
+
+SAMPLE_LEVELING_THRESHOLD = 0.05
+
+SAMPLE_POLL_RESULT = { 'Red' => 120, 'Green' => 120 }.freeze
+
+LEVELED = Sapor::MultiDistrictLeveledProportional.new( \
+  SAMPLE_ELECTION_RESULT, SAMPLE_DETAILED_ELECTION_RESULT,
+  SAMPLE_SEAT_DISTRIBUTION, SAMPLE_LEVELING_SEATS, SAMPLE_LEVELING_THRESHOLD,
+  Sapor::SainteLague14Denominators
+)
+
+describe Sapor::MultiDistrictLeveledProportional, '#project' do
+  it 'projects same result as last result if fed with last election result' do
+    projection = LEVELED.project(SAMPLE_POLL_RESULT)
+    expect(projection['Red']).to eq(4)
+    expect(projection['Green']).to eq(4)
+    expect(projection['Blue']).to eq(2)
+  end
+end

data/spec/unit/multi_district_proportional_spec.rb

@@ -0,0 +1,81 @@
+# encoding: utf-8
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2020 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
+#
+
+SAMPLE_RGB_ELECTION_RESULT = { 'Red' => 120, 'Green' => 120, 'Blue' => 100 }
+
+SAMPLE_DETAILED_ELECTION_RESULT = { 'North' => { 'Red' => 50, 'Green' => 70
+                                             },
+                                    'South' => { 'Red' => 70, 'Green' => 50,
+                                                 'Blue' => 100 } }
+
+SAMPLE_SEAT_DISTRIBUTION = { 'North' => 3, 'South' => 5 }
+
+PROPORTIONAL = Sapor::MultiDistrictProportional.new( \
+  SAMPLE_RGB_ELECTION_RESULT, SAMPLE_DETAILED_ELECTION_RESULT,
+  SAMPLE_SEAT_DISTRIBUTION, Sapor::DhondtDenominators)
+
+describe Sapor::MultiDistrictProportional, '#project' do
+  # Seat distribution:
+  # North: Green 1 70, Red 1 50, Green 2 35, (Red 2 25)
+  # South: Blue 1 100, Red 1 70, Green 1 50, Blue 2 50, Red 2 35, (Blue 3 33)
+  it 'projects same result as last result if fed with last election result' do
+    projection = PROPORTIONAL.project(SAMPLE_RGB_ELECTION_RESULT)
+    expect(projection['Red']).to eq(3)
+    expect(projection['Green']).to eq(3)
+    expect(projection['Blue']).to eq(2)
+  end
+
+  # Seat distribution:
+  # North: Green 1 62, Red 1 44, Green 2 31, (Red 2 22)
+  # South: Blue 1 128, Red 1 62, Green 1 44, Blue 2 64, Blue 3 42, (Red 2 31)
+  it 'extrapolates the seat distribution according to the new result' do
+    new_result = { 'Red' => 100, 'Green' => 100, 'Blue' => 120 }
+    projection = PROPORTIONAL.project(new_result)
+    expect(projection['Red']).to eq(2)
+    expect(projection['Green']).to eq(3)
+    expect(projection['Blue']).to eq(3)
+  end
+
+  # Seat distribution:
+  # North: Green 1 70, Red 1 50, Green 2 35 (Red 2 25, Green 3 23)
+  # South: Blue 1 100, Red 1 70, Blue 2 50, Red 2 35, Blue 3 33, (Blue 4 25,
+  #        Red 3 23, Green below threshold)
+  it 'excludes parties below the threshold' do
+    proportional = Sapor::MultiDistrictProportional.new( \
+      SAMPLE_RGB_ELECTION_RESULT, SAMPLE_DETAILED_ELECTION_RESULT,
+      SAMPLE_SEAT_DISTRIBUTION, Sapor::DhondtDenominators, 51.to_f / 220)
+    projection = proportional.project(SAMPLE_RGB_ELECTION_RESULT)
+    expect(projection['Red']).to eq(3)
+    expect(projection['Green']).to eq(2)
+    expect(projection['Blue']).to eq(3)
+  end
+
+  # Seat distribution:
+  # North: Green 1 70, Red 1 50, Green 2 35, (Red 2 25)
+  # South: Blue 1 100, Red 1 70, Green 1 50, Blue 2 50, Red 2 35, (Blue 3 33)
+  it 'includes parties at the threshold' do
+    proportional = Sapor::MultiDistrictProportional.new( \
+      SAMPLE_RGB_ELECTION_RESULT, SAMPLE_DETAILED_ELECTION_RESULT,
+      SAMPLE_SEAT_DISTRIBUTION, Sapor::DhondtDenominators, 50.to_f / 220)
+    projection = proportional.project(SAMPLE_RGB_ELECTION_RESULT)
+    expect(projection['Red']).to eq(3)
+    expect(projection['Green']).to eq(3)
+    expect(projection['Blue']).to eq(2)
+  end
+end

data/spec/unit/netherlands_spec.rb

@@ -0,0 +1,107 @@
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2020 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::Netherlands, '#area_code' do
+  it 'returns NL as the area code' do
+    expect(Sapor::Netherlands.instance.area_code).to eq('NL')
+  end
+end
+
+describe Sapor::Netherlands, '#no_of_seats' do
+  it 'returns 150 as the number of seats' do
+    expect(Sapor::Netherlands.instance.no_of_seats).to eq(150)
+  end
+end
+
+describe Sapor::Netherlands, '#population_size' do
+  it 'returns a population size of 10,516,041' do
+    expect(Sapor::Netherlands.instance.population_size).to eq(10_516_041)
+  end
+end
+
+describe Sapor::Netherlands, '#threshold' do
+  it 'returns a threshold of 1/150' do
+    expect(Sapor::Netherlands.instance.threshold).to eq(1 / 150.to_f)
+  end
+end
+
+describe Sapor::Netherlands, '#seats' do
+  it 'calculates the number of seats for the election of 2017' do
+    results = { 'Volkspartij voor Vrijheid en Democratie' => 2_238_351,
+                'Partij voor de Vrijheid' => 1_372_941,
+                'Christen-Democratisch Appèl' => 1_301_796,
+                'Democraten 66' => 1_285_819,
+                'GroenLinks' => 959_600,
+                'Socialistische Partij' => 955_633,
+                'Partij van de Arbeid' => 599_699,
+                'ChristenUnie' => 356_271,
+                'Partij voor de Dieren' => 335_214,
+                '50Plus' => 327_131,
+                'Staatkundig Gereformeerde Partij' => 218_950,
+                'DENK' => 216_147,
+                'Forum voor Democratie' => 187_162,
+                'VoorNederland' => 38_209,
+                'Piratenpartij' => 35_478,
+                'Artikel 1' => 28_700,
+                'Nieuwe Wegen' => 14_362,
+                'OndernemersPartij' => 12_570,
+                'Lokaal in de Kamer' => 6_858,
+                'Niet Stemmers' => 6_025,
+                'De Burger Beweging' => 5_221,
+                'GeenPeil' => 4_945,
+                'Jezus Leeft' => 3_099,
+                'Vrijzinnige Partij' => 2_938,
+                'Libertarische Partij' => 1_492,
+                'Partij voor Mens en Spirit–Basisinkomen Partij–Vrede en ' \
+                  'Recht' => 726,
+                'StemNL' => 527,
+                'Vrije Democratische Partij' => 177 }
+    seats = Sapor::Netherlands.instance.seats(results)
+    expect(seats['Volkspartij voor Vrijheid en Democratie']).to eq(33)
+    expect(seats['Partij voor de Vrijheid']).to eq(20)
+    expect(seats['Christen-Democratisch Appèl']).to eq(19)
+    expect(seats['Democraten 66']).to eq(19)
+    expect(seats['GroenLinks']).to eq(14)
+    expect(seats['Socialistische Partij']).to eq(14)
+    expect(seats['Partij van de Arbeid']).to eq(9)
+    expect(seats['ChristenUnie']).to eq(5)
+    expect(seats['Partij voor de Dieren']).to eq(5)
+    expect(seats['50Plus']).to eq(4)
+    expect(seats['Staatkundig Gereformeerde Partij']).to eq(3)
+    expect(seats['DENK']).to eq(3)
+    expect(seats['Forum voor Democratie']).to eq(2)
+    expect(seats['VoorNederland']).to eq(0)
+    expect(seats['Piratenpartij']).to eq(0)
+    expect(seats['Artikel 1']).to eq(0)
+    expect(seats['Nieuwe Wegen']).to eq(0)
+    expect(seats['OndernemersPartij']).to eq(0)
+    expect(seats['Lokaal in de Kamer']).to eq(0)
+    expect(seats['Niet Stemmers']).to eq(0)
+    expect(seats['De Burger Beweging']).to eq(0)
+    expect(seats['GeenPeil']).to eq(0)
+    expect(seats['Jezus Leeft']).to eq(0)
+    expect(seats['Vrijzinnige Partij']).to eq(0)
+    expect(seats['Libertarische Partij']).to eq(0)
+    expect(seats['Partij voor Mens en Spirit–Basisinkomen Partij–Vrede en ' \
+                 'Recht']).to eq(0)
+    expect(seats['StemNL']).to eq(0)
+    expect(seats['Vrije Democratische Partij']).to eq(0)
+  end
+end