evosynth 0.1.0

data/test/operators/selections/tc_best_selection.rb

@@ -0,0 +1,85 @@
+#	Copyright (c) 2009, 2010 Yves Adler <yves.adler@googlemail.com>
+#
+#	Permission is hereby granted, free of charge, to any person
+#	obtaining a copy of this software and associated documentation
+#	files (the "Software"), to deal in the Software without
+#	restriction, including without limitation the rights to use,
+#	copy, modify, merge, publish, distribute, sublicense, and/or sell
+#	copies of the Software, and to permit persons to whom the
+#	Software is furnished to do so, subject to the following
+#	conditions:
+#
+#	The above copyright notice and this permission notice shall be
+#	included in all copies or substantial portions of the Software.
+#
+#	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+#	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+#	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+#	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+#	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+#	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+#	OTHER DEALINGS IN THE SOFTWARE.
+
+
+require 'shoulda'
+
+require 'evosynth'
+require 'test/test_util/test_helper'
+
+
+class SelectBestTest < Test::Unit::TestCase
+
+	context "when run on a population of minimizing individuals " do
+
+		should "select the two individuals with the lowest fitness values" do
+			population = EvoSynth::Population.new
+			individual1 = TestMinimizingIndividual.new(1)
+			individual2 = TestMinimizingIndividual.new(2)
+			individual3 = TestMinimizingIndividual.new(3)
+			individual4 = TestMinimizingIndividual.new(5)
+			individual5 = TestMinimizingIndividual.new(20)
+			population.add(individual1)
+			population.add(individual2)
+			population.add(individual3)
+			population.add(individual4)
+			population.add(individual5)
+
+			expected = EvoSynth::Population.new
+			expected.add(individual1)
+			expected.add(individual2)
+
+			select_best = EvoSynth::Selections::SelectBest.new
+			result = select_best.select(population, 2)
+			assert_equal expected, result
+		end
+
+	end
+
+	context "when run on a population of maximizing individuals " do
+
+		should "select the two individuals with the highest fitness values" do
+			population = EvoSynth::Population.new
+			individual1 = TestMaximizingIndividual.new(1)
+			individual2 = TestMaximizingIndividual.new(2)
+			individual3 = TestMaximizingIndividual.new(3)
+			individual4 = TestMaximizingIndividual.new(5)
+			individual5 = TestMaximizingIndividual.new(20)
+			population.add(individual1)
+			population.add(individual2)
+			population.add(individual3)
+			population.add(individual4)
+			population.add(individual5)
+
+			expected = EvoSynth::Population.new
+			expected.add(individual5)
+			expected.add(individual4)
+
+			select_best = EvoSynth::Selections::SelectBest.new
+			result = select_best.select(population, 2)
+			assert_equal expected, result
+		end
+
+	end
+
+end

data/test/operators/selections/tc_fitness_proportional_selection.rb

@@ -0,0 +1,78 @@
+#	Copyright (c) 2009, 2010 Yves Adler <yves.adler@googlemail.com>
+#
+#	Permission is hereby granted, free of charge, to any person
+#	obtaining a copy of this software and associated documentation
+#	files (the "Software"), to deal in the Software without
+#	restriction, including without limitation the rights to use,
+#	copy, modify, merge, publish, distribute, sublicense, and/or sell
+#	copies of the Software, and to permit persons to whom the
+#	Software is furnished to do so, subject to the following
+#	conditions:
+#
+#	The above copyright notice and this permission notice shall be
+#	included in all copies or substantial portions of the Software.
+#
+#	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+#	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+#	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+#	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+#	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+#	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+#	OTHER DEALINGS IN THE SOFTWARE.
+
+
+require 'shoulda'
+
+require 'evosynth'
+require 'test/test_util/test_helper'
+
+
+class FitnessProportionalSelectionTest < Test::Unit::TestCase
+
+	INDIVIDUALS = 100
+	SELECT_N_TIMES = 100
+	MAX_VALUE = 1000000
+
+	context "when run on a population of minimizing individuals " do
+
+		should "select a super-individual" do
+			fitness_proportional_selection = EvoSynth::Selections::FitnessProportionalSelection.new
+			population = EvoSynth::Population.new
+			expected = EvoSynth::Population.new
+
+			(INDIVIDUALS - 1).times { population.add(TestMinimizingIndividual.new(MAX_VALUE)) }
+			population.add(TestMinimizingIndividual.new(1))
+
+			expected.add(TestMinimizingIndividual.new(1))
+
+			SELECT_N_TIMES.times do
+				result = fitness_proportional_selection.select(population, 1)
+				assert_equal expected, result
+			end
+		end
+
+	end
+
+	context "when run on a population of maximizing individuals " do
+
+		should "select a super-individual" do
+			fitness_proportional_selection = EvoSynth::Selections::FitnessProportionalSelection.new
+			population = EvoSynth::Population.new
+			expected = EvoSynth::Population.new
+
+			(INDIVIDUALS - 1).times { population.add(TestMaximizingIndividual.new(1)) }
+			population.add(TestMaximizingIndividual.new(MAX_VALUE))
+
+			expected.add(TestMaximizingIndividual.new(MAX_VALUE))
+
+			SELECT_N_TIMES.times do
+				result = fitness_proportional_selection.select(population, 1)
+				assert_equal expected, result
+			end
+		end
+
+	end
+
+
+end

data/test/operators/selections/tc_identity.rb

@@ -0,0 +1,91 @@
+#	Copyright (c) 2009, 2010 Yves Adler <yves.adler@googlemail.com>
+#
+#	Permission is hereby granted, free of charge, to any person
+#	obtaining a copy of this software and associated documentation
+#	files (the "Software"), to deal in the Software without
+#	restriction, including without limitation the rights to use,
+#	copy, modify, merge, publish, distribute, sublicense, and/or sell
+#	copies of the Software, and to permit persons to whom the
+#	Software is furnished to do so, subject to the following
+#	conditions:
+#
+#	The above copyright notice and this permission notice shall be
+#	included in all copies or substantial portions of the Software.
+#
+#	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+#	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+#	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+#	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+#	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+#	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+#	OTHER DEALINGS IN THE SOFTWARE.
+
+
+require 'shoulda'
+
+require 'evosynth'
+require 'test/test_util/test_helper'
+
+
+class IdentityTest < Test::Unit::TestCase
+
+	context "when run on a population of minimizing individuals " do
+
+		should "select as expected" do
+			population = EvoSynth::Population.new
+			individual1 = TestMinimizingIndividual.new(1)
+			individual2 = TestMinimizingIndividual.new(2)
+			individual3 = TestMinimizingIndividual.new(3)
+			individual4 = TestMinimizingIndividual.new(5)
+			individual5 = TestMinimizingIndividual.new(20)
+			population.add(individual1)
+			population.add(individual2)
+			population.add(individual3)
+			population.add(individual4)
+			population.add(individual5)
+
+			expected = EvoSynth::Population.new
+			expected.add(individual1)
+			expected.add(individual2)
+
+			identity = EvoSynth::Selections::Identity.new
+			result = identity.select(population, 2)
+			assert_equal expected, result
+		end
+
+	end
+
+	context "when run on a population of maximizing individuals " do
+
+		should "select as expected" do
+			population = EvoSynth::Population.new
+			individual1 = TestMaximizingIndividual.new(1)
+			individual2 = TestMaximizingIndividual.new(2)
+			individual3 = TestMaximizingIndividual.new(3)
+			individual4 = TestMaximizingIndividual.new(5)
+			individual5 = TestMaximizingIndividual.new(20)
+			population.add(individual1)
+			population.add(individual2)
+			population.add(individual3)
+			population.add(individual4)
+			population.add(individual5)
+
+			expected = EvoSynth::Population.new
+			expected.add(individual1)
+
+			identity = EvoSynth::Selections::Identity.new
+			result = identity.select(population)
+			assert_equal expected, result
+
+			expected.add(individual2)
+			expected.add(individual3)
+
+			identity = EvoSynth::Selections::Identity.new
+			result = identity.select(population, 3)
+			assert_equal expected, result
+		end
+
+	end
+
+end

data/test/operators/selections/tc_n_stage_tournament.rb

@@ -0,0 +1,78 @@
+#	Copyright (c) 2009, 2010 Yves Adler <yves.adler@googlemail.com>
+#
+#	Permission is hereby granted, free of charge, to any person
+#	obtaining a copy of this software and associated documentation
+#	files (the "Software"), to deal in the Software without
+#	restriction, including without limitation the rights to use,
+#	copy, modify, merge, publish, distribute, sublicense, and/or sell
+#	copies of the Software, and to permit persons to whom the
+#	Software is furnished to do so, subject to the following
+#	conditions:
+#
+#	The above copyright notice and this permission notice shall be
+#	included in all copies or substantial portions of the Software.
+#
+#	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+#	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+#	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+#	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+#	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+#	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+#	OTHER DEALINGS IN THE SOFTWARE.
+
+
+require 'shoulda'
+
+require 'evosynth'
+require 'test/test_util/test_helper'
+
+
+class NStageTournamentSelectionTest < Test::Unit::TestCase
+
+	INDIVIDUALS = 100
+	SELECT_N_TIMES = 100
+	MAX_VALUE = 1000000
+
+	context "when run on a population of minimizing individuals " do
+
+		should "select a super-individual" do
+			fitness_proportional_selection = EvoSynth::Selections::NStageTournamentSelection.new
+			population = EvoSynth::Population.new
+			expected = EvoSynth::Population.new
+
+			(INDIVIDUALS - 1).times { population.add(TestMinimizingIndividual.new(MAX_VALUE)) }
+			population.add(TestMinimizingIndividual.new(1))
+
+			expected.add(TestMinimizingIndividual.new(1))
+
+			SELECT_N_TIMES.times do
+				result = fitness_proportional_selection.select(population, 1)
+				assert_equal expected, result
+			end
+		end
+
+	end
+
+	context "when run on a population of maximizing individuals " do
+
+		should "select a super-individual" do
+			fitness_proportional_selection = EvoSynth::Selections::NStageTournamentSelection.new
+			population = EvoSynth::Population.new
+			expected = EvoSynth::Population.new
+
+			(INDIVIDUALS - 1).times { population.add(TestMaximizingIndividual.new(1)) }
+			population.add(TestMaximizingIndividual.new(MAX_VALUE))
+
+			expected.add(TestMaximizingIndividual.new(MAX_VALUE))
+
+			SELECT_N_TIMES.times do
+				result = fitness_proportional_selection.select(population, 1)
+				assert_equal expected, result
+			end
+		end
+
+	end
+
+
+end

data/test/operators/selections/tc_random_selection.rb

@@ -0,0 +1,70 @@
+#	Copyright (c) 2009, 2010 Yves Adler <yves.adler@googlemail.com>
+#
+#	Permission is hereby granted, free of charge, to any person
+#	obtaining a copy of this software and associated documentation
+#	files (the "Software"), to deal in the Software without
+#	restriction, including without limitation the rights to use,
+#	copy, modify, merge, publish, distribute, sublicense, and/or sell
+#	copies of the Software, and to permit persons to whom the
+#	Software is furnished to do so, subject to the following
+#	conditions:
+#
+#	The above copyright notice and this permission notice shall be
+#	included in all copies or substantial portions of the Software.
+#
+#	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+#	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+#	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+#	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+#	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+#	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+#	OTHER DEALINGS IN THE SOFTWARE.
+
+
+require 'shoulda'
+
+require 'evosynth'
+require 'test/test_util/test_helper'
+
+
+class SelectBestTest < Test::Unit::TestCase
+
+	TIMES = 1000
+	DELTA = 0.1
+
+	context "when run on a population of minimizing individuals " do
+
+		should "should select every individual as often as the others" do
+			population = EvoSynth::Population.new
+			individual1 = TestMinimizingIndividual.new(1)
+			individual2 = TestMinimizingIndividual.new(2)
+			individual3 = TestMinimizingIndividual.new(3)
+			population.add(individual1)
+			population.add(individual2)
+			population.add(individual3)
+
+			count_one, count_two, count_three = 0, 0, 0
+
+			TIMES.times do
+				select_best = EvoSynth::Selections::RandomSelection.new
+				result = select_best.select(population, 1)
+				result.each do |individual|
+					if individual == individual1
+						count_one += 1
+					elsif individual == individual2
+						count_two += 1
+					elsif individual == individual3
+						count_three += 1
+					end
+				end
+			end
+
+			assert_in_delta TIMES/3.0, count_one, TIMES/3.0 * DELTA
+			assert_in_delta TIMES/3.0, count_two, TIMES/3.0 * DELTA
+			assert_in_delta TIMES/3.0, count_three, TIMES/3.0 * DELTA
+		end
+
+	end
+
+end

data/test/operators/selections/tc_roulette_wheel_selection.rb

@@ -0,0 +1,78 @@
+#	Copyright (c) 2009, 2010 Yves Adler <yves.adler@googlemail.com>
+#
+#	Permission is hereby granted, free of charge, to any person
+#	obtaining a copy of this software and associated documentation
+#	files (the "Software"), to deal in the Software without
+#	restriction, including without limitation the rights to use,
+#	copy, modify, merge, publish, distribute, sublicense, and/or sell
+#	copies of the Software, and to permit persons to whom the
+#	Software is furnished to do so, subject to the following
+#	conditions:
+#
+#	The above copyright notice and this permission notice shall be
+#	included in all copies or substantial portions of the Software.
+#
+#	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#	EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+#	OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+#	NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+#	HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+#	WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+#	FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+#	OTHER DEALINGS IN THE SOFTWARE.
+
+
+require 'shoulda'
+
+require 'evosynth'
+require 'test/test_util/test_helper'
+
+
+class RouletteWheelSelectionTest < Test::Unit::TestCase
+
+	INDIVIDUALS = 100
+	SELECT_N_TIMES = 100
+	MAX_VALUE = 1000000
+
+	context "when run on a population of minimizing individuals " do
+
+		should "select a super-individual" do
+			fitness_proportional_selection = EvoSynth::Selections::RouletteWheelSelection.new
+			population = EvoSynth::Population.new
+			expected = EvoSynth::Population.new
+
+			(INDIVIDUALS - 1).times { population.add(TestMinimizingIndividual.new(MAX_VALUE)) }
+			population.add(TestMinimizingIndividual.new(1))
+
+			expected.add(TestMinimizingIndividual.new(1))
+
+			SELECT_N_TIMES.times do
+				result = fitness_proportional_selection.select(population, 1)
+				assert_equal expected, result
+			end
+		end
+
+	end
+
+	context "when run on a population of maximizing individuals " do
+
+		should "select a super-individual" do
+			fitness_proportional_selection = EvoSynth::Selections::RouletteWheelSelection.new
+			population = EvoSynth::Population.new
+			expected = EvoSynth::Population.new
+
+			(INDIVIDUALS - 1).times { population.add(TestMaximizingIndividual.new(1)) }
+			population.add(TestMaximizingIndividual.new(MAX_VALUE))
+
+			expected.add(TestMaximizingIndividual.new(MAX_VALUE))
+
+			SELECT_N_TIMES.times do
+				result = fitness_proportional_selection.select(population, 1)
+				assert_equal expected, result
+			end
+		end
+
+	end
+
+
+end