sapor 0.1b1 → 0.2a1

data/spec/unit/european_union_27_italy_spec.rb

@@ -0,0 +1,69 @@
+# 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::EuropeanUnion27Italy, '#area_code' do
+  it 'returns EU27[IT] as the area code' do
+    expect(Sapor::EuropeanUnion27Italy.instance.area_code).to eq('EU27[IT]')
+  end
+end
+
+describe Sapor::EuropeanUnion27Italy, '#no_of_seats' do
+  it 'returns 76 as the number of seats' do
+    expect(Sapor::EuropeanUnion27Italy.instance.no_of_seats).to eq(76)
+  end
+end
+
+describe Sapor::EuropeanUnion27Italy, '#population_size' do
+  it 'returns a population size of 26,783,732' do
+    expect(Sapor::EuropeanUnion27Italy.instance.population_size).to \
+      eq(26_783_732)
+  end
+end
+
+describe Sapor::EuropeanUnion27Italy, '#seats' do
+  it 'calculates the number of seats using the votes of the 2014 election' do
+    results = { 'Partito Democratico (S&D)' => 11_203_231,
+                'Movimento 5 Stelle (EFDD)' => 5_792_865,
+                'Forza Italia (EPP)' => 4_614_364,
+                'Lega Nord (ENF)' => 1_688_197,
+                'Nuovo Centrodestra–Unione di Centro (EPP)' => 1_202_350,
+                'L’Altra Europa con Tsipras (GUE/NGL)' => 1_108_457,
+                'Fratelli d’Italia (—)' => 1_006_513,
+                'Verdi Europei–Green Italia (Greens/EFA)' => 250_102,
+                'Scelta Europea (ALDE)' => 197_942,
+                'Italia dei Valori (ALDE)' => 181_373,
+                'Südtiroler Volkspartei (EPP)' => 138_037,
+                'Io Cambio–MAIE (—)' => 50_978 }
+    seats = Sapor::EuropeanUnion27Italy.instance.seats(results)
+    expect(seats['Partito Democratico (S&D)']).to eq(31 + 1)
+    expect(seats['Movimento 5 Stelle (EFDD)']).to eq(17)
+    expect(seats['Forza Italia (EPP)']).to eq(13 + 1)
+    expect(seats['Lega Nord (ENF)']).to eq(5)
+    expect(seats['Nuovo Centrodestra–Unione di Centro (EPP)']).to eq(3 + 1)
+    expect(seats['L’Altra Europa con Tsipras (GUE/NGL)']).to eq(3)
+    expect(seats['Fratelli d’Italia (—)']).to eq(0)
+    expect(seats['Verdi Europei–Green Italia (Greens/EFA)']).to eq(0)
+    expect(seats['Scelta Europea (ALDE)']).to eq(0)
+    expect(seats['Italia dei Valori (ALDE)']).to eq(0)
+    expect(seats['Südtiroler Volkspartei (EPP)']).to eq(1)
+    expect(seats['Io Cambio–MAIE (—)']).to eq(0)
+  end
+end

data/spec/unit/european_union_27_netherlands_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
+#
+
+require 'spec_helper'
+
+describe Sapor::EuropeanUnion27Netherlands, '#area_code' do
+  it 'returns EU27[NL] as the area code' do
+    expect(Sapor::EuropeanUnion27Netherlands.instance.area_code).to eq('EU27[NL]')
+  end
+end
+
+describe Sapor::EuropeanUnion27Netherlands, '#no_of_seats' do
+  it 'returns 29 as the number of seats' do
+    expect(Sapor::EuropeanUnion27Netherlands.instance.no_of_seats).to eq(29)
+  end
+end
+
+describe Sapor::EuropeanUnion27Netherlands, '#population_size' do
+  it 'returns a population size of 5,497,813' do
+    expect(Sapor::EuropeanUnion27Netherlands.instance.population_size).to \
+      eq(5_497_813)
+  end
+end
+
+describe Sapor::EuropeanUnion27Netherlands, '#seats' do
+  it 'calculates the number of seats for the election of 2014' do
+    results = { 'Democraten 66 (ALDE)' => 735_825,
+                'Christen-Democratisch Appèl–ChristenUnie–Staatkundig' \
+                  ' Gereformeerde Partij (EPP)' => 721_766 + 364_843,
+                'Partij voor de Vrijheid (ENF)' => 633_114,
+                'Volkspartij voor Vrijheid en Democratie (ALDE)' => 571_176,
+                'Socialistische Partij (GUE/NGL)' => 458_079,
+                'Partij van de Arbeid–GroenLinks (S&D)' => 446_763 + 331_594,
+                'Partij voor de Dieren (GUE/NGL)' => 200_254,
+                '50Plus (ALDE)' => 175_343,
+                'Piratenpartij (Greens/EFA)' => 40_216,
+                'Artikel 50 (—)' => 24_069,
+                'Anti Europa Partij (—)' => 12_290,
+                'De Groenen (Greens/EFA)' => 10_833,
+                'Jezus Leeft (—)' => 9_507,
+                'ikkiesvooreerlijk.eu (—)' => 6_796,
+                'Liberaal Democratische Partij (—)' => 6_349,
+                'Aandacht en Eenvoud (—)' => 3_174,
+                'IQ, de Rechten-Plichten-Partij (—)' => 1_705 }
+    seats = Sapor::EuropeanUnion27Netherlands.instance.seats(results)
+    expect(seats['Democraten 66 (ALDE)']).to eq(4 + 1)
+    expect(seats['Christen-Democratisch Appèl–ChristenUnie–Staatkundig' \
+                   ' Gereformeerde Partij (EPP)']).to eq(5 + 2)
+    expect(seats['Partij voor de Vrijheid (ENF)']).to eq(4)
+    expect(seats['Volkspartij voor Vrijheid en Democratie (ALDE)']).to eq(3)
+    expect(seats['Socialistische Partij (GUE/NGL)']).to eq(2 + 1)
+    expect(seats['Partij van de Arbeid–GroenLinks (S&D)']).to eq(3 + 2)
+    expect(seats['Partij voor de Dieren (GUE/NGL)']).to eq(1)
+    expect(seats['50Plus (ALDE)']).to eq(0 + 1)
+    expect(seats['Piratenpartij (Greens/EFA)']).to eq(0)
+    expect(seats['Artikel 50 (—)']).to eq(0)
+    expect(seats['Anti Europa Partij (—)']).to eq(0)
+    expect(seats['De Groenen (Greens/EFA)']).to eq(0)
+    expect(seats['Jezus Leeft (—)']).to eq(0)
+    expect(seats['ikkiesvooreerlijk.eu (—)']).to eq(0)
+    expect(seats['Liberaal Democratische Partij (—)']).to eq(0)
+    expect(seats['Aandacht en Eenvoud (—)']).to eq(0)
+    expect(seats['IQ, de Rechten-Plichten-Partij (—)']).to eq(0)
+  end
+end

data/spec/unit/european_union_27_poland_spec.rb

@@ -0,0 +1,69 @@
+# 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::EuropeanUnion27Poland, '#area_code' do
+  it 'returns EU27[PL] as the area code' do
+    expect(Sapor::EuropeanUnion27Poland.instance.area_code).to eq('EU27[PL]')
+  end
+end
+
+describe Sapor::EuropeanUnion27Poland, '#no_of_seats' do
+  it 'returns 52 as the number of seats' do
+    expect(Sapor::EuropeanUnion27Poland.instance.no_of_seats).to eq(52)
+  end
+end
+
+describe Sapor::EuropeanUnion27Poland, '#population_size' do
+  it 'returns a population size of 13,647,311' do
+    expect(Sapor::EuropeanUnion27Poland.instance.population_size).to \
+      eq(13_647_311)
+  end
+end
+
+describe Sapor::EuropeanUnion27Poland, '#seats' do
+  it 'calculates the number of seats for the election of 2014' do
+    results = { 'Platforma Obywatelska (EPP)' => 2_271_215,
+                'Prawo i Sprawiedliwość (ECR)' => 2_246_870,
+                'Sojusz Lewicy Demokratycznej–Unia Pracy (S&D)' => 667_319,
+                'Kongres Nowej Prawicy (ENF)' => 505_586,
+                'Polskie Stronnictwo Ludowe (EPP)' => 480_846,
+                'Solidarna Polska Zbigniewa Ziobro (EFDD)' => 281_079,
+                'Europa Plus–Twój Ruch (ALDE)' => 252_779,
+                'Polska Razem (ECR)' => 223_733,
+                'Ruch Narodowy (—)' => 98_626,
+                'Partia Zieloni (Greens/EFA)' => 22_481,
+                'Demokracja Bezpośrednia (—)' => 16_222,
+                'Samoobrona (—)' => 2_729 }
+    seats = Sapor::EuropeanUnion27Poland.instance.seats(results)
+    expect(seats['Platforma Obywatelska (EPP)']).to eq(19 + 1)
+    expect(seats['Prawo i Sprawiedliwość (ECR)']).to eq(19)
+    expect(seats['Sojusz Lewicy Demokratycznej–Unia Pracy (S&D)']).to eq(5)
+    expect(seats['Kongres Nowej Prawicy (ENF)']).to eq(4)
+    expect(seats['Polskie Stronnictwo Ludowe (EPP)']).to eq(4)
+    expect(seats['Solidarna Polska Zbigniewa Ziobro (EFDD)']).to eq(0)
+    expect(seats['Europa Plus–Twój Ruch (ALDE)']).to eq(0)
+    expect(seats['Polska Razem (ECR)']).to eq(0)
+    expect(seats['Ruch Narodowy (—)']).to eq(0)
+    expect(seats['Partia Zieloni (Greens/EFA)']).to eq(0)
+    expect(seats['Demokracja Bezpośrednia (—)']).to eq(0)
+    expect(seats['Samoobrona (—)']).to eq(0)
+  end
+end

data/spec/unit/european_union_27_romania_spec.rb

@@ -0,0 +1,67 @@
+# 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::EuropeanUnion27Romania, '#area_code' do
+  it 'returns EU27[RO] as the area code' do
+    expect(Sapor::EuropeanUnion27Romania.instance.area_code).to eq('EU27[RO]')
+  end
+end
+
+describe Sapor::EuropeanUnion27Romania, '#no_of_seats' do
+  it 'returns 33 as the number of seats' do
+    expect(Sapor::EuropeanUnion27Romania.instance.no_of_seats).to eq(33)
+  end
+end
+
+describe Sapor::EuropeanUnion27Romania, '#population_size' do
+  it 'returns a population size of 9,352,472' do
+    expect(Sapor::EuropeanUnion27Romania.instance.population_size).to \
+      eq(9_352_472)
+  end
+end
+
+describe Sapor::EuropeanUnion27Romania, '#seats' do
+  it 'calculates the number of seats for the election of 2014' do
+    results = { 'Uniunea Social Democrată (S&D)' => 2_093_237,
+                'Partidul Național Liberal (ALDE)' => 835_531,
+                'Partidul Democrat Liberal (EPP)' => 680_853,
+                'Mircea Diaconu (ALDE)' => 379_582,
+                'Uniunea Democrată Maghiară din România (EPP)' => 350_689,
+                'Partidul Mișcarea Populară (EPP)' => 345_973,
+                'Partidul Poporului–Dan Diaconescu (—)' => 204_310,
+                'Partidul România Mare (—)' => 150_484,
+                'Forța Civică (EPP)' => 145_181,
+                'Partidul Ecologist Român (—)' => 64_232 }
+    seats = Sapor::EuropeanUnion27Romania.instance.seats(results)
+    expect(seats['Uniunea Social Democrată (S&D)']).to eq(15 + 1)
+    # Uniunea Social Democrata got in reality the extra seat from Mircea Diaconu
+    expect(seats['Partidul Național Liberal (ALDE)']).to eq(6)
+    expect(seats['Partidul Democrat Liberal (EPP)']).to eq(5)
+    expect(seats['Partidul Democrat Liberal (EPP)']).to eq(5)
+    expect(seats['Mircea Diaconu (ALDE)']).to eq(2) # Only one candidate
+    expect(seats['Uniunea Democrată Maghiară din România (EPP)']).to eq(2)
+    expect(seats['Partidul Mișcarea Populară (EPP)']).to eq(2)
+    expect(seats['Partidul Poporului–Dan Diaconescu (—)']).to eq(0)
+    expect(seats['Partidul România Mare (—)']).to eq(0)
+    expect(seats['Forța Civică (EPP)']).to eq(0)
+    expect(seats['Partidul Ecologist Român (—)']).to eq(0)
+  end
+end

data/spec/unit/european_union_27_slovakia_spec.rb

@@ -0,0 +1,111 @@
+# 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::EuropeanUnion27Slovakia, '#area_code' do
+  it 'returns EU27[SK] as the area code' do
+    expect(Sapor::EuropeanUnion27Slovakia.instance.area_code).to eq('EU27[SK]')
+  end
+end
+
+describe Sapor::EuropeanUnion27Slovakia, '#no_of_seats' do
+  it 'returns 14 as the number of seats' do
+    expect(Sapor::EuropeanUnion27Slovakia.instance.no_of_seats).to eq(14)
+  end
+end
+
+describe Sapor::EuropeanUnion27Slovakia, '#population_size' do
+  it 'returns a population size of 1,007,398' do
+    expect(Sapor::EuropeanUnion27Slovakia.instance.population_size).to \
+      eq(1_007_398)
+  end
+end
+
+describe Sapor::EuropeanUnion27Slovakia, '#seats' do
+  it 'calculates the number of seats for the election of 2014' do
+    results = { 'SMER–sociálna demokracia (S&D)' => 135_089,
+                'Kresťanskodemokratické hnutie (EPP)' => 74_108,
+                'Slovenská demokratická a kresťanská únia–Demokratická' \
+                  ' strana (EPP)' => 43_467,
+                'OBYČAJNÍ ĽUDIA a nezávislé osobnosti (ECR)' => 41_829,
+                'NOVA–Konzervatívni demokrati Slovenska–Občianska' \
+                  ' konzervatívna strana (ECR)' => 38_316,
+                'Sloboda a Solidarita (ALDE)' => 37_376,
+                'Strana maďarskej koalície–Magyar Koalíció Pártja (EPP)' \
+                  => 36_629,
+                'MOST–HÍD (EPP)' => 32_708,
+                'Strana TIP (—)' => 20_730,
+                'Slovenská národná strana (EFDD)' => 20_244,
+                'Ľudová strana Naše Slovensko (NI)' => 9_749,
+                'PRÁVO A SPRAVODLIVOSŤ (—)' => 9_322,
+                'Komunistická strana Slovenska (GUE/NGL)' => 8_510,
+                'Strana demokratického Slovenska (ALDE)' => 8_378,
+                'Národ a Spravodlivosť–naša strana (—)' => 7_763,
+                'Magnificat Slovakia (—)' => 6_646,
+                'Európska demokratická strana (ALDE)' => 3_739,
+                'Kresťanská SLOVENSKÁ NÁRODNÁ STRANA (—)' => 3_631,
+                'Strana moderného Slovenska (—)' => 2_851,
+                'ÚSVIT (—)' => 2_773,
+                '7 STATOČNÝCH REGIONÁLNA STRANA SLOVENSKA (—)' => 2_696,
+                'Strana zelených (Greens/EFA)' => 2_623,
+                'Slovenská ľudová strana (—)' => 2_590,
+                'PRIAMA DEMOKRACIA–Kresťanská ľudová strana (ALDE)' => 2_405,
+                'VZDOR–strana práce (—)' => 1_769,
+                'Strana občianskej ľavice (—)' => 1_311,
+                'DEMOKRATICKÁ OBČIANSKA STRANA (—)' => 1_273,
+                'Maďarská kresťanskodemokratická aliancia–Magyar' \
+                  ' Kereszténydemokrata Szövetség (Greens/EFA)' => 1_170,
+                'Nový parlament (—)' => 900 }
+    seats = Sapor::EuropeanUnion27Slovakia.instance.seats(results)
+    expect(seats['SMER–sociálna demokracia (S&D)']).to eq(4 + 1)
+    expect(seats['Kresťanskodemokratické hnutie (EPP)']).to eq(2 + 1)
+    expect(seats['Slovenská demokratická a kresťanská únia–Demokratická' \
+                 ' strana (EPP)']).to eq(2 - 1)
+    expect(seats['OBYČAJNÍ ĽUDIA a nezávislé osobnosti (ECR)']).to eq(1)
+    expect(seats['NOVA–Konzervatívni demokrati Slovenska–Občianska' \
+                 ' konzervatívna strana (ECR)']).to eq(1)
+    expect(seats['Sloboda a Solidarita (ALDE)']).to eq(1)
+    expect(seats['Strana maďarskej koalície–Magyar Koalíció Pártja (EPP)']).to \
+      eq(1)
+    expect(seats['MOST–HÍD (EPP)']).to eq(1)
+    expect(seats['Strana TIP (—)']).to eq(0)
+    expect(seats['Slovenská národná strana (EFDD)']).to eq(0)
+    expect(seats['Ľudová strana Naše Slovensko (NI)']).to eq(0)
+    expect(seats['PRÁVO A SPRAVODLIVOSŤ (—)']).to eq(0)
+    expect(seats['Komunistická strana Slovenska (GUE/NGL)']).to eq(0)
+    expect(seats['Strana demokratického Slovenska (ALDE)']).to eq(0)
+    expect(seats['Národ a Spravodlivosť–naša strana (—)']).to eq(0)
+    expect(seats['Magnificat Slovakia (—)']).to eq(0)
+    expect(seats['Európska demokratická strana (ALDE)']).to eq(0)
+    expect(seats['Kresťanská SLOVENSKÁ NÁRODNÁ STRANA (—)']).to eq(0)
+    expect(seats['Strana moderného Slovenska (—)']).to eq(0)
+    expect(seats['ÚSVIT (—)']).to eq(0)
+    expect(seats['7 STATOČNÝCH REGIONÁLNA STRANA SLOVENSKA (—)']).to eq(0)
+    expect(seats['Strana zelených (Greens/EFA)']).to eq(0)
+    expect(seats['Slovenská ľudová strana (—)']).to eq(0)
+    expect(seats['PRIAMA DEMOKRACIA–Kresťanská ľudová strana (ALDE)']).to eq(0)
+    expect(seats['VZDOR–strana práce (—)']).to eq(0)
+    expect(seats['Strana občianskej ľavice (—)']).to eq(0)
+    expect(seats['DEMOKRATICKÁ OBČIANSKA STRANA (—)']).to eq(0)
+    expect(seats['Maďarská kresťanskodemokratická aliancia–Magyar' \
+                 ' Kereszténydemokrata Szövetség (Greens/EFA)']).to eq(0)
+    expect(seats['Nový parlament (—)']).to eq(0)
+  end
+end

data/spec/unit/european_union_27_spain_spec.rb

@@ -0,0 +1,130 @@
+# 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::EuropeanUnion27Spain, '#area_code' do
+  it 'returns EU27[ES] as the area code' do
+    expect(Sapor::EuropeanUnion27Spain.instance.area_code).to \
+      eq('EU27[ES]')
+  end
+end
+
+describe Sapor::EuropeanUnion27Spain, '#no_of_seats' do
+  it 'returns 59 as the number of seats' do
+    expect(Sapor::EuropeanUnion27Spain.instance.no_of_seats).to eq(59)
+  end
+end
+
+describe Sapor::EuropeanUnion27Spain, '#population_size' do
+  it 'returns a population size of 22,410,049' do
+    expect(Sapor::EuropeanUnion27Spain.instance.population_size).to \
+      eq(22_410_049)
+  end
+end
+
+describe Sapor::EuropeanUnion27Spain, '#seats' do
+  it 'calculates the number of seats using the votes of the 2014 election' do
+    results = { 'Partido Popular (EPP)' => 4_098_339,
+                'Partido Socialista Obrero Español (S&D)' => 3_614_232,
+                'La Izquierda Plural (GUE/NGL)' => 1_575_308,
+                'Podemos (GUE/NGL)' => 1_253_837,
+                'Unión Progreso y Democracia (ALDE)' => 1_022_232,
+                'Coalición por Europa (ALDE)' => 851_971,
+                'L’Esquerra pel Dret a Decidir (Greens/EFA)' => 630_072,
+                'Ciudadanos–Partido de la Ciudadanía (ALDE)' => 497_146,
+                'Los Pueblos Deciden (GUE/NGL)' => 326_464,
+                'Primavera Europea (Greens/EFA)' => 302_266,
+                'Vox (ECR)' => 246_833,
+                'Partido Animalista Contra el Maltrato Animal (—)' => 177_499,
+                'Escaños en Blanco  (—)' => 115_682,
+                'Movimiento de Renovación Democrática de la Ciudadanía (—)' => \
+                  105_666,
+                'Partido X (—)' => 100_561,
+                'Partido Andalucista (Greens/EFA)' => 49_523,
+                'Confederación Pirata (—)' => 38_690,
+                'Foro de Ciudadanos (—)' => 32_962,
+                'Agrupación de Electores de Discapacitados y Enfermedades' \
+                  ' Raras (—)' => 32_833,
+                'Recortes Cero (—)' => 30_827,
+                'Partido Comunista de los Pueblos de España (—)' => 29_324,
+                'Iniciativa Feminista (—)' => 23_140,
+                'Falange Española de las JONS (—)' => 21_687,
+                'Ciudadanos Libres Unidos (—)' => 18_287,
+                'Impulso Social (—)' => 17_879,
+                'La España en Marcha (—)' => 17_035,
+                'Partido Humanista (—)' => 14_896,
+                'Democracia Nacional (—)' => 13_079,
+                'Proyecto Europa (—)' => 11_502,
+                'Partido da Terra (—)' => 9_940,
+                'Partido de la Libertad Individual (—)' => 9_670,
+                'Movimiento Social Republicano (—)' => 8_909,
+                'Extremadura Unida (—)' => 8_821,
+                'Alternativa Republicana (—)' => 8_593,
+                'Por la República, Por la Ruptura con la Unión Europea (—)' => \
+                  8_309,
+                'Solidaridad y Autogestión Internacionalista (—)' => 6_929,
+                'Salamanca-Zamora-León (—)' => 6_759,
+                'Extremeños por Europa Coalición electoral (—)' => 5_967,
+                'Movimiento Corriente Roja (—)' => 4_980 }
+    seats = Sapor::EuropeanUnion27Spain.instance.seats(results)
+    expect(seats['Partido Popular (EPP)']).to eq(16 + 2)
+    expect(seats['Partido Socialista Obrero Español (S&D)']).to eq(14 + 2)
+    expect(seats['La Izquierda Plural (GUE/NGL)']).to eq(6)
+    expect(seats['Podemos (GUE/NGL)']).to eq(5)
+    expect(seats['Unión Progreso y Democracia (ALDE)']).to eq(4)
+    expect(seats['Coalición por Europa (ALDE)']).to eq(3)
+    expect(seats['L’Esquerra pel Dret a Decidir (Greens/EFA)']).to eq(2)
+    expect(seats['Ciudadanos–Partido de la Ciudadanía (ALDE)']).to eq(2)
+    expect(seats['Los Pueblos Deciden (GUE/NGL)']).to eq(1)
+    expect(seats['Primavera Europea (Greens/EFA)']).to eq(1)
+    expect(seats['Vox (ECR)']).to eq(0 + 1)
+    expect(seats['Partido Animalista Contra el Maltrato Animal (—)']).to eq(0)
+    expect(seats['Escaños en Blanco  (—)']).to eq(0)
+    expect(seats['Movimiento de Renovación Democrática de la Ciudadanía (—)']) \
+      .to eq(0)
+    expect(seats['Partido X (—)']).to eq(0)
+    expect(seats['Partido Andalucista (Greens/EFA)']).to eq(0)
+    expect(seats['Confederación Pirata (—)']).to eq(0)
+    expect(seats['Foro de Ciudadanos (—)']).to eq(0)
+    expect(seats['Agrupación de Electores de Discapacitados y Enfermedades' \
+                 ' Raras (—)']).to eq(0)
+    expect(seats['Recortes Cero (—)']).to eq(0)
+    expect(seats['Partido Comunista de los Pueblos de España (—)']).to eq(0)
+    expect(seats['Iniciativa Feminista (—)']).to eq(0)
+    expect(seats['Falange Española de las JONS (—)']).to eq(0)
+    expect(seats['Ciudadanos Libres Unidos (—)']).to eq(0)
+    expect(seats['Impulso Social (—)']).to eq(0)
+    expect(seats['La España en Marcha (—)']).to eq(0)
+    expect(seats['Partido Humanista (—)']).to eq(0)
+    expect(seats['Democracia Nacional (—)']).to eq(0)
+    expect(seats['Proyecto Europa (—)']).to eq(0)
+    expect(seats['Partido da Terra (—)']).to eq(0)
+    expect(seats['Partido de la Libertad Individual (—)']).to eq(0)
+    expect(seats['Movimiento Social Republicano (—)']).to eq(0)
+    expect(seats['Extremadura Unida (—)']).to eq(0)
+    expect(seats['Alternativa Republicana (—)']).to eq(0)
+    expect(seats['Por la República, Por la Ruptura con la Unión Europea (—)']) \
+      .to eq(0)
+    expect(seats['Solidaridad y Autogestión Internacionalista (—)']).to eq(0)
+    expect(seats['Salamanca-Zamora-León (—)']).to eq(0)
+    expect(seats['Extremeños por Europa Coalición electoral (—)']).to eq(0)
+    expect(seats['Movimiento Corriente Roja (—)']).to eq(0)
+  end
+end

data/spec/unit/european_union_27_sweden_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::EuropeanUnion27Sweden, '#area_code' do
+  it 'returns EU27[SE] as the area code' do
+    expect(Sapor::EuropeanUnion27Sweden.instance.area_code).to eq('EU27[SE]')
+  end
+end
+
+describe Sapor::EuropeanUnion27Sweden, '#no_of_seats' do
+  it 'returns 21 as the number of seats' do
+    expect(Sapor::EuropeanUnion27Sweden.instance.no_of_seats).to eq(21)
+  end
+end
+
+describe Sapor::EuropeanUnion27Sweden, '#population_size' do
+  it 'returns a population size of 4,151,470' do
+    expect(Sapor::EuropeanUnion27Sweden.instance.population_size).to \
+      eq(4_151_470)
+  end
+end
+
+describe Sapor::EuropeanUnion27Sweden, '#seats' do
+  it 'calculates the number of seats for the election of 2014' do
+    results = { 'Sveriges socialdemokratiska arbetareparti (S&D)' => 899_074,
+                'Miljöpartiet de gröna (Greens/EFA)' => 572_591,
+                'Moderata samlingspartiet (EPP)' => 507_488,
+                'Liberalerna (ALDE)' => 368_514,
+                'Sverigedemokraterna (EFDD)' => 359_248,
+                'Centerpartiet (ALDE)' => 241_101,
+                'Vänsterpartiet (GUE/NGL)' => 234_272,
+                'Kristdemokraterna (EPP)' => 220_574,
+                'Feministiskt initiativ (S&D)' => 204_005,
+                'Piratpartiet (Greens/EFA)' => 82_763,
+                'Junilistan (GUE/NGL)' => 11_629,
+                'Djurens parti (GUE/NGL)'	=> 8_773,
+                'Liberala partiet (—)' => 492,
+                'Europeiska arbetarpartiet (—)'	=> 170,
+                'Sverigesmultidemokrater (—)' => 133,
+                'Sverige ut ur EU–Frihetliga Rättvisepartiet (—)' => 106,
+                'Socialistiska välfärdspartiet (—)' => 86,
+                'Äkta demokrati (—)' => 72,
+                'Sveriges nationella demokratiska parti (—)' => 49,
+                '666 för en EU:s super-state med frihet, jämlikhet, rättvisa,' \
+                  ' fred, kärlek och lyckan (—)' => 11,
+                'Republicans right (—)' => 9 }
+    seats = Sapor::EuropeanUnion27Sweden.instance.seats(results)
+    expect(seats['Sveriges socialdemokratiska arbetareparti (S&D)']).to eq(5 + 1)
+    expect(seats['Miljöpartiet de gröna (Greens/EFA)']).to eq(4)
+    expect(seats['Moderata samlingspartiet (EPP)']).to eq(3)
+    expect(seats['Liberalerna (ALDE)']).to eq(2)
+    expect(seats['Sverigedemokraterna (EFDD)']).to eq(2)
+    expect(seats['Centerpartiet (ALDE)']).to eq(1)
+    expect(seats['Vänsterpartiet (GUE/NGL)']).to eq(1)
+    expect(seats['Kristdemokraterna (EPP)']).to eq(1)
+    expect(seats['Feministiskt initiativ (S&D)']).to eq(1)
+    expect(seats['Piratpartiet (Greens/EFA)']).to eq(0)
+    expect(seats['Junilistan (GUE/NGL)']).to eq(0)
+    expect(seats['Djurens parti (GUE/NGL)']).to eq(0)
+    expect(seats['Liberala partiet (—)']).to eq(0)
+    expect(seats['Europeiska arbetarpartiet (—)']).to eq(0)
+    expect(seats['Sverigesmultidemokrater (—)']).to eq(0)
+    expect(seats['Sverige ut ur EU–Frihetliga Rättvisepartiet (—)']).to eq(0)
+    expect(seats['Socialistiska välfärdspartiet (—)']).to eq(0)
+    expect(seats['Äkta demokrati (—)']).to eq(0)
+    expect(seats['Sveriges nationella demokratiska parti (—)']).to eq(0)
+    expect(seats['666 för en EU:s super-state med frihet, jämlikhet,' \
+                   ' rättvisa, fred, kärlek och lyckan (—)']).to eq(0)
+    expect(seats['Republicans right (—)']).to eq(0)
+  end
+end