sapor 0.1b1 → 0.2a1

data/spec/unit/european_union_austria_spec.rb

@@ -0,0 +1,61 @@
+# 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::EuropeanUnionAustria, '#area_code' do
+  it 'returns EU[AT] as the area code' do
+    expect(Sapor::EuropeanUnionAustria.instance.area_code).to eq('EU[AT]')
+  end
+end
+
+describe Sapor::EuropeanUnionAustria, '#no_of_seats' do
+  it 'returns 18 as the number of seats' do
+    expect(Sapor::EuropeanUnionAustria.instance.no_of_seats).to eq(18)
+  end
+end
+
+describe Sapor::EuropeanUnionAustria, '#population_size' do
+  it 'returns a population size of 3,834,656' do
+    expect(Sapor::EuropeanUnionAustria.instance.population_size).to \
+      eq(3_834_656)
+  end
+end
+
+describe Sapor::EuropeanUnionAustria, '#seats' do
+  it 'calculates the number of seats for the election of 2019' do
+    results = { 'Österreichische Volkspartei (EPP)' => 1_305_956,
+                'Sozialdemokratische Partei Österreichs (S&D)' => 903_151,
+                'Freiheitliche Partei Österreichs (ENF)' => 650_114,
+                'Die Grünen–Die Grüne Alternative (Greens/EFA)' => 532_193,
+                'NEOS–Das Neue Österreich und Liberales Forum (ALDE)' => \
+                  319_024,
+                'EUROPA JETZT (*)' => 39_087,
+                'Kommunistische Partei Österreichs (*)' => 30_087 }
+    seats = Sapor::EuropeanUnionAustria.instance.seats(results)
+    expect(seats['Österreichische Volkspartei (EPP)']).to eq(7)
+    expect(seats['Sozialdemokratische Partei Österreichs (S&D)']).to eq(5)
+    expect(seats['Freiheitliche Partei Österreichs (ENF)']).to eq(3)
+    expect(seats['Die Grünen–Die Grüne Alternative (Greens/EFA)']).to eq(2)
+    expect(seats['NEOS–Das Neue Österreich und Liberales Forum (ALDE)']).to \
+      eq(1)
+    expect(seats['EUROPA JETZT (*)']).to eq(0)
+    expect(seats['Kommunistische Partei Österreichs (*)']).to eq(0)
+  end
+end

data/spec/unit/european_union_bulgaria_spec.rb

@@ -0,0 +1,97 @@
+# 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::EuropeanUnionBulgaria, '#area_code' do
+  it 'returns EU[BG] as the area code' do
+    expect(Sapor::EuropeanUnionBulgaria.instance.area_code).to eq('EU[BG]')
+  end
+end
+
+describe Sapor::EuropeanUnionBulgaria, '#no_of_seats' do
+  it 'returns 17 as the number of seats' do
+    expect(Sapor::EuropeanUnionBulgaria.instance.no_of_seats).to eq(17)
+  end
+end
+
+describe Sapor::EuropeanUnionBulgaria, '#population_size' do
+  it 'returns a population size of 2,015,320' do
+    expect(Sapor::EuropeanUnionBulgaria.instance.population_size).to \
+      eq(2_015_320)
+  end
+end
+
+describe Sapor::EuropeanUnionBulgaria, '#seats' do
+  it 'calculates the number of seats for the election of 2014' do
+    results = { 'Граждани за европейско развитие на България (EPP)' => 680_838,
+                'КОАЛИЦИЯ ЗА БЪЛГАРИЯ (S&D)' => 424_037,
+                'Движение за права и свободи (ALDE)' => 386_725,
+                'БЪЛГАРИЯ БЕЗ ЦЕНЗУРА, ВМРО, ЗНС, ГЕРГЬОВДЕН (ECR)' => 238_629,
+                'РЕФОРМАТОРСКИ БЛОК (EPP)' => 144_532,
+                'АЛТЕРНАТИВА ЗА БЪЛГАРСКО ВЪЗРАЖДАНЕ (—)' => 90_061,
+                'НАЦИОНАЛЕН ФРОНТ ЗА СПАСЕНИЕ НА БЪЛГАРИЯ (EFDD)' => 68_376,
+                'АТАКА (—)' => 66_210,
+                'ГЛАС НАРОДЕН (—)' => 22_440,
+                'Коалиция КОД–Антония Първанова, Илиана Раева–ОБ, НДСВ, СДП' \
+                  ' (—)' => 20_487,
+                'ЗЕЛЕНИТЕ (—)' => 12_547,
+                'БЪЛГАРСКАТА ЛЕВИЦА (—)' => 11_014,
+                'СИНЬО ЕДИНСТВО (—)' => 10_786,
+                'БКП (—)' => 9_318,
+                'ЗЕЛЕНА ПАРТИЯ (—)' => 7_989,
+                'Инициативен комитет–Виктор Тенчев Папазов (—)' => 7_652,
+                'Инициативен комитет–Румяна Вълчева Угърчинска-Винсенти (—)' \
+                  => 7_373,
+                'БАСТА (—)' => 7_330,
+                'Инициативен комитет–Евгения Златева Банева (—)' => 6_188,
+                'ПАРТИЯ НА ЗЕЛЕНИТЕ (—)' => 5_218,
+                'СЪЮЗ НА КОМУНИСТИТЕ В БЪЛГАРИЯ (—)' => 3_217,
+                'БЪЛГАРСКА НАЦИОНАЛНО-ПАТРИОТИЧНА ПАРТИЯ (—)' => 3_000,
+                'Християндемократическа партия на България (—)' => 2_964,
+                'Коалиция НАЦИОНАЛИСТИЧЕСКИ ПАРТИИ НА БЪЛГАРИЯ (—)' => 2_499 }
+    seats = Sapor::EuropeanUnionBulgaria.instance.seats(results)
+    expect(seats['Граждани за европейско развитие на България (EPP)']).to eq(6)
+    expect(seats['КОАЛИЦИЯ ЗА БЪЛГАРИЯ (S&D)']).to eq(4)
+    expect(seats['Движение за права и свободи (ALDE)']).to eq(4)
+    expect(seats['БЪЛГАРИЯ БЕЗ ЦЕНЗУРА, ВМРО, ЗНС, ГЕРГЬОВДЕН (ECR)']).to eq(2)
+    expect(seats['РЕФОРМАТОРСКИ БЛОК (EPP)']).to eq(1)
+    expect(seats['АЛТЕРНАТИВА ЗА БЪЛГАРСКО ВЪЗРАЖДАНЕ (—)']).to eq(0)
+    expect(seats['НАЦИОНАЛЕН ФРОНТ ЗА СПАСЕНИЕ НА БЪЛГАРИЯ (EFDD)']).to eq(0)
+    expect(seats['АТАКА (—)']).to eq(0)
+    expect(seats['ГЛАС НАРОДЕН (—)']).to eq(0)
+    expect(seats['Коалиция КОД–Антония Първанова, Илиана Раева–ОБ, НДСВ, СДП' \
+                 ' (—)']).to eq(0)
+    expect(seats['ЗЕЛЕНИТЕ (—)']).to eq(0)
+    expect(seats['БЪЛГАРСКАТА ЛЕВИЦА (—)']).to eq(0)
+    expect(seats['СИНЬО ЕДИНСТВО (—)']).to eq(0)
+    expect(seats['БКП (—)']).to eq(0)
+    expect(seats['ЗЕЛЕНА ПАРТИЯ (—)']).to eq(0)
+    expect(seats['Инициативен комитет–Виктор Тенчев Папазов (—)']).to eq(0)
+    expect(seats['Инициативен комитет–Румяна Вълчева Угърчинска-Винсенти' \
+                 ' (—)']).to eq(0)
+    expect(seats['БАСТА (—)']).to eq(0)
+    expect(seats['Инициативен комитет–Евгения Златева Банева (—)']).to eq(0)
+    expect(seats['ПАРТИЯ НА ЗЕЛЕНИТЕ (—)']).to eq(0)
+    expect(seats['СЪЮЗ НА КОМУНИСТИТЕ В БЪЛГАРИЯ (—)']).to eq(0)
+    expect(seats['БЪЛГАРСКА НАЦИОНАЛНО-ПАТРИОТИЧНА ПАРТИЯ (—)']).to eq(0)
+    expect(seats['Християндемократическа партия на България (—)']).to eq(0)
+    expect(seats['Коалиция НАЦИОНАЛИСТИЧЕСКИ ПАРТИИ НА БЪЛГАРИЯ (—)']).to eq(0)
+  end
+end

data/spec/unit/european_union_croatia_spec.rb

@@ -0,0 +1,59 @@
+# 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::EuropeanUnionCroatia, '#area_code' do
+  it 'returns EU[HR] as the area code' do
+    expect(Sapor::EuropeanUnionCroatia.instance.area_code).to eq('EU[HR]')
+  end
+end
+
+describe Sapor::EuropeanUnionCroatia, '#no_of_seats' do
+  it 'returns 11 as the number of seats' do
+    expect(Sapor::EuropeanUnionCroatia.instance.no_of_seats).to eq(11)
+  end
+end
+
+describe Sapor::EuropeanUnionCroatia, '#population_size' do
+  it 'returns a population size of 1,073,954' do
+    expect(Sapor::EuropeanUnionCroatia.instance.population_size).to \
+      eq(1_073_954)
+  end
+end
+
+describe Sapor::EuropeanUnionCroatia, '#seats' do
+  it 'calculates the number of seats for the election of 2014' do
+    results = { 'HDZ-ova koalicija (EPP)' => 381_844,
+                'Kukuriku koalicija (S&D)' => 275_904,
+                'Održivi razvoj Hrvatske (—)' => 86_806,
+                'Savez za Hrvatsku (—)' => 63_437,
+                'Hrvatski laburisti–Stranka rada (GUE/NGL)' => 31_363,
+                'Partnership of Croatian Center (—)' => 22_098,
+                'Others (—)' => 60_452 }
+    seats = Sapor::EuropeanUnionCroatia.instance.seats(results)
+    expect(seats['HDZ-ova koalicija (EPP)']).to eq(6)
+    expect(seats['Kukuriku koalicija (S&D)']).to eq(4)
+    expect(seats['Održivi razvoj Hrvatske (—)']).to eq(1)
+    expect(seats['Savez za Hrvatsku (—)']).to eq(0)
+    expect(seats['Hrvatski laburisti–Stranka rada (GUE/NGL)']).to eq(0)
+    expect(seats['Partnership of Croatian Center (—)']).to eq(0)
+    expect(seats['Others (—)']).to eq(0)
+  end
+end

data/spec/unit/european_union_cyprus_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::EuropeanUnionCyprus, '#area_code' do
+  it 'returns EU[CY] as the area code' do
+    expect(Sapor::EuropeanUnionCyprus.instance.area_code).to eq('EU[CY]')
+  end
+end
+
+describe Sapor::EuropeanUnionCyprus, '#no_of_seats' do
+  it 'returns 6 as the number of seats' do
+    expect(Sapor::EuropeanUnionCyprus.instance.no_of_seats).to eq(6)
+  end
+end
+
+describe Sapor::EuropeanUnionCyprus, '#population_size' do
+  it 'returns a population size of 258,914' do
+    expect(Sapor::EuropeanUnionCyprus.instance.population_size).to \
+      eq(258_914)
+  end
+end
+
+describe Sapor::EuropeanUnionCyprus, '#seats' do
+  it 'calculates the number of seats for the election of 2014' do
+    results = { 'Δημοκρατικός Συναγερμός (EPP)' => 97_732,
+                'Ανορθωτικό Κόμμα Εργαζόμενου Λαού (GUE/NGL)' => 69_852,
+                'Δημοκρατικό Κόμμα (S&D)' => 28_044,
+                'Κίνημα Σοσιαλδημοκρατών–Κίνημα Οικολόγων Περιβαλλοντιστών' \
+                  ' (S&D)' => 19_894,
+                'Συμμαχία Πολιτών (ALDE)' => 17_549,
+                'Μήνυμα Ελπίδας (*)' => 9_907,
+                'Εθνικό Λαϊκό Μέτωπο (*)' => 6_957,
+                'Κόμμα για τα ζώα Κύπρου (*)' => 2_288,
+                'Δικοινοτική Ριζοσπαστική Αριστερή Συνεργασία (*)' => 2_220 }
+    seats = Sapor::EuropeanUnionCyprus.instance.seats(results)
+    expect(seats['Δημοκρατικός Συναγερμός (EPP)']).to eq(2)
+    expect(seats['Ανορθωτικό Κόμμα Εργαζόμενου Λαού (GUE/NGL)']).to eq(2)
+    expect(seats['Δημοκρατικό Κόμμα (S&D)']).to eq(1)
+    expect(seats['Κίνημα Σοσιαλδημοκρατών–Κίνημα Οικολόγων Περιβαλλοντιστών' \
+                   ' (S&D)']).to eq(1)
+    expect(seats['Συμμαχία Πολιτών (ALDE)']).to eq(0)
+    expect(seats['Μήνυμα Ελπίδας (*)']).to eq(0)
+    expect(seats['Εθνικό Λαϊκό Μέτωπο (*)']).to eq(0)
+    expect(seats['Κόμμα για τα ζώα Κύπρου (*)']).to eq(0)
+    expect(seats['Δικοινοτική Ριζοσπαστική Αριστερή Συνεργασία (*)']).to eq(0)
+  end
+end

data/spec/unit/european_union_czech_republic_spec.rb

@@ -0,0 +1,125 @@
+# 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::EuropeanUnionCzechRepublic, '#area_code' do
+  it 'returns EU[CZ] as the area code' do
+    expect(Sapor::EuropeanUnionCzechRepublic.instance.area_code).to eq('EU[CZ]')
+  end
+end
+
+describe Sapor::EuropeanUnionCzechRepublic, '#no_of_seats' do
+  it 'returns 21 as the number of seats' do
+    expect(Sapor::EuropeanUnionCzechRepublic.instance.no_of_seats).to eq(21)
+  end
+end
+
+describe Sapor::EuropeanUnionCzechRepublic, '#population_size' do
+  it 'returns a population size of 1,007,398' do
+    expect(Sapor::EuropeanUnionCzechRepublic.instance.population_size).to \
+      eq(1_007_398)
+  end
+end
+
+describe Sapor::EuropeanUnionCzechRepublic, '#seats' do
+  it 'calculates the number of seats for the election of 2014' do
+    results = { 'ANO 2011 (ALDE)' => 244_501,
+                'Koalice TOP 09 a STAN (EPP)' => 241_747,
+                'Česká strana sociálně demokratická (S&D)' => 214_800,
+                'Komunistická strana Čech a Moravy (GUE/NGL)' => 166_478,
+                'Křesťanská a demokratická unie–Československá strana lidová' \
+                  ' (EPP)' => 150_792,
+                'Občanská demokratická strana (ECR)' => 116_389,
+                'Strana svobodných občanů (EFDD)' => 79_540,
+                'Česká pirátská strana (*)' => 72_514,
+                'Strana zelených (Greens/EFA)' => 57_240,
+                'Úsvit přímé demokracie Tomia Okamury (—)' => 47_306,
+                'Strana zdravého rozumu–NECHCEME EURO–za Evropu svobodných' \
+                  ' států (—)' => 24_724,
+                'Komunistická strana Československa (—)' => 8_549,
+                'Volte Pravý Blok www.cibulka.net (—)' => 8_028,
+                'SNK Evropští demokraté (—)' => 7_961,
+                'Koalice DSSS a SPE (—)' => 7_902,
+                'Liberálně ekologická strana (—)' => 7_514,
+                'NE Bruselu–Národní demokracie (—)' => 7_109,
+                'LEV 21–Národní socialisté (—)' => 7_099,
+                'Věci veřejné (—)' => 6_988,
+                'Moravané (Greens/EFA)' => 6_614,
+                'VIZE 2014 (—)' => 3_698,
+                'Občanská konzervativní strana (—)' => 3_481,
+                'Koalice SP a NO! (—)' => 2_899,
+                'Česká strana regionů (—)' => 2_535,
+                'Koruna Česká (monarch.strana) (—)' => 2_434,
+                'Klub angažovaných nestraníků (—)' => 2_379,
+                'Republika (—)' => 2_240,
+                'Česká Suverenita (—)' => 2_086,
+                'HNUTÍ SOCIÁLNĚ SLABÝCH (—)' => 1_685,
+                'OBČANÉ 2011 (—)' => 1_299,
+                'Aktiv nezávislých občanů (—)' => 1_242,
+                'Romská demokratická strana (—)' => 1_185,
+                'REPUBL.STR.ČECH,MORAVY A SLEZ. (—)' => 1_100,
+                'Fair play–HNPD (—)' => 900,
+                'ANTIBURSÍK–STOP EKOTERORU! (—)' => 761,
+                'evropani.cz (—)' => 631,
+                '“Strana rovných příležitostí” (—)' => 640,
+                'Česká strana národně sociální (—)' => 502 }
+    seats = Sapor::EuropeanUnionCzechRepublic.instance.seats(results)
+    expect(seats['ANO 2011 (ALDE)']).to eq(4)
+    expect(seats['Koalice TOP 09 a STAN (EPP)']).to eq(4)
+    expect(seats['Česká strana sociálně demokratická (S&D)']).to eq(4)
+    expect(seats['Komunistická strana Čech a Moravy (GUE/NGL)']).to eq(3)
+    expect(seats['Křesťanská a demokratická unie–Československá strana lidová' \
+                   ' (EPP)']).to eq(3)
+    expect(seats['Občanská demokratická strana (ECR)']).to eq(2)
+    expect(seats['Strana svobodných občanů (EFDD)']).to eq(1)
+    expect(seats['Česká pirátská strana (*)']).to eq(0)
+    expect(seats['Strana zelených (Greens/EFA)']).to eq(0)
+    expect(seats['Úsvit přímé demokracie Tomia Okamury (—)']).to eq(0)
+    expect(seats['Strana zdravého rozumu–NECHCEME EURO–za Evropu svobodných' \
+                   ' států (—)']).to eq(0)
+    expect(seats['Komunistická strana Československa (—)']).to eq(0)
+    expect(seats['Volte Pravý Blok www.cibulka.net (—)']).to eq(0)
+    expect(seats['SNK Evropští demokraté (—)']).to eq(0)
+    expect(seats['Koalice DSSS a SPE (—)']).to eq(0)
+    expect(seats['Liberálně ekologická strana (—)']).to eq(0)
+    expect(seats['NE Bruselu–Národní demokracie (—)']).to eq(0)
+    expect(seats['LEV 21–Národní socialisté (—)']).to eq(0)
+    expect(seats['Věci veřejné (—)']).to eq(0)
+    expect(seats['Moravané (Greens/EFA)']).to eq(0)
+    expect(seats['VIZE 2014 (—)']).to eq(0)
+    expect(seats['Občanská konzervativní strana (—)']).to eq(0)
+    expect(seats['Koalice SP a NO! (—)']).to eq(0)
+    expect(seats['Česká strana regionů (—)']).to eq(0)
+    expect(seats['Koruna Česká (monarch.strana) (—)']).to eq(0)
+    expect(seats['Klub angažovaných nestraníků (—)']).to eq(0)
+    expect(seats['Republika (—)']).to eq(0)
+    expect(seats['Česká Suverenita (—)']).to eq(0)
+    expect(seats['HNUTÍ SOCIÁLNĚ SLABÝCH (—)']).to eq(0)
+    expect(seats['OBČANÉ 2011 (—)']).to eq(0)
+    expect(seats['Aktiv nezávislých občanů (—)']).to eq(0)
+    expect(seats['Romská demokratická strana (—)']).to eq(0)
+    expect(seats['REPUBL.STR.ČECH,MORAVY A SLEZ. (—)']).to eq(0)
+    expect(seats['Fair play–HNPD (—)']).to eq(0)
+    expect(seats['ANTIBURSÍK–STOP EKOTERORU! (—)']).to eq(0)
+    expect(seats['evropani.cz (—)']).to eq(0)
+    expect(seats['“Strana rovných příležitostí” (—)']).to eq(0)
+    expect(seats['Česká strana národně sociální (—)']).to eq(0)
+  end
+end

data/spec/unit/european_union_denmark_spec.rb

@@ -0,0 +1,61 @@
+# 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::EuropeanUnionDenmark, '#area_code' do
+  it 'returns EU[DK] as the area code' do
+    expect(Sapor::EuropeanUnionDenmark.instance.area_code).to eq('EU[DK]')
+  end
+end
+
+describe Sapor::EuropeanUnionDenmark, '#no_of_seats' do
+  it 'returns 13 as the number of seats' do
+    expect(Sapor::EuropeanUnionDenmark.instance.no_of_seats).to eq(13)
+  end
+end
+
+describe Sapor::EuropeanUnionDenmark, '#population_size' do
+  it 'returns a population size of 2,800,029' do
+    expect(Sapor::EuropeanUnionDenmark.instance.population_size).to \
+      eq(2_800_029)
+  end
+end
+
+describe Sapor::EuropeanUnionDenmark, '#seats' do
+  it 'calculates the number of seats for the election of 2014' do
+    results = { 'Dansk Folkeparti (EFDD)' => 605_766,
+                'Socialdemokraterne (S&D)' => 434_894,
+                'Venstre (ALDE)' => 378_772,
+                'Socialistisk Folkeparti (Greens/EFA)' => 248_244,
+                'Det Konservative Folkeparti (EPP)' => 208_067,
+                'Folkebevægelsen mod EU (GUE/NGL)' => 183_493,
+                'Radikale Venstre (ALDE)' => 148_006,
+                'Liberal Alliance (ALDE)' => 65_776 }
+    seats = Sapor::EuropeanUnionDenmark.instance.seats(results)
+    expect(seats['Dansk Folkeparti (EFDD)']).to eq(4)
+    expect(seats['Socialdemokraterne (S&D)']).to eq(3)
+    expect(seats['Venstre (ALDE)']).to eq(2)
+    expect(seats['Socialistisk Folkeparti (Greens/EFA)']).to eq(1)
+    expect(seats['Det Konservative Folkeparti (EPP)']).to eq(1)
+    expect(seats['Folkebevægelsen mod EU (GUE/NGL)']).to eq(1)
+    expect(seats['Radikale Venstre (ALDE)']).to eq(1)
+    expect(seats['Liberal Alliance (ALDE)']).to eq(0)
+  end
+end

data/spec/unit/european_union_estonia_spec.rb

@@ -0,0 +1,93 @@
+# 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::EuropeanUnionEstonia, '#area_code' do
+  it 'returns EU[EE] as the area code' do
+    expect(Sapor::EuropeanUnionEstonia.instance.area_code).to eq('EU[EE]')
+  end
+end
+
+describe Sapor::EuropeanUnionEstonia, '#no_of_seats' do
+  it 'returns 6 as the number of seats' do
+    expect(Sapor::EuropeanUnionEstonia.instance.no_of_seats).to eq(6)
+  end
+end
+
+describe Sapor::EuropeanUnionEstonia, '#population_size' do
+  it 'returns a population size of 332,859' do
+    expect(Sapor::EuropeanUnionEstonia.instance.population_size).to \
+      eq(332_859)
+  end
+end
+
+describe Sapor::EuropeanUnionEstonia, '#seats' do
+  it 'calculates the number of seats for the election of 2014' do
+    results = { 'Eesti Reformierakond (ALDE)' => 79_849,
+                'Eesti Keskerakond (ALDE)' => 73_419,
+                'Isamaa ja Res Publica Liit (EPP)' => 45_765,
+                'Sotsiaaldemokraatlik Erakond (S&D)' => 44_550,
+                'INDREK TARAND (Greens/EFA)' => 43_369,
+                'Eesti Konservatiivne Rahvaerakond (NI)' => 13_247,
+                'TANEL TALVE (*)' => 10_073,
+                'SILVER MEIKAR (*)' => 6018,
+                'Eesti Iseseisvuspartei (*)' => 4158,
+                'KRISTIINA OJULAND (*)' => 3024,
+                'KRISTA MULENOK (*)' => 1266,
+                'Erakond Eestimaa Rohelised (Greens/EFA)' => 986,
+                'RENE KUULMANN (*)' => 632,
+                'JEVGENI KRIŠTAFOVITŠ (*)' => 594,
+                'IMRE MÜRK (*)' => 330,
+                'OLGA SÕTNIK (*)' => 328,
+                'Eestimaa Ühendatud Vasakpartei (*)' => 226,
+                'SVETLANA IVNITSKAJA (*)' => 167,
+                'TAIRA AASA (*)' => 126,
+                'ROMAN UBAKIVI (*)' => 96,
+                'DMITRI SILBER (*)' => 	86,
+                'ANDRES INN (*)' => 72,
+                'LANCE GARETH EDWARD BOXALL (*)' => 64,
+                'JOERI WIERSMA (*)' => 48 }
+    seats = Sapor::EuropeanUnionEstonia.instance.seats(results)
+    expect(seats['Eesti Reformierakond (ALDE)']).to eq(2)
+    expect(seats['Eesti Keskerakond (ALDE)']).to eq(1)
+    expect(seats['Isamaa ja Res Publica Liit (EPP)']).to eq(1)
+    expect(seats['Sotsiaaldemokraatlik Erakond (S&D)']).to eq(1)
+    expect(seats['INDREK TARAND (Greens/EFA)']).to eq(1)
+    expect(seats['Eesti Konservatiivne Rahvaerakond (NI)']).to eq(0)
+    expect(seats['TANEL TALVE (*)']).to eq(0)
+    expect(seats['SILVER MEIKAR (*)']).to eq(0)
+    expect(seats['Eesti Iseseisvuspartei (*)']).to eq(0)
+    expect(seats['KRISTIINA OJULAND (*)']).to eq(0)
+    expect(seats['KRISTA MULENOK (*)']).to eq(0)
+    expect(seats['Erakond Eestimaa Rohelised (Greens/EFA)']).to eq(0)
+    expect(seats['RENE KUULMANN (*)']).to eq(0)
+    expect(seats['JEVGENI KRIŠTAFOVITŠ (*)']).to eq(0)
+    expect(seats['IMRE MÜRK (*)']).to eq(0)
+    expect(seats['OLGA SÕTNIK (*)']).to eq(0)
+    expect(seats['Eestimaa Ühendatud Vasakpartei (*)']).to eq(0)
+    expect(seats['SVETLANA IVNITSKAJA (*)']).to eq(0)
+    expect(seats['TAIRA AASA (*)']).to eq(0)
+    expect(seats['ROMAN UBAKIVI (*)']).to eq(0)
+    expect(seats['DMITRI SILBER (*)']).to eq(0)
+    expect(seats['ANDRES INN (*)']).to eq(0)
+    expect(seats['LANCE GARETH EDWARD BOXALL (*)']).to eq(0)
+    expect(seats['JOERI WIERSMA (*)']).to eq(0)
+  end
+end

data/spec/unit/european_union_finland_spec.rb

@@ -0,0 +1,75 @@
+# 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::EuropeanUnionFinland, '#area_code' do
+  it 'returns EU[FI] as the area code' do
+    expect(Sapor::EuropeanUnionFinland.instance.area_code).to eq('EU[FI]')
+  end
+end
+
+describe Sapor::EuropeanUnionFinland, '#no_of_seats' do
+  it 'returns 13 as the number of seats' do
+    expect(Sapor::EuropeanUnionFinland.instance.no_of_seats).to eq(13)
+  end
+end
+
+describe Sapor::EuropeanUnionFinland, '#population_size' do
+  it 'returns a population size of 1,830,045' do
+    expect(Sapor::EuropeanUnionFinland.instance.population_size).to \
+      eq(1_830_045)
+  end
+end
+
+describe Sapor::EuropeanUnionFinland, '#seats' do
+  it 'calculates the number of seats using the votes of the 2014 election' do
+    results = { 'Kansallinen Kokoomus (EPP)' => 390_376,
+                'Suomen Keskusta (ALDE)' => 339_895,
+                'Perussuomalaiset (EFDD)' => 222_457,
+                'Suomen Sosialidemokraattinen Puolue (S&D)' => 212_781,
+                'Vihreä liitto (Greens/EFA)' => 161_263,
+                'Vasemmistoliitto (GUE/NGL)' => 161_074,
+                'Svenska folkpartiet i Finland (ALDE)' => 116_747,
+                'Kristillisdemokraatit (EPP)' => 90_586,
+                'Piraattipuolue (Greens/EFA)' => 12_378,
+                'Suomen Kommunistinen Puolue (GUE/NGL)' => 5_932,
+                'Itsenäisyyspuolue (—)' => 5_668,
+                'Muutos 2011 (—)' => 4_768,
+                'Köyhien Asialla (—)' => 2_667,
+                'Sinivalkoinen Rintama (—)' => 1_176,
+                'Kristiina Ilmarinen (—)' => 526 }
+    seats = Sapor::EuropeanUnionFinland.instance.seats(results)
+    expect(seats['Kansallinen Kokoomus (EPP)']).to eq(3)
+    expect(seats['Suomen Keskusta (ALDE)']).to eq(3)
+    expect(seats['Perussuomalaiset (EFDD)']).to eq(2)
+    expect(seats['Suomen Sosialidemokraattinen Puolue (S&D)']).to eq(2)
+    expect(seats['Vihreä liitto (Greens/EFA)']).to eq(1)
+    expect(seats['Vasemmistoliitto (GUE/NGL)']).to eq(1)
+    expect(seats['Svenska folkpartiet i Finland (ALDE)']).to eq(1)
+    expect(seats['Kristillisdemokraatit (EPP)']).to eq(0)
+    expect(seats['Piraattipuolue (Greens/EFA)']).to eq(0)
+    expect(seats['Suomen Kommunistinen Puolue (GUE/NGL)']).to eq(0)
+    expect(seats['Itsenäisyyspuolue (—)']).to eq(0)
+    expect(seats['Muutos 2011 (—)']).to eq(0)
+    expect(seats['Köyhien Asialla (—)']).to eq(0)
+    expect(seats['Sinivalkoinen Rintama (—)']).to eq(0)
+    expect(seats['Kristiina Ilmarinen (—)']).to eq(0)
+  end
+end