sapor 0.1b1 → 0.2a1

data/spec/unit/area_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.
 #
@@ -35,61 +35,61 @@ BROKEN_LINE = 'Broken line'
 
 describe Sapor::Area, '#lines_to_election_results' do
   it 'converts a single line to 1 constituency' do
-    area = Sapor::Area.instance
+    area = Sapor::Area.new
     election_results = area.lines_to_election_results(NORTH_RED_LINE)
     expect(election_results.size).to eq(1)
   end
 
   it 'converts two lines for the same constituency to 1 constituency' do
-    area = Sapor::Area.instance
+    area = Sapor::Area.new
     lines = [NORTH_RED_LINE, NORTH_BLUE_LINE].join("\n")
     election_results = area.lines_to_election_results(lines)
     expect(election_results.size).to eq(1)
   end
 
   it 'converts two lines for two constituencies to 2 constituencies' do
-    area = Sapor::Area.instance
+    area = Sapor::Area.new
     lines = [NORTH_RED_LINE, SOUTH_RED_LINE].join("\n")
     election_results = area.lines_to_election_results(lines)
     expect(election_results.size).to eq(2)
   end
 
   it 'ignores empty lines' do
-    area = Sapor::Area.instance
+    area = Sapor::Area.new
     lines = [NORTH_RED_LINE, EMPTY_LINE].join("\n")
     election_results = area.lines_to_election_results(lines)
     expect(election_results.size).to eq(1)
   end
 
   it 'ignores comments' do
-    area = Sapor::Area.instance
+    area = Sapor::Area.new
     lines = [NORTH_RED_LINE, COMMENT].join("\n")
     election_results = area.lines_to_election_results(lines)
     expect(election_results.size).to eq(1)
   end
 
   it 'sets the number of votes for a party in a constituency correctly' do
-    area = Sapor::Area.instance
+    area = Sapor::Area.new
     election_results = area.lines_to_election_results(NORTH_RED_LINE)
     expect(election_results[NORTH][RED]).to eq(5)
   end
 
   it 'ignores thousands separators' do
-    area = Sapor::Area.instance
+    area = Sapor::Area.new
     election_results = area.lines_to_election_results(\
       SOUTH_BLUE_LINE_WITH_THOUSANDS_SEPARATOR)
     expect(election_results[SOUTH][BLUE]).to eq(8_888_888)
   end
 
   it 'raises an ArgumentError when a line is broken' do
-    area = Sapor::Area.instance
+    area = Sapor::Area.new
     expect { area.lines_to_election_results(BROKEN_LINE) }.to \
       raise_error(ArgumentError, "Broken line: #{BROKEN_LINE}.")
   end
 
   it 'raises an ArgumentError if the same choice is added twice to the same ' \
      'constituency' do
-    area = Sapor::Area.instance
+    area = Sapor::Area.new
     lines = [NORTH_RED_LINE, NORTH_RED_LINE].join("\n")
     expect { area.lines_to_election_results(lines) }.to \
       raise_error(ArgumentError, "Choice #{RED} appeared twice in " \
@@ -99,14 +99,14 @@ end
 
 describe Sapor::Area, '#summarize_election_results' do
   it 'summarizes one result to one result' do
-    area = Sapor::Area.instance
+    area = Sapor::Area.new
     election_results = area.lines_to_election_results(NORTH_RED_LINE)
     summary = area.summarize_election_results(election_results)
     expect(summary[RED]).to eq(5)
   end
 
   it 'summarizes results of same choice in two constituencies' do
-    area = Sapor::Area.instance
+    area = Sapor::Area.new
     lines = [NORTH_RED_LINE, SOUTH_RED_LINE].join("\n")
     election_results = area.lines_to_election_results(lines)
     summary = area.summarize_election_results(election_results)

data/spec/unit/austria_spec.rb

@@ -0,0 +1,76 @@
+#
+# 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::Austria, '#area_code' do
+  it 'returns AT as the area code' do
+    expect(Sapor::Austria.instance.area_code).to eq('AT')
+  end
+end
+
+describe Sapor::Austria, '#no_of_seats' do
+  it 'returns 183 as the number of seats' do
+    expect(Sapor::Austria.instance.no_of_seats).to eq(183)
+  end
+end
+
+describe Sapor::Austria, '#population_size' do
+  it 'returns a population size of 5,069,929' do
+    expect(Sapor::Austria.instance.population_size).to \
+      eq(5_069_929)
+  end
+end
+
+describe Sapor::Austria, '#seats' do
+  it 'calculates the number of seats for the election of 2017' do
+    results = { 'Österreichische Volkspartei' => 1_595_526,
+                'Sozialdemokratische Partei Österreichs' => 1_361_746,
+                'Freiheitliche Partei Österreichs' => 1_316_442,
+                'NEOS–Das Neue Österreich und Liberales Forum' => 268_518,
+                'Liste Peter Pilz' => 223_544,
+                'Die Grünen–Die Grüne Alternative' => 192_638,
+                'Meine Stimme GILT' => 48_233,
+                'Kommunistische Partei Österreichs' => 39_689,
+                'Die Weissen' => 9_167,
+                'Freie Liste Österreich' => 8_889,
+                'Neue Bewegung für die Zukunft' => 2_724,
+                'Obdachlose in der Politik' => 761,
+                'Sozialistische Linkspartei' => 713,
+                'EU-Austrittspartei' => 693,
+                'Christliche Partei Österreichs' => 425,
+                'Männerpartei' => 221 }
+    seats = Sapor::Austria.instance.seats(results)
+    expect(seats['Österreichische Volkspartei']).to eq(62)
+    expect(seats['Sozialdemokratische Partei Österreichs']).to eq(52)
+    expect(seats['Freiheitliche Partei Österreichs']).to eq(51)
+    expect(seats['NEOS–Das Neue Österreich und Liberales Forum']).to eq(10)
+    expect(seats['Liste Peter Pilz']).to eq(8)
+    expect(seats['Die Grünen–Die Grüne Alternative']).to eq(0)
+    expect(seats['Meine Stimme GILT']).to eq(0)
+    expect(seats['Kommunistische Partei Österreichs']).to eq(0)
+    expect(seats['Die Weissen']).to eq(0)
+    expect(seats['Freie Liste Österreich']).to eq(0)
+    expect(seats['Neue Bewegung für die Zukunft']).to eq(0)
+    expect(seats['Obdachlose in der Politik']).to eq(0)
+    expect(seats['Sozialistische Linkspartei']).to eq(0)
+    expect(seats['EU-Austrittspartei']).to eq(0)
+    expect(seats['Christliche Partei Österreichs']).to eq(0)
+    expect(seats['Männerpartei']).to eq(0)
+  end
+end

data/spec/unit/belgium_brussels_spec.rb

@@ -0,0 +1,58 @@
+# 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::BelgiumBrussels, '#area_code' do
+  it 'returns BE[BRU] as the area code' do
+    expect(Sapor::BelgiumBrussels.instance.area_code).to eq('BE[BRU]')
+  end
+end
+
+describe Sapor::BelgiumBrussels, '#no_of_seats' do
+  it 'returns 15 as the number of seats' do
+    expect(Sapor::BelgiumBrussels.instance.no_of_seats).to eq(15)
+  end
+end
+
+describe Sapor::BelgiumBrussels, '#population_size' do
+  it 'returns a population size of 501,459' do
+    expect(Sapor::BelgiumBrussels.instance.population_size).to eq(501_459)
+  end
+end
+
+describe Sapor::BelgiumBrussels, '#seats' do
+  it 'calculates the number of seats for the election of 2014' do
+    belgium_brussels = Sapor::BelgiumBrussels.instance
+    results = belgium_brussels.overall_election_results_of_2019
+    seats = belgium_brussels.seats(results)
+    expect(seats['Ecolo']).to eq(4)
+    expect(seats['Parti Socialiste']).to eq(3)
+    expect(seats['Mouvement Réformateur']).to eq(3)
+    expect(seats['Parti du Travail de Belgique']).to eq(2)
+    expect(seats['DéFI']).to eq(2)
+    expect(seats['Centre démocrate humaniste']).to eq(1)
+    expect(seats['Nieuw-Vlaamse Alliantie']).to eq(0)
+    expect(seats['Listes Destexhe']).to eq(0)
+    expect(seats['Open Vlaamse Liberalen en Democraten']).to eq(0)
+    expect(seats['Parti Populaire']).to eq(0)
+    expect(seats['Vlaams Belang']).to eq(0)
+    expect(seats['Christen-Democratisch en Vlaams']).to eq(0)
+  end
+end

data/spec/unit/belgium_flanders_spec.rb

@@ -0,0 +1,62 @@
+# 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::BelgiumFlanders, '#area_code' do
+  it 'returns BE[VLG] as the area code' do
+    expect(Sapor::BelgiumFlanders.instance.area_code).to eq('BE[VLG]')
+  end
+end
+
+describe Sapor::BelgiumFlanders, '#no_of_seats' do
+  it 'returns 87 as the number of seats' do
+    expect(Sapor::BelgiumFlanders.instance.no_of_seats).to eq(87)
+  end
+end
+
+describe Sapor::BelgiumFlanders, '#population_size' do
+  it 'returns a population size of 4,206,305' do
+    expect(Sapor::BelgiumFlanders.instance.population_size).to eq(4_206_305)
+  end
+end
+
+describe Sapor::BelgiumFlanders, '#seats' do
+  it 'calculates the number of seats for the election of 2019' do
+    belgium_flanders = Sapor::BelgiumFlanders.instance
+    results = belgium_flanders.overall_election_results_of_2019
+    seats = belgium_flanders.seats(results)
+    expect(seats['Nieuw-Vlaamse Alliantie']).to eq(25)
+    expect(seats['Vlaams Belang']).to eq(18)
+    expect(seats['Open Vlaamse Liberalen en Democraten']).to eq(12)
+    expect(seats['Christen-Democratisch en Vlaams']).to eq(12)
+    expect(seats['Socialistische Partij Anders']).to eq(9)
+    expect(seats['Groen']).to eq(8)
+    expect(seats['Partij van de Arbeid van België']).to eq(3)
+    expect(seats['Belgische Unie – Union Belge']).to eq(0)
+    expect(seats['de coöperatie']).to eq(0)
+    expect(seats['DéFI']).to eq(0)
+    expect(seats['Democratisch-Solidair Appèl']).to eq(0)
+    expect(seats['DierAnimal']).to eq(0)
+    expect(seats['Partij Vrede en Solidariteit']).to eq(0)
+    expect(seats['Piratenpartij']).to eq(0)
+    expect(seats['PRO']).to eq(0)
+    expect(seats['Volt']).to eq(0)
+  end
+end

data/spec/unit/belgium_spec.rb

@@ -0,0 +1,26 @@
+# 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::Belgium, '#threshold' do
+  it 'returns a threshold of 5%' do
+    expect(Sapor::Belgium.instance.threshold).to eq(0.05)
+  end
+end

data/spec/unit/belgium_wallonia_spec.rb

@@ -0,0 +1,65 @@
+# 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::BelgiumWallonia, '#area_code' do
+  it 'returns BE[WAL] as the area code' do
+    expect(Sapor::BelgiumWallonia.instance.area_code).to eq('BE[WAL]')
+  end
+end
+
+describe Sapor::BelgiumWallonia, '#no_of_seats' do
+  it 'returns 48 as the number of seats' do
+    expect(Sapor::BelgiumWallonia.instance.no_of_seats).to eq(48)
+  end
+end
+
+describe Sapor::BelgiumWallonia, '#population_size' do
+  it 'returns a population size of 2,072,774' do
+    expect(Sapor::BelgiumWallonia.instance.population_size).to eq(2_072_774)
+  end
+end
+
+describe Sapor::BelgiumWallonia, '#seats' do
+  it 'calculates the number of seats for the election of 2019' do
+    belgium_wallonia = Sapor::BelgiumWallonia.instance
+    results = belgium_wallonia.overall_election_results_of_2019
+    seats = belgium_wallonia.seats(results)
+    expect(seats['Parti Socialiste']).to eq(17)
+    expect(seats['Mouvement Réformateur']).to eq(11)
+    expect(seats['Ecolo']).to eq(9)
+    expect(seats['Parti du Travail de Belgique']).to eq(7)
+    expect(seats['Centre démocrate humaniste']).to eq(4)
+    expect(seats['DéFI']).to eq(0)
+    expect(seats['AGIR']).to eq(0)
+    expect(seats['Collectif Citoyen']).to eq(0)
+    expect(seats['DierAnimal']).to eq(0)
+    expect(seats['La Droite']).to eq(0)
+    expect(seats['Les Belges d’Abord']).to eq(0)
+    expect(seats['Listes Destexhe']).to eq(0)
+    expect(seats['Lutte Ouvrière']).to eq(0)
+    expect(seats['NATION']).to eq(0)
+    expect(seats['Parti Communiste de Belgique']).to eq(0)
+    expect(seats['Parti Populaire']).to eq(0)
+    expect(seats['Turquoise']).to eq(0)
+    expect(seats['Vlaams Belang']).to eq(0)
+    expect(seats['Wallonie Insoumise']).to eq(0)
+  end
+end

data/spec/unit/binomials_cache_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/catalonia_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.
 #
@@ -20,7 +20,7 @@
 require 'spec_helper'
 
 describe Sapor::Catalonia, '#area_code' do
-  it 'returns ES-CAT as the area code' do
+  it 'returns ES-CT as the area code' do
     expect(Sapor::Catalonia.instance.area_code).to eq('ES-CT')
   end
 end
@@ -29,8 +29,11 @@ describe Sapor::Catalonia, '#coalitions' do
   it 'returns JS and JS+CUP as the coalitions to track' do
     expect(Sapor::Catalonia.instance.coalitions).to include(['Junts pel Sí'])
     expect(Sapor::Catalonia.instance.coalitions).to \
-      include(['Junts pel Sí',
-               "Candidatura d'Unitat Popular – Alternativa d'Esquerres"])
+      include(['Junts pel Sí', 'Candidatura d’Unitat Popular'])
+    expect(Sapor::Catalonia.instance.coalitions).to \
+      include(['Ciutadans–Partido de la Ciudadanía',
+               'Partit dels Socialistes de Catalunya (PSC-PSOE)',
+               'Catalunya en Comú', 'Partit Popular'])
   end
 end
 
@@ -41,37 +44,26 @@ describe Sapor::Catalonia, '#no_of_seats' do
 end
 
 describe Sapor::Catalonia, '#population_size' do
-  it 'returns a population size of 3,668,310' do
-    expect(Sapor::Catalonia.instance.population_size).to eq(3_668_310)
+  it 'returns a population size of 5,510,853' do
+    expect(Sapor::Catalonia.instance.population_size).to eq(5_510_853)
   end
 end
 
 describe Sapor::Catalonia, '#seats' do
-  it 'calculates the number of seats for the election of 2012 (adapted to' \
-     ' 2015) correctly' do
+  it 'calculates the number of seats for the election of 2015 correctly' do
     catalonia = Sapor::Catalonia.instance
-    results = catalonia.overall_election_results_of_2012_adapted_to_2015
+    results = catalonia.overall_election_results_of_2015
     seats = catalonia.seats(results)
-    expect(seats['Junts pel Sí']).to eq(64)
-    expect(seats['Partit dels Socialistes de Catalunya']).to eq(20)
-    expect(seats['Partit Popular de Catalunya']).to eq(19)
-    expect(seats['Catalunya Sí que es Pot']).to eq(13)
-    expect(seats['Ciutadans-Partido de la Ciudadanía']).to eq(9)
-    expect(seats['Unió Democràtica de Catalunya']).to eq(7)
-    expect(seats["Candidatura d'Unitat Popular – Alternativa d'Esquerres"]).to \
-      eq(3)
-    expect(seats['Plataforma per Catalunya']).to eq(0)
-    expect(seats['Solidaritat Catalana per la Independència']).to eq(0)
-    expect(seats['Escons en Blanc']).to eq(0)
-    expect(seats['Partido Animalista Contra el Maltrato Animal']).to eq(0)
-    expect(seats['Pirates de Catalunya']).to eq(0)
-    expect(seats['Unió, Progrés i Democràcia']).to eq(0)
-    expect(seats['Farts.cat']).to eq(0)
-    expect(seats['Via Democràtica']).to eq(0)
-    expect(seats["Unificació Comunista d'Espanya"]).to eq(0)
-    expect(seats["Partit Republicà d'Esquerra – Izquierda Republicana"]).to \
-      eq(0)
-    expect(seats['Socialistes i Republicans']).to eq(0)
+    expect(seats['Junts pel Sí']).to eq(62)
+    expect(seats['Ciutadans–Partido de la Ciudadanía']).to eq(25)
+    expect(seats['Partit dels Socialistes de Catalunya (PSC-PSOE)']).to eq(16)
+    expect(seats['Catalunya en Comú']).to eq(11)
+    expect(seats['Partit Popular']).to eq(11)
+    expect(seats['Candidatura d’Unitat Popular']).to eq(10)
+    expect(seats['Unió Democràtica de Catalunya']).to eq(0)
+    expect(seats['Partit Animalista contra el Maltractament Animal']).to eq(0)
+    expect(seats['Pirates de Catalunya–Per decidir-ho tot']).to eq(0)
+    expect(seats['Guanyem Catalunya']).to eq(0)
   end
 end
 

data/spec/unit/combinations_distribution_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/denmark_spec.rb

@@ -0,0 +1,56 @@
+#
+# 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::Denmark, '#area_code' do
+  it 'returns DK as the area code' do
+    expect(Sapor::Denmark.instance.area_code).to eq('DK')
+  end
+end
+
+describe Sapor::Denmark, '#no_of_seats' do
+  it 'returns 179 as the number of seats' do
+    expect(Sapor::Denmark.instance.no_of_seats).to eq(175)
+  end
+end
+
+describe Sapor::Denmark, '#population_size' do
+  it 'returns a population size of 3,518,987' do
+    expect(Sapor::Denmark.instance.population_size).to eq(3_518_987)
+  end
+end
+
+describe Sapor::Denmark, '#seats' do
+  it 'calculates the number of seats for the election of 2015 correctly' do
+    Denmark = Sapor::Denmark.instance
+    results = Denmark.overall_election_results_of_2015
+    seats = Denmark.seats(results)
+    expect(seats['Socialdemokraterne']).to eq(47 - 2)
+    expect(seats['Dansk Folkeparti']).to eq(37 - 1)
+    expect(seats['Venstre']).to eq(34 - 1)
+    expect(seats['Enhedslisten–De Rød-Grønne']).to eq(14 - 1)
+    expect(seats['Liberal Alliance']).to eq(13)
+    expect(seats['Alternativet']).to eq(9 - 1)
+    expect(seats['Radikale Venstre']).to eq(8)
+    expect(seats['Socialistisk Folkeparti']).to eq(7)
+    expect(seats['Det Konservative Folkeparti']).to eq(6)
+    expect(seats['Nye Borgerlige']).to eq(6)
+    expect(seats['Kristendemokraterne']).to eq(0)
+  end
+end

data/spec/unit/denmark_with_e_and_p_spec.rb

@@ -0,0 +1,58 @@
+#
+# 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::DenmarkWithEAndP, '#area_code' do
+  it 'returns DK∪{E,P} as the area code' do
+    expect(Sapor::DenmarkWithEAndP.instance.area_code).to eq('DK∪{E,P}')
+  end
+end
+
+describe Sapor::DenmarkWithEAndP, '#no_of_seats' do
+  it 'returns 179 as the number of seats' do
+    expect(Sapor::DenmarkWithEAndP.instance.no_of_seats).to eq(175)
+  end
+end
+
+describe Sapor::DenmarkWithEAndP, '#population_size' do
+  it 'returns a population size of 3,518,987' do
+    expect(Sapor::DenmarkWithEAndP.instance.population_size).to eq(3_518_987)
+  end
+end
+
+describe Sapor::DenmarkWithEAndP, '#seats' do
+  it 'calculates the number of seats for the election of 2015 correctly' do
+    Denmark = Sapor::DenmarkWithEAndP.instance
+    results = Denmark.overall_election_results_of_2015
+    seats = Denmark.seats(results)
+    expect(seats['Socialdemokraterne']).to eq(37)
+    expect(seats['Dansk Folkeparti']).to eq(29)
+    expect(seats['Venstre']).to eq(27)
+    expect(seats['Klaus Riskær Pedersen']).to eq(27)
+    expect(seats['Enhedslisten–De Rød-Grønne']).to eq(11)
+    expect(seats['Liberal Alliance']).to eq(10)
+    expect(seats['Alternativet']).to eq(7)
+    expect(seats['Radikale Venstre']).to eq(6)
+    expect(seats['Socialistisk Folkeparti']).to eq(6)
+    expect(seats['Det Konservative Folkeparti']).to eq(5)
+    expect(seats['Nye Borgerlige']).to eq(5)
+    expect(seats['Stram Kurs']).to eq(5)
+    expect(seats['Kristendemokraterne']).to eq(0)
+  end
+end

data/spec/unit/denmark_with_e_spec.rb

@@ -0,0 +1,57 @@
+#
+# 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::DenmarkWithE, '#area_code' do
+  it 'returns DK∪{E} as the area code' do
+    expect(Sapor::DenmarkWithE.instance.area_code).to eq('DK∪{E}')
+  end
+end
+
+describe Sapor::DenmarkWithE, '#no_of_seats' do
+  it 'returns 179 as the number of seats' do
+    expect(Sapor::DenmarkWithE.instance.no_of_seats).to eq(175)
+  end
+end
+
+describe Sapor::DenmarkWithE, '#population_size' do
+  it 'returns a population size of 3,518,987' do
+    expect(Sapor::DenmarkWithE.instance.population_size).to eq(3_518_987)
+  end
+end
+
+describe Sapor::DenmarkWithE, '#seats' do
+  it 'calculates the number of seats for the election of 2015 correctly' do
+    Denmark = Sapor::DenmarkWithE.instance
+    results = Denmark.overall_election_results_of_2015
+    seats = Denmark.seats(results)
+    expect(seats['Socialdemokraterne']).to eq(38)
+    expect(seats['Dansk Folkeparti']).to eq(30)
+    expect(seats['Venstre']).to eq(28)
+    expect(seats['Klaus Riskær Pedersen']).to eq(28)
+    expect(seats['Enhedslisten–De Rød-Grønne']).to eq(11)
+    expect(seats['Liberal Alliance']).to eq(11)
+    expect(seats['Alternativet']).to eq(7)
+    expect(seats['Radikale Venstre']).to eq(6)
+    expect(seats['Socialistisk Folkeparti']).to eq(6)
+    expect(seats['Det Konservative Folkeparti']).to eq(5)
+    expect(seats['Nye Borgerlige']).to eq(5)
+    expect(seats['Kristendemokraterne']).to eq(0)
+  end
+end