EFL 1.0

data/tests/ErrorCollision.rb.bak

@@ -0,0 +1,219 @@
+require 'test/unit'
+require "EFL.rb"
+
+########################################################
+# Bateria de pruebas para la clase Error, que produce diversas excepciones
+#	- Pruebas para Error.collision(receiver) desde:
+#		- prod, prod?
+#		- gen, gen?
+#
+# Ultima actualizacion: 30-9-2004
+########################################################
+
+class ErrorCollision < Test::Unit::TestCase
+	def setup
+		@g = Generator.new
+		
+		@g1 = Generator.new
+		@g2 = Generator.new
+		@g3 = Generator.new
+		@g1.gsub(/pointcut/i, "PTO DE CORTE!!!!", 's1')
+		@g1.gsub(/raise/, "LANZAAL!!!!", 's2')
+		@g1.prod('archAuxiliares\aspectgen.rb', 'archAuxiliares\s1.txt', 'all', 'p1')
+		@g2.sub(/point/i, "POINTCULTTT!!!!", 's1')
+		@g2.gsub(/name/, "NOMBRE!!!!", 's3')		
+		@g2.prod('archAuxiliares\aspectgen.rb', 'archAuxiliares\s1.txt','all', 'p1')
+		@g3.sub(/point/i, "POINTCULTTT!!!!", 's4')
+		@g3.prod('archAuxiliares\aspectgen.rb', 'archAuxiliares\s1.txt','all', 'p2')
+	end
+	
+	# Pruebas para prod
+
+	def test_1
+		@g.gsub(/initialize/, 'constructor')
+		@g.gsub(/crash/, 'colisi�n')
+		assert(@g.prod?('archAuxiliares/aspectGen.rb',
+					'archAuxiliares/p1'), "")		
+	end
+	
+
+	def test_2
+		@g.gsub(/initialize\(name/, "sust1")
+		@g.sub(/name/, "sust2")
+		assert(@g.prod?('archAuxiliares/aspectGen.rb',
+					'archAuxiliares/p1.rb'), '')		
+	end
+
+	def test_3
+		@g.sub(/initialize\(name/, "sust1")
+		@g.gsub(/name/, "sust2")
+		assert(!@g.prod?('archAuxiliares/aspectGen.rb',
+					'archAuxiliares/p1.rb'), '')		
+		assert_raises(RuntimeError, "") {||
+			@g.prod('archAuxiliares/aspectGen.rb',
+				     'archAuxiliares/p1.rb')		
+		}
+	end
+
+	def test_4
+		@g.gsub(/initialize\(name/, "sust1")
+		@g.gsub(/name/, "sust2")
+		assert(!@g.prod?('archAuxiliares/aspectGen.rb',
+					'archAuxiliares/p1.rb'), '')		
+		assert_raises(RuntimeError, "") {||
+			@g.prod('archAuxiliares/aspectGen.rb',
+				     'archAuxiliares/p1.rb')		
+		}
+	end
+
+	def test_5
+		@g.sub(/initialize\(name/, "sust1")
+		@g.sub(/\(name, regEx/, "sust2")
+		assert(!@g.prod?('archAuxiliares/aspectGen.rb',
+					'archAuxiliares/p1.rb'), '')		
+		assert_raises(RuntimeError, "") {||
+			@g.prod('archAuxiliares/aspectGen.rb',
+				     'archAuxiliares/p1.rb')		
+		}
+	end	
+
+	def test_6
+		@g.sub(/initialize\(name/, "sust1")
+		@g.gsub(/\(name, regEx/, "sust2")
+		assert(!@g.prod?('archAuxiliares/aspectGen.rb',
+					'archAuxiliares/p1.rb'), '')		
+		assert_raises(RuntimeError, "") {||
+			@g.prod('archAuxiliares/aspectGen.rb',
+				     'archAuxiliares/p1.rb')		
+		}
+	end	
+
+	def test_7
+		@g.gsub(/initialize\(name/, "sust1")
+		@g.sub(/\(name, regEx/, "sust2")
+		assert(!@g.prod?('archAuxiliares/aspectGen.rb',
+					'archAuxiliares/p1.rb'), '')		
+		assert_raises(RuntimeError, "") {||
+			@g.prod('archAuxiliares/aspectGen.rb',
+				     'archAuxiliares/p1.rb')		
+		}
+	end	
+
+	def test_8
+		@g.sub(/initialize\(name/, "sust1", 's1')
+		@g.sub(/name/, "sust2", 's2')
+		assert(!@g.prod?('archAuxiliares/aspectGen.rb',
+					'archAuxiliares/p1.rb', ['s1', 's2', 's1']), '')		
+		assert_raises(RuntimeError, "") {||
+			@g.prod('archAuxiliares/aspectGen.rb',
+				    'archAuxiliares/p1.rb', ['s1', 's2', 's1'])
+		}
+	end	
+
+	# Pruebas para gen
+
+	def test_9
+		@g.gsub(/initialize/, 'constructor', 's1')
+		@g.gsub(/crash/, 'colisi�n', 's2')
+		@g.prod('archAuxiliares/aspectGen.rb',
+			    'archAuxiliares/p1.txt', ['s1', 's2'])
+		@g.prod('archAuxiliares/aspectGen.rb',
+			    'archAuxiliares/p2.txt', ['s1'])
+		assert(@g.gen?)
+		@g.gen
+	end	
+
+	def test_10
+		@g.gsub(/initialize/, 'constructor', 's1')
+		@g.gsub(/crash/, 'colisi�n', 's2')
+		@g.prod('archAuxiliares/aspectGen.rb',
+			    'archAuxiliares/1.txt', ['s1', 's2'])
+		@g.prod('archAuxiliares/aspectGenCopy.rb',
+			    'archAuxiliares/1.txt', ['s2'])
+		assert(!@g.gen?)
+		assert_raises(RuntimeError, "") {||
+			@g.gen
+		}
+	end	
+
+	def test_11
+		@g.gsub(/initialize/, 'constructor', 's1')
+		@g.gsub(/crash/, 'colisi�n', 's2')
+		@g.prod('archAuxiliares/aspectGen.rb',
+			    'archAuxiliares/1.txt', ['s1'])
+		@g.prod('archAuxiliares/aspectGenCopy.rb',
+			    'archAuxiliares/1.txt', ['s2'])
+		assert(!@g.gen?)
+		assert_raises(RuntimeError, "") {||
+			@g.gen
+		}	
+	end	
+
+	def test_12
+		@g.gsub(/initialize/, 'constructor', 's1')
+		@g.gsub(/crash/, 'colisi�n', 's2')
+		@g.prod('archAuxiliares/aspectGen.rb',
+			    'archAuxiliares/1.txt', ['s1', 's2'])
+		@g.prod('archAuxiliares/aspectGen.rb',
+			    'archAuxiliares/1.txt', ['s2'])
+		assert(!@g.gen?)
+		assert_raises(RuntimeError, "") {||
+			@g.gen
+		}
+	end	
+
+	def test_13
+		@g.gsub(/initialize/, 'constructor', 's1')
+		@g.gsub(/crash/, 'colisi�n', 's2')
+		@g.prod('archAuxiliares/aspectGen.rb',
+			    'archAuxiliares/1.txt', ['s1'])
+		@g.prod('archAuxiliares/aspectGen.rb',
+			    'archAuxiliares/1.txt', ['s2', 's1'])
+		assert(!@g.gen?)
+		assert_raises(RuntimeError, "") {||
+			@g.gen
+		}
+	end	
+	
+	def test_14
+		@g.sub(/initialize\(name/, "sust1", 's1')
+		@g.gsub(/name/, "sust2", 's2')
+		@g.prod('archAuxiliares/aspectGen.rb',
+			    'archAuxiliares/1.txt', ['s1'])
+		@g.prod('archAuxiliares/aspectGen.rb',
+			    'archAuxiliares/1.txt', ['s2'])
+		assert(!@g.prod?('archAuxiliares/aspectGen.rb',
+					'archAuxiliares/p1.rb'), '')		
+		assert_raises(RuntimeError, "") {||
+			@g.prod('archAuxiliares/aspectGen.rb',
+				     'archAuxiliares/p1.rb')		
+		}
+	end
+	
+	# Pruebas para add
+
+	def test_15
+		assert(!@g1.add?(@g2))		
+		assert_raises(RuntimeError, "") {||
+			@g1.add(@g2)
+		}
+		assert_raises(RuntimeError, "") {||
+			@g1 + @g2
+		}
+	end
+
+	def test_16
+		assert(@g1.sup?(@g2))		
+	end
+
+	def test_17
+		assert(!@g1.sup?(@g3))		
+		assert_raises(RuntimeError, "") {||
+			@g1.sup!(@g3)
+		}
+		assert_raises(RuntimeError, "") {||
+			@g1 << @g3
+		}	
+	end
+
+end

data/tests/ErrorWithoutDeclaration.rb

@@ -0,0 +1,60 @@
+require 'test/unit'
+require 'EFL'
+
+########################################################
+# Bateria de pruebas para la clase Error, que produce diversas excepciones
+#	- Pruebas para Error.withoutDeclaration(element) desde:
+#		- prod, prod?
+#		- gen, gen?
+#
+# Ultima actualizacion: 30-9-2004
+########################################################
+
+class ErrorWithoutDeclaration < Test::Unit::TestCase
+	def setup
+		@g = Generator.new
+		@g.gsub(/pointcut/i, "PTO DE CORTE!!!!")
+		@g.gsub(/raise/, "LANZAAL!!!!", 's2')
+		@g.sub(/initialize/, 'CONSTRUCTORRR!!!!', 's3')
+		@g.gsub(/name/, "NOMBRE!!!!", 's4')
+		@g.prod('archAuxiliares/aspectgen.rb', 
+			    'archAuxiliares/basura.txt', ['s2', 's3'], 'name')		
+	end
+	
+	def test_prod_1
+		assert_raises(RuntimeError, "") {||
+				@g.prod('iFile', 'oFile', ['s1', 's2'], 'name')
+		}
+	end
+
+	def test_prod_2
+		assert_raises(RuntimeError, "") {||
+				@g.prod('iFile', 'oFile', ['s2', 's3', 's9898'], 'name')
+		}
+	end
+
+	def test_prod_1?
+		assert_raises(RuntimeError, "") {||
+				@g.prod?('iFile', 'oFile', ['s1', 's2'])
+		}
+	end
+	
+	def test_prod_2?
+		assert_raises(RuntimeError, "") {||
+				@g.prod?('iFile', 'oFile', ['s2', 's3', 's9898'])
+		}
+	end
+
+	def test_gen
+		assert_raises(RuntimeError, "") {||
+				@g.gen(['p1'])
+		}
+	end
+
+	def test_gen?
+		assert_raises(RuntimeError, "") {||
+				@g.gen(['p1'])
+		}
+	end
+	
+end

data/tests/ErrorWithoutDeclaration.rb.bak

@@ -0,0 +1,60 @@
+require 'test/unit'
+require "EFL.rb"
+
+########################################################
+# Bateria de pruebas para la clase Error, que produce diversas excepciones
+#	- Pruebas para Error.withoutDeclaration(element) desde:
+#		- prod, prod?
+#		- gen, gen?
+#
+# Ultima actualizacion: 30-9-2004
+########################################################
+
+class ErrorWithoutDeclaration < Test::Unit::TestCase
+	def setup
+		@g = Generator.new
+		@g.gsub(/pointcut/i, "PTO DE CORTE!!!!")
+		@g.gsub(/raise/, "LANZAAL!!!!", 's2')
+		@g.sub(/initialize/, 'CONSTRUCTORRR!!!!', 's3')
+		@g.gsub(/name/, "NOMBRE!!!!", 's4')
+		@g.prod('archAuxiliares/aspectgen.rb', 
+			    'archAuxiliares/basura.txt', ['s2', 's3'], 'name')		
+	end
+	
+	def test_prod_1
+		assert_raises(RuntimeError, "") {||
+				@g.prod('iFile', 'oFile', ['s1', 's2'], 'name')
+		}
+	end
+
+	def test_prod_2
+		assert_raises(RuntimeError, "") {||
+				@g.prod('iFile', 'oFile', ['s2', 's3', 's9898'], 'name')
+		}
+	end
+
+	def test_prod_1?
+		assert_raises(RuntimeError, "") {||
+				@g.prod?('iFile', 'oFile', ['s1', 's2'])
+		}
+	end
+	
+	def test_prod_2?
+		assert_raises(RuntimeError, "") {||
+				@g.prod?('iFile', 'oFile', ['s2', 's3', 's9898'])
+		}
+	end
+
+	def test_gen
+		assert_raises(RuntimeError, "") {||
+				@g.gen(['p1'])
+		}
+	end
+
+	def test_gen?
+		assert_raises(RuntimeError, "") {||
+				@g.gen(['p1'])
+		}
+	end
+	
+end

data/tests/Extract.rb

@@ -0,0 +1,56 @@
+require 'test/unit'
+require "EFL"
+
+########################################################
+# Bateria de pruebas para la funcion extract
+#
+# Ultima actualizacion: 19-7-2007
+########################################################
+
+class Extract < Test::Unit::TestCase
+	def test_1
+		g = generator
+		resultado_obtenido = g.extract('archAuxiliares/Matriz.java', 
+								nested_symbols( '{' , '}' ) > 
+								nested_symbols( '(' , ')' ) >
+								/num\w+/ ) 
+		resultado_esperado = ["numFilas", "numColumnas", "numFilas", "numColumnas", "numFilas", "numColumnas"]
+		assert(resultado_obtenido == resultado_esperado)
+	end
+
+	def test_2
+		g = generator
+		resultado_obtenido = g.extract('archAuxiliares/Matriz.java',
+								/num\w+/ ) 
+		assert(resultado_obtenido.include?("numOtrasCosas"))
+	end
+
+	def test_3
+		g = generator
+		resultado_obtenido = g.extract('archAuxiliares/Matriz.java', 
+								nested_symbols( '{' , '}' ) > 
+								nested_symbols( '(' , ')' ) >
+								/obtenerNumFilas/ ) 
+		assert(resultado_obtenido.length==2)
+		resultado_obtenido = g.extract('archAuxiliares/Matriz.java', 
+								nested_symbols( '{' , '}' ) > 
+								nested_symbols( '(' , ')' ) >
+								/obtenerNumColumnasOtras/ ) 
+		assert(resultado_obtenido.length==1)
+	end
+	
+	def test_4
+		g = generator
+		reg_exp_str_1 = nested_symbols( '{' , '}' ).to_s
+		reg_exp_str_2 = nested_symbols( '(' , ')' ).to_s
+		resultado_obtenido = g.extract('archAuxiliares/Matriz.java', 
+								/escribirMatriz\(\)\s*#{reg_exp_str_1}/m >
+								/for.*?#{reg_exp_str_1}/m >
+								nested_symbols( '{' , '}' ) > 
+								/for.*?(#{reg_exp_str_2})/m >
+								nested_symbols( '(' , ')')
+								) 
+		assert(resultado_obtenido[0] == "(int j=0; j<numColumnas; j++)")
+	end
+
+end

data/tests/ExtractDollar.rb

@@ -0,0 +1,17 @@
+require 'test/unit'
+require "EFL"
+
+########################################################
+# Bateria de pruebas para la funcion extract_dollar
+#
+# Ultima actualizacion: 5-10-2007
+########################################################
+
+class ExtractDollar < Test::Unit::TestCase
+	def test_1
+		g = generator
+		puts "$1 = " + g.extract_dollar('archAuxiliares/extract_dollar.txt', /(This).*?(code).*?/, 1).to_s
+		puts "$2 = " + g.extract_dollar('archAuxiliares/extract_dollar.txt', /(This).*?(code).*?/, 2).to_s
+	end
+
+end

data/tests/HashTest.rb

@@ -0,0 +1,54 @@
+require 'test/unit'
+require "EFL"
+
+########################################################
+# Bateria de pruebas para los m�todos incorporados a Hash
+#
+# Ultima actualizacion: 1-10-2004
+########################################################
+
+class HashTest < Test::Unit::TestCase
+	def setup
+		@hash1 = {
+			'clave1' => ['1', '2'],
+			'clave2' => ['3']
+		}
+				
+		@hash2 = {
+			'clave1_texto' => ['1', '2'],
+			'clave2_texto' => ['3']
+		}
+			
+		@hash3 = {
+			'clave1' => ['texto_1', 'texto_2'],
+			'clave2' => ['texto_3']
+		}
+
+		@hash4 = {
+			'clave1_texto' => ['texto_1', 'texto_2'],
+			'clave2_texto' => ['texto_3']
+		}
+
+	end #setup
+		
+	def test_my_collect
+		assert_equal(@hash2,
+				  @hash1.my_collect {|k, v| 
+					  ["#{k}_texto", v]
+					},
+				'')
+
+		assert_equal(@hash3,
+				  @hash1.my_collect {|k, v| 
+					  [k, v.collect!{|e| "texto_#{e}"}]
+					},
+				'')
+	
+		assert_equal(@hash4,
+				  @hash1.my_collect {|k, v| 
+					  ["#{k}_texto", v.collect!{|e| "texto_#{e}"}]
+					},
+				'')
+	end #test_my_collect
+	
+end #HashTest