sapor 0.3.3

data/spec/unit/latvia_kpv_p_par_spec.rb

@@ -0,0 +1,38 @@
+# 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::LatviaKpvPPar, '#area_code' do
+  it 'returns LV∪{KPV,P,PAR} as the area code' do
+    expect(Sapor::LatviaKpvPPar.instance.area_code).to eq('LV∪{KPV,P,PAR}')
+  end
+end
+
+describe Sapor::LatviaKpvPPar, '#no_of_seats' do
+  it 'returns 100 as the number of seats' do
+    expect(Sapor::LatviaKpvPPar.instance.no_of_seats).to eq(100)
+  end
+end
+
+describe Sapor::LatviaKpvPPar, '#population_size' do
+  it 'returns a population size of 913,491' do
+    expect(Sapor::LatviaKpvPPar.instance.population_size).to eq(913_491)
+  end
+end

data/spec/unit/latvia_kpv_par_spec.rb

@@ -0,0 +1,38 @@
+# 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::LatviaKpvPar, '#area_code' do
+  it 'returns LV∪{KPV,PAR} as the area code' do
+    expect(Sapor::LatviaKpvPar.instance.area_code).to eq('LV∪{KPV,PAR}')
+  end
+end
+
+describe Sapor::LatviaKpvPar, '#no_of_seats' do
+  it 'returns 100 as the number of seats' do
+    expect(Sapor::LatviaKpvPar.instance.no_of_seats).to eq(100)
+  end
+end
+
+describe Sapor::LatviaKpvPar, '#population_size' do
+  it 'returns a population size of 913,491' do
+    expect(Sapor::LatviaKpvPar.instance.population_size).to eq(913_491)
+  end
+end

data/spec/unit/latvia_kpv_spec.rb

@@ -0,0 +1,38 @@
+# 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::LatviaKpv, '#area_code' do
+  it 'returns LV∪{KPV} as the area code' do
+    expect(Sapor::LatviaKpv.instance.area_code).to eq('LV∪{KPV}')
+  end
+end
+
+describe Sapor::LatviaKpv, '#no_of_seats' do
+  it 'returns 100 as the number of seats' do
+    expect(Sapor::LatviaKpv.instance.no_of_seats).to eq(100)
+  end
+end
+
+describe Sapor::LatviaKpv, '#population_size' do
+  it 'returns a population size of 913,491' do
+    expect(Sapor::LatviaKpv.instance.population_size).to eq(913_491)
+  end
+end

data/spec/unit/latvia_spec.rb

@@ -0,0 +1,60 @@
+#
+# 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::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 913,491' do
+    expect(Sapor::Latvia.instance.population_size).to eq(913_491)
+  end
+end
+
+describe Sapor::Latvia, '#seats' do
+  it 'calculates the number of seats for the election of 2014 correctly' do
+    Latvia = Sapor::Latvia.instance
+    results = Latvia.overall_election_results_of_2014
+    seats = Latvia.seats(results)
+    expect(seats['Sociāldemokrātiskā Partija “Saskaņa”']).to eq(24)
+    expect(seats['Vienotība']).to eq(23)
+    expect(seats['Zaļo un Zemnieku savienība']).to eq(21)
+    expect(seats['Nacionālā apvienība „Visu Latvijai!”–„Tēvzemei un ' \
+                 'Brīvībai/LNNK”']).to eq(17)
+    expect(seats['Latvijas Reģionu apvienība']).to eq(8)
+    expect(seats['No sirds Latvijai']).to eq(7)
+    expect(seats['Latvijas Krievu savienība']).to eq(0)
+    expect(seats['Latvijas attīstībai']).to eq(0)
+    expect(seats['“Suverenitāte”']).to eq(0)
+    expect(seats['Partija “Brīvība. Brīvs no bailēm, naida un dusmām”']).to \
+      eq(0)
+    expect(seats['Politiskā partija Izaugsme']).to eq(0)
+    expect(seats['Vienoti Latvijai']).to eq(0)
+    expect(seats['Jaunā konservatīvā partija']).to eq(0)
+  end
+end

data/spec/unit/luxembourg_spec.rb

@@ -0,0 +1,54 @@
+#
+# 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::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,276,692' do
+    expect(Sapor::Luxembourg.instance.population_size).to eq(3_276_692)
+  end
+end
+
+describe Sapor::Luxembourg, '#seats' do
+  it 'calculates the number of seats for the election of 2013 correctly' do
+    Luxembourg = Sapor::Luxembourg.instance
+    results = Luxembourg.overall_election_results_of_2013
+    seats = Luxembourg.seats(results)
+    expect(seats['Chrëschtlech-Sozial Vollekspartei']).to eq(23)
+    expect(seats['Lëtzebuerger Sozialistesch Aarbechterpartei']).to eq(13)
+    expect(seats['Demokratesch Partei']).to eq(13)
+    expect(seats['déi gréng']).to eq(6)
+    expect(seats['Alternativ Demokratesch Reformpartei']).to eq(3)
+    expect(seats['Déi Lénk']).to eq(2)
+    expect(seats['Piratepartei Lëtzebuerg']).to eq(0)
+    expect(seats['Kommunistesch Partei Lëtzebuerg']).to eq(0)
+    expect(seats['Partei fir Integral Demokratie']).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) 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 = { '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) 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
+#
+
+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) 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::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