evosynth 0.1.0

data/test/operators/meta_operators/tc_conditional_combined_operator.rb

@@ -0,0 +1,66 @@
+#	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 ConditionalCombinedOperatorTest < Test::Unit::TestCase
+
+	GENOME_SIZE = 20
+	ITERATIONS = 1000
+	DELTA = 0.05
+
+	context "when run on binary genome (size=#{GENOME_SIZE}) without a mutation" do
+		setup do
+			@individual = "Start"
+			@operator = EvoSynth::MetaOperators::ConditionalCombinedOperator.new
+		end
+
+		should "raise a exception" do
+			assert_raise(RuntimeError) { @operator.mutate(@individual) }
+		end
+	end
+
+	context "when run on binary genome with probabilties both should be called as often as they should ;)" do
+		setup do
+			@foo = 0
+			@individual = "I "
+			@mutation_a = TestMutationA.new
+			@mutation_b = TestMutationB.new
+			@combinded_operator = EvoSynth::MetaOperators::ConditionalCombinedOperator.new
+			@combinded_operator.add(@mutation_a) { @foo > ITERATIONS/2 }
+			@combinded_operator.add(@mutation_b) { @foo < ITERATIONS/2 }
+		end
+
+		should "both mutations should have been used #{ITERATIONS} times" do
+			ITERATIONS.times { @foo +=1; @combinded_operator.mutate(@individual) }
+
+			assert_in_delta ITERATIONS/2, @mutation_a.called, DELTA * ITERATIONS
+			assert_in_delta ITERATIONS/2, @mutation_b.called, DELTA * ITERATIONS
+		end
+	end
+end

data/test/operators/meta_operators/tc_proportional_combined_operator.rb

@@ -0,0 +1,167 @@
+#	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 ProportionalCombinedOperatorTest < Test::Unit::TestCase
+
+	GENOME_SIZE = 20
+	ITERATIONS = 1000
+	DELTA = 0.05
+
+	context "when run on binary genome (size=#{GENOME_SIZE}) without a mutation" do
+		setup do
+			@individual = TestArrayBinaryIndividual.new(GENOME_SIZE)
+			@individual.genome.map! { |gene| true }
+			@operator = EvoSynth::MetaOperators::ProportionalCombinedOperator.new
+		end
+
+		should "raise a exception" do
+			assert_raise(RuntimeError) { @operator.mutate(@individual) }
+		end
+	end
+
+	context "when run on binary genome (size=#{GENOME_SIZE}) with two recombinations" do
+		setup do
+			@individual_a= TestArrayBinaryIndividual.new(GENOME_SIZE)
+			@individual_a.genome.map! { |gene| true }
+			@individual_b = TestArrayBinaryIndividual.new(GENOME_SIZE)
+			@individual_b.genome.map! { |gene| true }
+			@combinded_operator = EvoSynth::MetaOperators::ProportionalCombinedOperator.new(TestRecombinationA.new, TestRecombinationB.new)
+		end
+
+		should "both recombinations should have been used (nearly) equally often" do
+			count_a, count_b = 0, 0
+
+			ITERATIONS.times do
+				recombined = @combinded_operator.recombine(@individual_a, @individual_b)
+				count_a += 1 if recombined == ["RecA", "RecA"]
+				count_b += 1 if recombined == ["RecB", "RecB"]
+			end
+
+			assert_equal ITERATIONS, count_a + count_b
+			assert_in_delta ITERATIONS/2, count_a, DELTA * ITERATIONS
+			assert_in_delta ITERATIONS/2, count_b, DELTA * ITERATIONS
+		end
+	end
+
+	context "when run on binary genome (size=#{GENOME_SIZE}) with two mutations (alternative constructor)" do
+		setup do
+			@individual = TestArrayBinaryIndividual.new(GENOME_SIZE)
+			@individual.genome.map! { |gene| true }
+			@combinded_operator = EvoSynth::MetaOperators::ProportionalCombinedOperator.new(TestMutationA.new, TestMutationB.new)
+		end
+
+		should "both mutations should have been used (nearly) equally often" do
+			count_a, count_b = 0, 0
+
+			ITERATIONS.times do
+				mutated = @combinded_operator.mutate(@individual)
+				count_a += 1 if mutated == "A"
+				count_b += 1 if mutated == "B"
+			end
+
+			assert_equal ITERATIONS, count_a + count_b
+			assert_in_delta ITERATIONS/2, count_a, DELTA * ITERATIONS
+			assert_in_delta ITERATIONS/2, count_b, DELTA * ITERATIONS
+		end
+	end
+
+	context "when run on binary genome (size=#{GENOME_SIZE}) with two mutations (alternative constructor)" do
+		setup do
+			@individual = TestArrayBinaryIndividual.new(GENOME_SIZE)
+			@individual.genome.map! { |gene| true }
+			@combinded_operator = EvoSynth::MetaOperators::ProportionalCombinedOperator.new(TestMutationA.new, TestMutationB.new)
+		end
+
+		should "both mutations should have been used (nearly) equally often" do
+			count_a, count_b = 0, 0
+
+			ITERATIONS.times do
+				mutated = @combinded_operator.mutate(@individual)
+				count_a += 1 if mutated == "A"
+				count_b += 1 if mutated == "B"
+			end
+
+			assert_equal ITERATIONS, count_a + count_b
+			assert_in_delta ITERATIONS/2, count_a, DELTA * ITERATIONS
+			assert_in_delta ITERATIONS/2, count_b, DELTA * ITERATIONS
+		end
+	end
+
+	context "when run on binary genome (size=#{GENOME_SIZE}) with two mutations" do
+		setup do
+			@individual = TestArrayBinaryIndividual.new(GENOME_SIZE)
+			@individual.genome.map! { |gene| true }
+			@combinded_operator = EvoSynth::MetaOperators::ProportionalCombinedOperator.new
+			@combinded_operator.add(TestMutationA.new)
+			@combinded_operator.add(TestMutationB.new)
+		end
+
+		should "both mutations should have been used (nearly) equally often" do
+			count_a, count_b = 0, 0
+
+			ITERATIONS.times do
+				mutated = @combinded_operator.mutate(@individual)
+				count_a += 1 if mutated == "A"
+				count_b += 1 if mutated == "B"
+			end
+
+			assert_equal ITERATIONS, count_a + count_b
+			assert_in_delta ITERATIONS/2, count_a, DELTA * ITERATIONS
+			assert_in_delta ITERATIONS/2, count_b, DELTA * ITERATIONS
+		end
+	end
+
+	context "when run with three mutations with different possibilities" do
+		setup do
+			@individual = TestArrayBinaryIndividual.new(GENOME_SIZE)
+			@individual.genome.map! { |gene| true }
+			@combinded_operator = EvoSynth::MetaOperators::ProportionalCombinedOperator.new
+			@combinded_operator.add(TestMutationA.new, 0.5)
+			@combinded_operator.add(TestMutationB.new, 0.25)
+			@combinded_operator.add(TestMutationC.new, 0.25)
+		end
+
+		should "the mutations should have been used according to their possibilities" do
+			count_a, count_b, count_c = 0, 0, 0
+
+			ITERATIONS.times do
+				mutated = @combinded_operator.mutate(@individual)
+				count_a += 1 if mutated == "A"
+				count_b += 1 if mutated == "B"
+				count_c += 1 if mutated == "C"
+			end
+
+			assert_equal ITERATIONS, count_a + count_b + count_c
+			assert_in_delta ITERATIONS/2, count_a, DELTA * ITERATIONS
+			assert_in_delta ITERATIONS/4, count_b, DELTA * ITERATIONS
+			assert_in_delta ITERATIONS/4, count_c, DELTA * ITERATIONS
+		end
+	end
+end

data/test/operators/meta_operators/tc_sequential_combined_operator.rb

@@ -0,0 +1,98 @@
+#	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 SequentialCombinedOperatorTest < Test::Unit::TestCase
+
+	GENOME_SIZE = 20
+	ITERATIONS = 1000
+	DELTA = 0.05
+
+	context "when run on binary genome (size=#{GENOME_SIZE}) without a mutation" do
+		setup do
+			@individual = "Start"
+			@operator = EvoSynth::MetaOperators::SequentialCombinedOperator.new
+		end
+
+		should "raise a exception" do
+			assert_raise(RuntimeError) { @operator.mutate(@individual) }
+		end
+	end
+
+	context "when run on binary genome (size=#{GENOME_SIZE}) with two recombinations" do
+		setup do
+			@individual_a = "I-A "
+			@individual_b = "I-B "
+			@recombination_a = TestRecombinationA.new
+			@recombination_b = TestRecombinationB.new
+			@combinded_operator = EvoSynth::MetaOperators::SequentialCombinedOperator.new(@recombination_a, @recombination_b)
+		end
+
+		should "both recombinations should have been used #{ITERATIONS} times" do
+			ITERATIONS.times { @combinded_operator.recombine(@individual_a, @individual_b) }
+
+			assert_equal ITERATIONS, @recombination_a.called
+			assert_equal ITERATIONS, @recombination_b.called
+		end
+	end
+
+	context "when run on binary genome (size=#{GENOME_SIZE}) with two mutations" do
+		setup do
+			@individual = "I "
+			@mutation_a = TestMutationA.new
+			@mutation_b = TestMutationB.new
+			@combinded_operator = EvoSynth::MetaOperators::SequentialCombinedOperator.new(@mutation_a, @mutation_b)
+		end
+
+		should "both mutations should have been used #{ITERATIONS} times" do
+			ITERATIONS.times { @combinded_operator.mutate(@individual) }
+
+			assert_equal ITERATIONS, @mutation_a.called
+			assert_equal ITERATIONS, @mutation_b.called
+		end
+	end
+
+	context "when run on binary genome with probabilties both should be called as often as they should ;)" do
+		setup do
+			@individual = "I "
+			@mutation_a = TestMutationA.new
+			@mutation_b = TestMutationB.new
+			@combinded_operator = EvoSynth::MetaOperators::SequentialCombinedOperator.new
+			@combinded_operator.add(@mutation_a, 0.5)
+			@combinded_operator.add(@mutation_b, 0.25)
+		end
+
+		should "both mutations should have been used #{ITERATIONS} times" do
+			ITERATIONS.times { @combinded_operator.mutate(@individual) }
+
+			assert_in_delta ITERATIONS/2, @mutation_a.called, DELTA * ITERATIONS
+			assert_in_delta ITERATIONS/4, @mutation_b.called, DELTA * ITERATIONS
+		end
+	end
+end

data/test/operators/mutations/tc_binary_mutation.rb

@@ -0,0 +1,73 @@
+#	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 BinaryMutationTest < Test::Unit::TestCase
+
+	GENOME_SIZE = 20
+	PROBABILITY = 0.1
+	TIMES = 1000
+	DELTA = 0.075
+	EXPECTED = PROBABILITY * GENOME_SIZE * TIMES
+	FLIP_FUNCTION = EvoSynth::Mutations::Functions::FLIP_BOOLEAN
+
+	context "when run on binary genome (size=#{GENOME_SIZE})" do
+		setup do
+			@individual = TestArrayBinaryIndividual.new(GENOME_SIZE)
+			@individual.genome.map! { |gene| true }
+		end
+
+		context "before mutation is executed" do
+			should "all genes should be true" do
+				@individual.genome.each { |gene| assert gene }
+			end
+		end
+
+		context "after mutation is executed #{TIMES} times (with probability=#{PROBABILITY})" do
+			setup do
+				binary_mutation = EvoSynth::Mutations::BinaryMutation.new(FLIP_FUNCTION, PROBABILITY)
+				@count = 0.0
+				TIMES.times do
+					mutated = binary_mutation.mutate(@individual)
+					mutated.genome.each { |gene| @count += 1 if !gene }
+				end
+			end
+
+			should "all genes of the parent should (still) be true" do
+				@individual.genome.each { |gene| assert gene }
+			end
+
+			should "around #{EXPECTED} (+/- #{EXPECTED * DELTA}) genes should have mutated to false" do
+				assert_in_delta EXPECTED, @count, EXPECTED * DELTA
+			end
+		end
+
+	end
+
+end

data/test/operators/mutations/tc_efficient_binary_mutation.rb

@@ -0,0 +1,73 @@
+#	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 EfficientBinaryMutationTest < Test::Unit::TestCase
+
+	GENOME_SIZE = 20
+	PROBABILITY = 0.1
+	TIMES = 1000
+	DELTA = 0.075
+	EXPECTED = PROBABILITY * GENOME_SIZE * TIMES
+	FLIP_FUNCTION = EvoSynth::Mutations::Functions::FLIP_BOOLEAN
+
+	context "when run on binary genome (size=#{GENOME_SIZE})" do
+		setup do
+			@individual = TestArrayBinaryIndividual.new(GENOME_SIZE)
+			@individual.genome.map! { |gene| true }
+		end
+
+		context "before mutation is executed" do
+			should "all genes should be true" do
+				@individual.genome.each { |gene| assert gene }
+			end
+		end
+
+		context "after mutation is executed #{TIMES} times (with probability=#{PROBABILITY})" do
+			setup do
+				binary_mutation = EvoSynth::Mutations::EfficientBinaryMutation.new(FLIP_FUNCTION, PROBABILITY)
+				@count = 0.0
+				TIMES.times do
+					mutated = binary_mutation.mutate(@individual)
+					mutated.genome.each { |gene| @count += 1 if !gene }
+				end
+			end
+
+			should "all genes of the parent should (still) be true" do
+				@individual.genome.each { |gene| assert gene }
+			end
+
+			should "around #{EXPECTED} (+/- #{EXPECTED * DELTA}) genes should have mutated to false" do
+				assert_in_delta EXPECTED, @count, EXPECTED * DELTA
+			end
+		end
+
+	end
+
+end