sapor 0.3.0

data/spec/unit/european_union_slovenia_spec.rb

@@ -0,0 +1,77 @@
+# 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::EuropeanUnionSlovenia, '#area_code' do
+  it 'returns EU[SI] as the area code' do
+    expect(Sapor::EuropeanUnionSlovenia.instance.area_code).to eq('EU[SI]')
+  end
+end
+
+describe Sapor::EuropeanUnionSlovenia, '#no_of_seats' do
+  it 'returns 8 as the number of seats' do
+    expect(Sapor::EuropeanUnionSlovenia.instance.no_of_seats).to eq(8)
+  end
+end
+
+describe Sapor::EuropeanUnionSlovenia, '#population_size' do
+  it 'returns a population size of 471,525' do
+    expect(Sapor::EuropeanUnionSlovenia.instance.population_size).to \
+      eq(471_525)
+  end
+end
+
+describe Sapor::EuropeanUnionSlovenia, '#seats' do
+  it 'calculates the number of seats for the election of 2014' do
+    results = { 'Kacin Konkretno (*)' => 19_659,
+                'Državljanska lista (ALDE)' => 4_570,
+                'Združena levica (GUE/NGL)' => 21_898,
+                'Slovenska nacionalna stranka (*)' => 16_166,
+                'Verjamem (Greens/EFA)' => 41_458,
+                'Nova Slovenija in Slovenska ljudska stranka (EPP)' => 66_114,
+                'Socialni demokrati (S&D)' => 32_330,
+                'Slovenska demokratska stranka (EPP)' => 99_206,
+                'Slovenski narod (*)' => 1_424,
+                'Piratska stranka Slovenije (Greens/EFA)' => 10_242,
+                'Solidarnost (*)' => 6_673,
+                'Zeleni Slovenije (*)' => 3_273,
+                'Demokratična stranka upokojencev Slovenije (ALDE)' => 32_604,
+                'Sanjska služba (*)' => 14_212,
+                'Pozitivna Slovenija (*)' => 26_510,
+                'Zares (*)' => 3_794 }
+    seats = Sapor::EuropeanUnionSlovenia.instance.seats(results)
+    expect(seats['Kacin Konkretno (*)']).to eq(0)
+    expect(seats['Državljanska lista (ALDE)']).to eq(0)
+    expect(seats['Združena levica (GUE/NGL)']).to eq(0)
+    expect(seats['Slovenska nacionalna stranka (*)']).to eq(0)
+    expect(seats['Verjamem (Greens/EFA)']).to eq(1)
+    expect(seats['Nova Slovenija in Slovenska ljudska stranka (EPP)']).to eq(2)
+    expect(seats['Socialni demokrati (S&D)']).to eq(1)
+    expect(seats['Slovenska demokratska stranka (EPP)']).to eq(3)
+    expect(seats['Slovenski narod (*)']).to eq(0)
+    expect(seats['Piratska stranka Slovenije (Greens/EFA)']).to eq(0)
+    expect(seats['Solidarnost (*)']).to eq(0)
+    expect(seats['Zeleni Slovenije (*)']).to eq(0)
+    expect(seats['Demokratična stranka upokojencev Slovenije (ALDE)']).to eq(1)
+    expect(seats['Sanjska služba (*)']).to eq(0)
+    expect(seats['Pozitivna Slovenija (*)']).to eq(0)
+    expect(seats['Zares (*)']).to eq(0)
+  end
+end

data/spec/unit/european_union_spain_spec.rb

@@ -0,0 +1,129 @@
+# 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::EuropeanUnionSpain, '#area_code' do
+  it 'returns EU[ES] as the area code' do
+    expect(Sapor::EuropeanUnionSpain.instance.area_code).to eq('EU[ES]')
+  end
+end
+
+describe Sapor::EuropeanUnionSpain, '#no_of_seats' do
+  it 'returns 54 as the number of seats' do
+    expect(Sapor::EuropeanUnionSpain.instance.no_of_seats).to eq(54)
+  end
+end
+
+describe Sapor::EuropeanUnionSpain, '#population_size' do
+  it 'returns a population size of 22,410,049' do
+    expect(Sapor::EuropeanUnionSpain.instance.population_size).to \
+      eq(22_410_049)
+  end
+end
+
+describe Sapor::EuropeanUnionSpain, '#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::EuropeanUnionSpain.instance.seats(results)
+    expect(seats['Partido Popular (EPP)']).to eq(16)
+    expect(seats['Partido Socialista Obrero Español (S&D)']).to eq(14)
+    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)
+    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_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::EuropeanUnionSweden, '#area_code' do
+  it 'returns EU[SE] as the area code' do
+    expect(Sapor::EuropeanUnionSweden.instance.area_code).to eq('EU[SE]')
+  end
+end
+
+describe Sapor::EuropeanUnionSweden, '#no_of_seats' do
+  it 'returns 20 as the number of seats' do
+    expect(Sapor::EuropeanUnionSweden.instance.no_of_seats).to eq(20)
+  end
+end
+
+describe Sapor::EuropeanUnionSweden, '#population_size' do
+  it 'returns a population size of 4,151,470' do
+    expect(Sapor::EuropeanUnionSweden.instance.population_size).to \
+      eq(4_151_470)
+  end
+end
+
+describe Sapor::EuropeanUnionSweden, '#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::EuropeanUnionSweden.instance.seats(results)
+    expect(seats['Sveriges socialdemokratiska arbetareparti (S&D)']).to eq(5)
+    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

data/spec/unit/finland_spec.rb

@@ -0,0 +1,65 @@
+#
+# 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::Finland, '#area_code' do
+  it 'returns FI as the area code' do
+    expect(Sapor::Finland.instance.area_code).to eq('FI')
+  end
+end
+
+describe Sapor::Finland, '#no_of_seats' do
+  it 'returns 200 as the number of seats' do
+    expect(Sapor::Finland.instance.no_of_seats).to eq(200)
+  end
+end
+
+describe Sapor::Finland, '#population_size' do
+  it 'returns a population size of 2,968,459' do
+    expect(Sapor::Finland.instance.population_size).to eq(2_968_459)
+  end
+end
+
+describe Sapor::Finland, '#seats' do
+  it 'calculates the number of seats for the election of 2015 adjusted for' \
+     ' the seat distribution for 2019' do
+    Finland = Sapor::Finland.instance
+    results = Finland.overall_election_results_of_2015
+    seats = Sapor::Finland.instance.seats(results)
+    expect(seats['Suomen Keskusta']).to eq(49 - 1)
+    expect(seats['Perussuomalaiset']).to eq(38)
+    expect(seats['Kansallinen Kokoomus']).to eq(37)
+    expect(seats['Suomen Sosialidemokraattinen Puolue']).to eq(34)
+    expect(seats['Vihreä liitto']).to eq(15 + 1)
+    expect(seats['Vasemmistoliitto']).to eq(12)
+    expect(seats['Svenska folkpartiet i Finland']).to eq(9)
+    expect(seats['Kristillisdemokraatit']).to eq(5)
+    expect(seats['Åländsk samling']).to eq(1)
+    expect(seats['Piraattipuolue']).to eq(0)
+    expect(seats['Itsenäisyyspuolue']).to eq(0)
+    expect(seats['Suomen Kommunistinen Puolue']).to eq(0)
+    expect(seats['Muutos 2011']).to eq(0)
+    expect(
+      seats['Kommunistinen Työväenpuolue–Rauhan ja Sosialismin puolesta']
+    ).to eq(0)
+    expect(seats['Suomen Työväenpuolue']).to eq(0)
+    expect(seats['Köyhien Asialla']).to eq(0)
+    expect(seats['Liberalerna på Åland']).to eq(0)
+  end
+end

data/spec/unit/finland_with_sin_spec.rb

@@ -0,0 +1,67 @@
+#
+# 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::FinlandWithSin, '#area_code' do
+  it 'returns FI∪{SIN} as the area code' do
+    expect(Sapor::FinlandWithSin.instance.area_code).to eq('FI∪{SIN}')
+  end
+end
+
+describe Sapor::FinlandWithSin, '#no_of_seats' do
+  it 'returns 200 as the number of seats' do
+    expect(Sapor::FinlandWithSin.instance.no_of_seats).to eq(200)
+  end
+end
+
+describe Sapor::FinlandWithSin, '#population_size' do
+  it 'returns a population size of 2,968,459' do
+    expect(Sapor::FinlandWithSin.instance.population_size).to eq(2_968_459)
+  end
+end
+
+describe Sapor::FinlandWithSin, '#seats' do
+  it 'calculates the number of seats for the election of 2015 adjusted for' \
+     ' the seat distribution for 2019 and with PS divided equally into PS' \
+     ' and SIN' do
+    FinlandWithSin = Sapor::FinlandWithSin.instance
+    results = FinlandWithSin.overall_election_results_of_2015
+    seats = Sapor::FinlandWithSin.instance.seats(results)
+    expect(seats['Suomen Keskusta']).to eq(49 - 1 + 1)
+    expect(seats['Perussuomalaiset']).to eq(38 - 22)
+    expect(seats['Sininen tulevaisuus']).to eq(0 + 15)
+    expect(seats['Kansallinen Kokoomus']).to eq(37 + 3)
+    expect(seats['Suomen Sosialidemokraattinen Puolue']).to eq(34 + 2)
+    expect(seats['Vihreä liitto']).to eq(15 + 1)
+    expect(seats['Vasemmistoliitto']).to eq(12)
+    expect(seats['Svenska folkpartiet i Finland']).to eq(9 + 1)
+    expect(seats['Kristillisdemokraatit']).to eq(5)
+    expect(seats['Åländsk samling']).to eq(1)
+    expect(seats['Piraattipuolue']).to eq(0)
+    expect(seats['Itsenäisyyspuolue']).to eq(0)
+    expect(seats['Suomen Kommunistinen Puolue']).to eq(0)
+    expect(seats['Muutos 2011']).to eq(0)
+    expect(
+      seats['Kommunistinen Työväenpuolue–Rauhan ja Sosialismin puolesta']
+    ).to eq(0)
+    expect(seats['Suomen Työväenpuolue']).to eq(0)
+    expect(seats['Köyhien Asialla']).to eq(0)
+    expect(seats['Liberalerna på Åland']).to eq(0)
+  end
+end

data/spec/unit/first_past_the_post_spec.rb

@@ -0,0 +1,54 @@
+# encoding: utf-8
+#
+# Statistical Analysis of Polling Results (SAPoR)
+# Copyright (C) 2016 Filip van Laenen <f.a.vanlaenen@ieee.org>
+#
+# This file is part of SAPoR.
+#
+# SAPoR is free software: you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation, either version 3 of the License, or (at your option) any later
+# version.
+#
+# SAPoR is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You can find a copy of the GNU General Public License in /doc/gpl.txt
+#
+
+require 'spec_helper'
+
+SAMPLE_RG_ELECTION_RESULT = { 'Red' => 91_811, 'Green' => 190_934 }.freeze
+
+SAMPLE_DETAILED_ELECTION_RESULT = { 'North' => { 'Red' => 50, 'Green' => 70 },
+                                    'South' => { 'Red' => 70, 'Green' => 50,
+                                                 'Blue' => 100 } }.freeze
+
+FPTP = Sapor::FirstPastThePost.new(SAMPLE_RG_ELECTION_RESULT,
+                                   SAMPLE_DETAILED_ELECTION_RESULT)
+
+describe Sapor::FirstPastThePost, '#project' do
+  it 'projects same result as last result if fed with last election result' do
+    projection = FPTP.project(SAMPLE_RG_ELECTION_RESULT)
+    expect(projection['Red']).to eq(0)
+    expect(projection['Green']).to eq(1)
+    expect(projection['Other']).to eq(1)
+  end
+
+  it 'it moves a seat to Red if Red is polling well enough' do
+    projection = FPTP.project('Red' => 91_811 * 70 / 49,
+                              'Green' => 190_934)
+    expect(projection['Red']).to eq(1)
+    expect(projection['Green']).to eq(0)
+    expect(projection['Other']).to eq(1)
+  end
+
+  it 'it moves a seat away from Other if Red is polling well enough' do
+    projection = FPTP.project('Red' => 91_811 * 101 / 70,
+                              'Green' => 190_934 * 70 / 101)
+    expect(projection['Red']).to eq(2)
+    expect(projection['Green']).to eq(0)
+    expect(projection['Other']).to eq(0)
+  end
+end