sapor 0.1b1 → 0.2a1

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/{leveled_proportional_spec.rb → multi_district_leveled_proportional_spec.rb}

@@ -1,7 +1,7 @@
 # encoding: utf-8
 #
 # Statistical Analysis of Polling Results (SAPoR)
-# Copyright (C) 2014 Filip van Laenen <f.a.vanlaenen@ieee.org>
+# Copyright (C) 2016 Filip van Laenen <f.a.vanlaenen@ieee.org>
 #
 # This file is part of SAPoR.
 #
@@ -19,29 +19,27 @@
 
 require 'spec_helper'
 
-SAMPLE_ELECTION_RESULT = { 'Red' => 120, 'Green' => 120, 'Blue' => 100 }
+SAMPLE_ELECTION_RESULT = { 'Red' => 120, 'Green' => 120, 'Blue' => 100 }.freeze
 
-SAMPLE_DETAILED_ELECTION_RESULT = { 'North' => { 'Red' => 50, 'Green' => 70
-                                             },
+SAMPLE_DETAILED_ELECTION_RESULT = { 'North' => { 'Red' => 50, 'Green' => 70 },
                                     'South' => { 'Red' => 70, 'Green' => 50,
-                                                 'Blue' => 100 } }
+                                                 'Blue' => 100 } }.freeze
 
-SAMPLE_SEAT_DISTRIBUTION = { 'North' => 3, 'South' => 5 }
+SAMPLE_SEAT_DISTRIBUTION = { 'North' => 3, 'South' => 5 }.freeze
 
 SAMPLE_LEVELING_SEATS = 2
 
 SAMPLE_LEVELING_THRESHOLD = 0.05
 
-SAMPLE_POLL_RESULT = { 'Red' => 120, 'Green' => 120 }
+SAMPLE_POLL_RESULT = { 'Red' => 120, 'Green' => 120 }.freeze
 
-LEVELED = Sapor::LeveledProportional.new(SAMPLE_ELECTION_RESULT,
-                                         SAMPLE_DETAILED_ELECTION_RESULT,
-                                         SAMPLE_SEAT_DISTRIBUTION,
-                                         SAMPLE_LEVELING_SEATS,
-                                         SAMPLE_LEVELING_THRESHOLD,
-                                         Sapor::SainteLague14Denominators)
+LEVELED = Sapor::MultiDistrictLeveledProportional.new( \
+  SAMPLE_ELECTION_RESULT, SAMPLE_DETAILED_ELECTION_RESULT,
+  SAMPLE_SEAT_DISTRIBUTION, SAMPLE_LEVELING_SEATS, SAMPLE_LEVELING_THRESHOLD,
+  Sapor::SainteLague14Denominators
+)
 
-describe Sapor::LeveledProportional, '#project' do
+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)

data/spec/unit/{proportional_spec.rb → multi_district_proportional_spec.rb}

@@ -1,7 +1,7 @@
 # encoding: utf-8
 #
 # Statistical Analysis of Polling Results (SAPoR)
-# Copyright (C) 2014 Filip van Laenen <f.a.vanlaenen@ieee.org>
+# Copyright (C) 2016 Filip van Laenen <f.a.vanlaenen@ieee.org>
 #
 # This file is part of SAPoR.
 #
@@ -26,12 +26,11 @@ SAMPLE_DETAILED_ELECTION_RESULT = { 'North' => { 'Red' => 50, 'Green' => 70
 
 SAMPLE_SEAT_DISTRIBUTION = { 'North' => 3, 'South' => 5 }
 
-PROPORTIONAL = Sapor::Proportional.new(SAMPLE_RGB_ELECTION_RESULT,
-                                       SAMPLE_DETAILED_ELECTION_RESULT,
-                                       SAMPLE_SEAT_DISTRIBUTION,
-                                       Sapor::DhondtDenominators)
+PROPORTIONAL = Sapor::MultiDistrictProportional.new( \
+  SAMPLE_RGB_ELECTION_RESULT, SAMPLE_DETAILED_ELECTION_RESULT,
+  SAMPLE_SEAT_DISTRIBUTION, Sapor::DhondtDenominators)
 
-describe Sapor::Proportional, '#project' do
+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)
@@ -58,11 +57,9 @@ describe Sapor::Proportional, '#project' do
   # 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::Proportional.new(SAMPLE_RGB_ELECTION_RESULT,
-                                           SAMPLE_DETAILED_ELECTION_RESULT,
-                                           SAMPLE_SEAT_DISTRIBUTION,
-                                           Sapor::DhondtDenominators,
-                                           51.to_f / 220)
+    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)
@@ -73,11 +70,9 @@ describe Sapor::Proportional, '#project' do
   # 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::Proportional.new(SAMPLE_RGB_ELECTION_RESULT,
-                                           SAMPLE_DETAILED_ELECTION_RESULT,
-                                           SAMPLE_SEAT_DISTRIBUTION,
-                                           Sapor::DhondtDenominators,
-                                           50.to_f / 220)
+    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)

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

data/spec/unit/norway_spec.rb

@@ -1,7 +1,7 @@
 # encoding: utf-8
 #
 # Statistical Analysis of Polling Results (SAPoR)
-# Copyright (C) 2014 Filip van Laenen <f.a.vanlaenen@ieee.org>
+# Copyright (C) 2016 Filip van Laenen <f.a.vanlaenen@ieee.org>
 #
 # This file is part of SAPoR.
 #
@@ -19,9 +19,29 @@
 
 require 'spec_helper'
 
+describe Sapor::Norway, '#area_code' do
+  it 'returns NO as the area code' do
+    expect(Sapor::Norway.instance.area_code).to eq('NO')
+  end
+end
+
+describe Sapor::Norway, '#no_of_seats' do
+  it 'returns 169 as the number of seats' do
+    expect(Sapor::Norway.instance.no_of_seats).to eq(169)
+  end
+end
+
+describe Sapor::Norway, '#population_size' do
+  it 'returns a population size of 2,836,029' do
+    expect(Sapor::Norway.instance.population_size).to eq(2_836_029)
+  end
+end
+
 describe Sapor::Norway, '#seats' do
-  it 'calculates the number of seats for the election of 2013 correctly' do
-    seats = Sapor::Norway.instance.seats(Sapor::Norway::LAST_ELECTION_RESULT)
+  it 'calculates the number of seats for the election of 2015 correctly' do
+    norway = Sapor::Norway.instance
+    results = norway.overall_election_results_of_2015
+    seats = norway.seats(results)
     expect(seats['Arbeiderpartiet']).to eq(55)
     expect(seats['Høyre']).to eq(48)
     expect(seats['Fremskrittspartiet']).to eq(29)
@@ -42,6 +62,3 @@ describe Sapor::Norway, '#seats' do
     expect(seats['Samfunnspartiet']).to eq(0)
   end
 end
-
-# TODO: Sanity check that LAST_DETAILED_ELECTION_RESULT sums up to
-#       LAST_ELECTION_RESULT

data/spec/unit/norwegian_municipality_spec.rb

@@ -0,0 +1,89 @@
+# 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::NorwegianMunicipality, '#area_code' do
+  it 'returns NO-0301 as the area code' do
+    expect(Sapor::NorwegianMunicipality::OSLO.area_code).to eq('NO-0301')
+  end
+end
+
+describe Sapor::NorwegianMunicipality, '#coalitions' do
+  it 'returns H+KrF+V, H+Frp, Frp+H+KrF+V, Ap+Sp+SV and Ap+Sp+SV+MDG+R as' \
+     ' the coalitions to track' do
+    expect(Sapor::NorwegianMunicipality::OSLO.coalitions).to \
+      include(['Høyre', 'Kristelig Folkeparti', 'Venstre'])
+    expect(Sapor::NorwegianMunicipality::OSLO.coalitions).to \
+      include(%w(Fremskrittspartiet Høyre))
+    expect(Sapor::NorwegianMunicipality::OSLO.coalitions).to \
+      include(['Fremskrittspartiet', 'Høyre', 'Kristelig Folkeparti',
+               'Venstre'])
+    expect(Sapor::NorwegianMunicipality::OSLO.coalitions).to \
+      include(['Arbeiderpartiet', 'Senterpartiet', 'Sosialistisk Venstreparti'])
+    expect(Sapor::NorwegianMunicipality::OSLO.coalitions).to \
+      include(['Arbeiderpartiet', 'Miljøpartiet de Grønne', 'Rødt',
+               'Senterpartiet', 'Sosialistisk Venstreparti'])
+    expect(Sapor::NorwegianMunicipality::OSLO.coalitions).to \
+      include(['Kristelig Folkeparti', 'Senterpartiet', 'Venstre'])
+  end
+end
+
+describe Sapor::NorwegianMunicipality, '#no_of_seats' do
+  it 'returns 59 as the number of seats' do
+    expect(Sapor::NorwegianMunicipality::OSLO.no_of_seats).to eq(59)
+  end
+end
+
+describe Sapor::NorwegianMunicipality, '#population_size' do
+  it 'returns a population size of 511,400' do
+    expect(Sapor::NorwegianMunicipality::OSLO.population_size).to eq(511_400)
+  end
+end
+
+describe Sapor::NorwegianMunicipality, '#seats' do
+  it 'calculates the number of seats for the election of 2011 correctly' do
+    oslo = Sapor::NorwegianMunicipality::OSLO
+    results = { 'Høyre' => 103_426, 'Arbeiderpartiet' => 95_262,
+                'Venstre' =>	22_879, 'Fremskrittspartiet' => 20_672,
+                'Sosialistisk Venstreparti' => 17_772, 'Rødt' => 10_236,
+                'Kristelig Folkeparti' => 7_094,
+                'Miljøpartiet de Grønne' => 6_706, 'Senterpartiet' =>	1_482,
+                'Pensjonistpartiet' => 989, 'Kristent Samlingsparti' => 220,
+                'Det Liberale Folkepartiet' => 217,
+                'Norges Kommunistiske Parti' => 192, 'Demokratene' => 187,
+                'Kystpartiet' => 119 }
+    seats = oslo.seats(results)
+    expect(seats['Høyre']).to eq(22)
+    expect(seats['Arbeiderpartiet']).to eq(20)
+    expect(seats['Venstre']).to eq(5)
+    expect(seats['Fremskrittspartiet']).to eq(4)
+    expect(seats['Sosialistisk Venstreparti']).to eq(4)
+    expect(seats['Rødt']).to eq(2)
+    expect(seats['Kristelig Folkeparti']).to eq(1)
+    expect(seats['Miljøpartiet de Grønne']).to eq(1)
+    expect(seats['Senterpartiet']).to eq(0)
+    expect(seats['Pensjonistpartiet']).to eq(0)
+    expect(seats['Kristent Samlingsparti']).to eq(0)
+    expect(seats['Det Liberale Folkepartiet']).to eq(0)
+    expect(seats['Norges Kommunistiske Parti']).to eq(0)
+    expect(seats['Demokratene']).to eq(0)
+    expect(seats['Kystpartiet']).to eq(0)
+  end
+end

data/spec/unit/number_formatter_spec.rb

@@ -1,7 +1,7 @@
 # encoding: utf-8
 #
 # Statistical Analysis of Polling Results (SAPoR)
-# Copyright (C) 2014 Filip van Laenen <f.a.vanlaenen@ieee.org>
+# Copyright (C) 2016 Filip van Laenen <f.a.vanlaenen@ieee.org>
 #
 # This file is part of SAPoR.
 #

data/spec/unit/poland_spec.rb

@@ -0,0 +1,62 @@
+#
+# 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::Poland, '#area_code' do
+  it 'returns PL as the area code' do
+    expect(Sapor::Poland.instance.area_code).to eq('PL')
+  end
+end
+
+describe Sapor::Poland, '#no_of_seats' do
+  it 'returns 460 as the number of seats' do
+    expect(Sapor::Poland.instance.no_of_seats).to eq(460)
+  end
+end
+
+describe Sapor::Poland, '#population_size' do
+  it 'returns a population size of 15,200,671' do
+    expect(Sapor::Poland.instance.population_size).to eq(15_200_671)
+  end
+end
+
+describe Sapor::Poland, '#seats' do
+  it 'calculates the number of seats for the election of 2015 correctly' do
+    Poland = Sapor::Poland.instance
+    results = Poland.overall_election_results_of_2015
+    seats = Poland.seats(results)
+    expect(seats['Prawo i Sprawiedliwość']).to eq(235)
+    expect(seats['Platforma Obywatelska']).to eq(138)
+    expect(seats['Kukiz’15']).to eq(42)
+    expect(seats['.Nowoczesna']).to eq(28)
+    expect(seats['Polskie Stronnictwo Ludowe']).to eq(16)
+    expect(seats['Mniejszość Niemiecka']).to eq(1)
+    expect(seats['Zjednoczona Lewica']).to eq(0)
+    expect(seats['Lewica Razem']).to eq(0)
+    expect(seats['KORWiN']).to eq(0)
+    expect(seats['JOW Bezpartyjni']).to eq(0)
+    expect(seats['Stonoga Partia Polska']).to eq(0)
+    expect(seats['Ruch Społeczny Rzeczypospolitej Polskiej']).to eq(0)
+    expect(seats['Zjednoczeni dla Śląska']).to eq(0)
+    expect(seats['Samoobrona']).to eq(0)
+    expect(seats['Grzegorz Braun „Szczęść Boże!”']).to eq(0)
+    expect(seats['Kongres Nowej Prawicy']).to eq(0)
+    expect(seats['Obywatele do Parlamentu']).to eq(0)
+  end
+end