evosynth 0.1.0

data/test/core/tc_binary_genome.rb

@@ -0,0 +1,160 @@
+#	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'
+
+
+class BinaryGenomeTest < Test::Unit::TestCase
+
+	context "when created without intital value" do
+		setup do
+			@genome = EvoSynth::BinaryGenome.new
+		end
+
+		should "#changed be true" do
+			assert @genome.changed?
+		end
+
+		should "size == 1" do
+			assert_equal 1, @genome.size
+		end
+
+		should "genome[0] == 0" do
+			assert_equal 0, @genome[0]
+		end
+
+		should "genome[0] == 1, after flip! 0" do
+			@genome.flip!(0)
+			assert_equal 1, @genome[0]
+		end
+
+		should "clone work as expected" do
+			foo = @genome.clone
+			@genome.flip!(0)
+			assert_equal 1, @genome[0]
+			assert_equal 0, foo[0]
+		end
+	end
+
+	context "when created with 85" do
+		setup do
+			@genome = EvoSynth::BinaryGenome.new(87)
+		end
+
+		should "#changed be true" do
+			assert @genome.changed?
+		end
+
+		should "genome have the correct bits" do
+			assert_equal 1, @genome[0]
+			assert_equal 1, @genome[1]
+			assert_equal 1, @genome[2]
+			assert_equal 0, @genome[3]
+			assert_equal 1, @genome[4]
+			assert_equal 0, @genome[5]
+			assert_equal 1, @genome[6]
+		end
+
+		should "size == 7" do
+			assert_equal 7, @genome.size
+		end
+
+		should "to_s == '1010111'" do
+			assert_equal '1010111', @genome.to_s
+		end
+
+		should "@genome[1] == 0" do
+			assert_equal 1, @genome[1]
+		end
+
+		should "@genome[1,3] == [1,1,0]" do
+			assert_equal [1,1,0], @genome[1,3]
+		end
+
+		should "@genome[3,4] == [0,1,0,1]" do
+			assert_equal [0,1,0,1], @genome[3,4]
+		end
+
+		should "@genome[1..3] == [1,1,0]" do
+			assert_equal [1,1,0], @genome[1..3]
+		end
+
+		should "@genome['foo'] raise a exception" do
+			assert_raise(ArgumentError) { @genome['foo'] }
+		end
+
+		should "@genome[1,2,3] raise a exception" do
+			assert_raise(ArgumentError) { @genome[1,2,3] }
+		end
+
+		should "to_s == '1000011', after 2 flips at the correct position" do
+			@genome.flip!(2)
+			@genome.flip!(4)
+			assert_equal '1000011', @genome.to_s
+		end
+
+		should "@genome[]= should work" do
+			assert_equal 1, @genome[4]
+			@genome[4] = 0
+			assert_equal 0, @genome[4]
+			@genome[4] = 1
+			assert_equal 1, @genome[4]
+		end
+
+		should "@genome[0..2]= should work" do
+			assert_equal [1,1,1], @genome[0..2]
+			@genome[0..2] = 0
+			assert_equal [0,0,0], @genome[0..2]
+			@genome[0..2] = 1
+			assert_equal [1,1,1], @genome[0..2]
+		end
+
+		should "@genome[0..2]= [..] should work" do
+			assert_equal [1,1,1], @genome[0..2]
+			@genome[0..2] = [0,1,0]
+			assert_equal [0,1,0], @genome[0..2]
+			@genome[0..2] = [1,1,1]
+			assert_equal [1,1,1], @genome[0..2]
+		end
+
+		should "@genome[4..6]= [..] should work" do
+			assert_equal [1,0,1], @genome[4..6]
+			@genome[4..6] = [0,1,1]
+			assert_equal [0,1,1], @genome[4..6]
+			@genome[4..6] = [1,0,1]
+			assert_equal [1,0,1], @genome[4..6]
+		end
+
+		should "@genome[3,3]= should work" do
+			assert_equal [0,1,0], @genome[3,3]
+			@genome[3,3] = 0
+			assert_equal [0,0,0], @genome[3,3]
+			@genome[3,3] = 1
+			assert_equal [1,1,1], @genome[3,3]
+		end
+
+	end
+end

data/test/core/tc_population.rb

@@ -0,0 +1,154 @@
+#	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 PopulationTest < Test::Unit::TestCase
+
+	context "when initialized without args" do
+		setup do
+			@population = EvoSynth::Population.new
+		end
+
+		should "be empty" do
+			assert @population.empty?
+		end
+
+		should "have a size of 0" do
+			assert_equal 0, @population.size
+		end
+	end
+
+	context "when it contains maximizingIndividuals" do
+		setup do
+			@population = EvoSynth::Population.new
+			@min = TestMaximizingIndividual.new(1)
+			@second = TestMaximizingIndividual.new(299)
+			@third = TestMaximizingIndividual.new(298)
+			@max = TestMaximizingIndividual.new(300)
+
+			@population.add(@max)
+			@population.add(@min)
+			@population.add(@third)
+			@population.add(@second)
+
+			10.times { @population.add(TestMaximizingIndividual.new(EvoSynth.rand(10) + 10)) }
+		end
+
+		should "#best(3) return 3 individuals ordered by fitness (DESC)" do
+			expected = []
+			expected << @max << @second << @third
+			assert_equal expected, @population.best(3)
+		end
+
+		should "#best return maximum in population" do
+			assert_equal @max, @population.best
+		end
+
+		should "#worst return minimum in population" do
+			assert_equal @min, @population.worst
+		end
+	end
+
+	context "when it contains minizingIndividuals" do
+		setup do
+			@population = EvoSynth::Population.new
+			@min = TestMinimizingIndividual.new(1)
+			@second = TestMinimizingIndividual.new(2)
+			@third = TestMinimizingIndividual.new(3)
+			@max = TestMinimizingIndividual.new(300)
+
+			@population.add(@min)
+			@population.add(@second)
+			@population.add(@third)
+			@population.add(@max)
+
+			10.times { @population.add(TestMinimizingIndividual.new(EvoSynth.rand(10) + 10)) }
+		end
+
+		should "#best(3) return 3 individuals ordered by fitness (ASC)" do
+			expected = []
+			expected << @min << @second << @third
+			assert_equal expected, @population.best(3)
+		end
+
+		should "#best returns minimum in population" do
+			assert_equal @min, @population.best
+		end
+
+		should "#worst returns maximum in population" do
+			assert_equal @max, @population.worst
+		end
+	end
+
+	should "[]= and [] work" do
+		population = EvoSynth::Population.new(2) { 0 }
+		population[0] = "foo"
+		population[1] = "bar"
+		assert_equal 2, population.size
+		assert_equal "foo", population[0]
+		assert_equal "bar", population[1]
+	end
+
+	should "provide a working map! implementation" do
+		pop = EvoSynth::Population.new
+		pop.add(TestMinimizingIndividual.new(1))
+		pop.map! { |i| i.fitness = 2; i}
+		assert_equal 2, pop[0].fitness
+	end
+
+	should "provide a working remove implementation" do
+		pop = EvoSynth::Population.new
+		inividual_one = TestMinimizingIndividual.new(1)
+		inividual_two = TestMinimizingIndividual.new(2)
+		pop.add(inividual_one)
+		pop.add(inividual_two)
+		assert_equal 2, pop.size
+		assert_equal inividual_one, pop[0]
+		assert_equal inividual_two, pop[1]
+
+		pop.remove(inividual_one)
+		assert_equal inividual_two, pop[0]
+	end
+
+	should "all individuals should be 0 when created with {0}" do
+		population = EvoSynth::Population.new(1) { 0 }
+		population.each { |individual| assert_equal 0, individual }
+	end
+
+	should "it's size should be 100 when we want it to be 100" do
+		population = EvoSynth::Population.new(100)
+		assert_equal 100, population.size
+	end
+
+	should "when initialized without block it should only contain nil" do
+		population = EvoSynth::Population.new(1)
+		assert_nil population[0]
+	end
+
+end

data/test/core/tc_profile.rb

@@ -0,0 +1,75 @@
+#	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'
+
+
+class ProfileTest < Test::Unit::TestCase
+
+	context "when initialized with a symbol" do
+
+		should "work as expected with simple stuff" do
+			profile = EvoSynth::Profile.new
+			assert_raise(ArgumentError) { (profile.foo) }
+			assert_raise(ArgumentError) { (profile.bar) }
+			profile.foo= "foo"
+			profile.bar= "bar"
+			assert_equal("foo", profile.foo)
+			assert_equal("bar", profile.bar)
+		end
+
+		should "work as expected with more complex stuff" do
+			profile = EvoSynth::Profile.new
+			assert_raise(ArgumentError) { (profile.foo) }
+			assert_raise(ArgumentError) { (profile.bar) }
+			profile.foo= [1,2,3,4,5]
+			struct = Struct.new(:foo,:bar,:baz)
+			profile.bar= struct
+			assert_equal([1,2,3,4,5], profile.foo)
+			assert_equal(struct, profile.bar)
+		end
+
+		should "work with defaults" do
+			profile = EvoSynth::Profile.new(:foo, :bar => "bar", :baz => "baz")
+			assert_nil(profile.foo)
+			assert_equal("bar", profile.bar)
+			assert_equal("baz", profile.baz)
+		end
+
+		should "be able to delete keys" do
+			profile = EvoSynth::Profile.new(:foo, :bar => "bar", :baz => "baz")
+			assert_nil(profile.foo)
+			assert_equal("bar", profile.bar)
+			assert_equal("baz", profile.baz)
+			profile.delete(:foo)
+			assert_raise(ArgumentError) { (profile.foo) }
+			profile.delete(:bar)
+			assert_raise(ArgumentError) { (profile.bar) }
+		end
+
+	end
+
+end

data/test/core/tc_randomizer.rb

@@ -0,0 +1,165 @@
+#	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 'gnuplot'
+
+require 'evosynth'
+
+
+class BenchmarkFunctionsTest < Test::Unit::TestCase
+	
+	RUNS = 50000
+	DELTA = 0.05
+
+	def assert_point(xs, value, expected, point, scale)
+		offset = point * scale
+		v1 = xs[value+(offset)].nil? ? 0 : xs[value+(offset)]
+		v2 = xs[value+(offset+0.01)].nil? ? 0 : xs[value+(offset+0.01)]
+		v3 = xs[value+(offset-0.01)].nil? ? 0 : xs[value+(offset-0.01)]
+		at_point = ((v1 * 100.0 / RUNS) + (v2 * 100.0 / RUNS) + (v3 * 100.0 / RUNS)) / 3
+		assert_in_delta(expected/scale, at_point, DELTA)
+	end
+
+	def assert_result(xs, value = 0.0, scale = 1.0)
+		assert_point(xs, value, 0.4, 0.0, scale)
+		assert_point(xs, value, 0.24, -1.0, scale)
+		assert_point(xs, value, 0.24, 1.0, scale)
+		assert_point(xs, value, 0.054, 2.0, scale)
+		assert_point(xs, value, 0.054, -2.0, scale)
+	end
+
+	context "the EvoSynth.normal_rand function" do
+
+		should "should be correct with default values" do
+			xs = {}
+			RUNS.times do |i|
+				result = EvoSynth.nrand
+				rounded = (result * 100).round.to_f/100
+				xs[rounded] = 0 unless xs.has_key?(rounded)
+				xs[rounded] += 1
+			end
+			assert_result(xs, 0.0, 1.0)
+
+			xs_sorted = xs.sort
+			x, y = [],[]
+			xs_sorted.each { |v| x << v[0]; y << v[1] * 100.0 / RUNS }
+
+#			Gnuplot.open do |gp|
+#				Gnuplot::Plot.new( gp ) do |plot|
+#
+#					plot.title  "normal distributed random numbers"
+#					plot.xrange "[-5:5]"
+#
+#					plot.data << Gnuplot::DataSet.new( [x, y] ) do |ds|
+#						ds.with = "lines"
+#					end
+#				end
+#			end
+		end
+
+
+		should "should be correct with mu = 2.0 values" do
+			xs = {}
+			RUNS.times do |i|
+				result = EvoSynth.nrand(2.0)
+				rounded = (result * 100).round.to_f/100
+				xs[rounded] = 0 unless xs.has_key?(rounded)
+				xs[rounded] += 1
+			end
+			assert_result(xs, 2.0, 1.0)
+
+			xs_sorted = xs.sort
+			x, y = [],[]
+			xs_sorted.each { |v| x << v[0]; y << v[1] * 100.0 / RUNS }
+
+#			Gnuplot.open do |gp|
+#				Gnuplot::Plot.new( gp ) do |plot|
+#
+#					plot.title  "normal distributed random numbers"
+#					plot.xrange "[-5:5]"
+#
+#					plot.data << Gnuplot::DataSet.new( [x, y] ) do |ds|
+#						ds.with = "lines"
+#					end
+#				end
+#			end
+		end
+
+		should "should be correct with mu = -13.0 values" do
+			xs = {}
+			RUNS.times do |i|
+				result = EvoSynth.nrand(-13.0)
+				rounded = (result * 100).round.to_f/100
+				xs[rounded] = 0 unless xs.has_key?(rounded)
+				xs[rounded] += 1
+			end
+			assert_result(xs, -13.0, 1.0)
+
+			xs_sorted = xs.sort
+			x, y = [],[]
+			xs_sorted.each { |v| x << v[0]; y << v[1] * 100.0 / RUNS }
+
+#			Gnuplot.open do |gp|
+#				Gnuplot::Plot.new( gp ) do |plot|
+#
+#					plot.title  "normal distributed random numbers"
+#					plot.xrange "[-5:5]"
+#
+#					plot.data << Gnuplot::DataSet.new( [x, y] ) do |ds|
+#						ds.with = "lines"
+#					end
+#				end
+#			end
+		end
+
+		should "should be correct with mu = -13.0 and sigma = 2.0values" do
+			xs = {}
+			RUNS.times do |i|
+				result = EvoSynth.nrand(0.0, 2.0)
+				rounded = (result * 100).round.to_f/100
+				xs[rounded] = 0 unless xs.has_key?(rounded)
+				xs[rounded] += 1
+			end
+#			assert_result(xs, -13.0, 2.0)
+
+			xs_sorted = xs.sort
+			x, y = [],[]
+			xs_sorted.each { |v| x << v[0]; y << v[1] * 100.0 / RUNS }
+
+#			Gnuplot.open do |gp|
+#				Gnuplot::Plot.new( gp ) do |plot|
+#
+#					plot.title  "normal distributed random numbers"
+#					plot.xrange "[-5:5]"
+#
+#					plot.data << Gnuplot::DataSet.new( [x, y] ) do |ds|
+#						ds.with = "lines"
+#					end
+#				end
+#			end
+		end
+	end
+
+end