EFL 1.0

data/tests/Bloques.rb.bak

@@ -0,0 +1,34 @@
+require 'test/unit'
+require 'EFL.rb'
+
+########################################################
+# Bateria de pruebas para las sustituciones con bloques
+#
+# Ultima actualizacion: 14-12-2004
+########################################################
+
+def identicalFiles? (f1, f2)
+	result = false
+	File.open(f1) { |fi1|
+		content01 = fi1.read
+		File.open(f2) { |fi2|
+			content2 = fi2.read
+			result = content01 == content2
+		}		
+	}
+end #identicalFiles
+
+class Gen < Test::Unit::TestCase
+	def setup
+		@g1 = Generator.new
+	end
+
+	def test_1
+		@g1.sub(/(pointcut)/i, "PTO DE CORTE!!!! = ") {
+			"PTO DE CORTE!!!! = #{$1}"
+		}
+		@g1.prod('archAuxiliares\aspectgen.rb', 'archAuxiliares\Bloques\s1.txt')
+		@g1.gen
+		assert( identicalFiles?('archAuxiliares\Bloques\uno.txt', 'archAuxiliares\Bloques\s1.txt'), '')
+	end
+end

data/tests/Complementary.rb

@@ -0,0 +1,144 @@
+require 'test/unit'
+require "EFL"
+
+########################################################
+# Bateria de pruebas para o regular_expression
+#
+# Ultima actualizacion: 2-10-2007
+########################################################
+def identicalFiles? (f1, f2)
+	result = false
+	File.open(f1) { |fi1|
+		content01 = fi1.read
+		File.open(f2) { |fi2|
+			content2 = fi2.read
+			result = content01 == content2
+		}		
+	}
+end #identicalFiles
+
+class Complementary < Test::Unit::TestCase
+  def test_simple
+  end
+	def test_1
+		g1 = generator {
+			gsub(inside_nested_symbols( '{' , '}') > o(nested_symbols( '{' , '}')) > /Matriz/, '123' )
+			prod('archAuxiliares/Matriz_N_1.java', 'archAuxiliares/MatrizOut5.java')
+			gen
+		}
+		assert( identicalFiles?('archAuxiliares/Matriz_5.java', 'archAuxiliares/MatrizOut5.java') )
+	end
+	
+	def test_2
+		g1 = generator {		
+			gsub(inside_nested_symbols( '{' , '}' )  >  o(nested_symbols( '{' , '}' )) > /Matriz/, '123')
+			gdel(inside_nested_symbols( '{' , '}' )  >  o(nested_symbols( '{' , '}' )) > /int/)
+			gbefore(inside_nested_symbols( '{' , '}' )  >  o(nested_symbols( '{' , '}' )) > /int/, '<<before>>')
+			prod('archAuxiliares/Matriz_N_1.java', 'archAuxiliares/MatrizOut6.java')
+			gen
+		}
+		assert( identicalFiles?('archAuxiliares/Matriz_6.java', 'archAuxiliares/MatrizOut6.java') )
+	end
+																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																							
+	def test_3
+		g1 = generator {	
+			p extract('archAuxiliares/Matriz_N_1.java',
+					inside_nested_symbols( '{' , '}' )  >  (inside_nested_symbols( '{' , '}' )) > /Matriz/)
+			gsub(inside_nested_symbols( '{' , '}' )  >  (inside_nested_symbols( '{' , '}' )) > /Matriz/, 'dentro')
+			gsub(inside_nested_symbols( '{' , '}' )  > o(nested_symbols( '{' , '}' )) > /Matriz/, 'fuera')
+			del(inside_nested_symbols( '{' , '}' )  >  o(nested_symbols( '{' , '}' )) > /int/)
+			before(inside_nested_symbols( '{' , '}' )  >  o(nested_symbols( '{' , '}' )) > /int/, '<<before>>')
+			prod('archAuxiliares/Matriz_N_1.java', 'archAuxiliares/MatrizOut7.java')
+			gen
+		}
+		assert( identicalFiles?('archAuxiliares/Matriz_7.java', 'archAuxiliares/MatrizOut7.java') )
+	end
+	
+	def test_4 #collision_1
+		g1 = generator {		
+			gsub(inside_nested_symbols( '{' , '}' )  >  inside_nested_symbols( '{' , '}' ) > /Matriz/, 'algo')
+			gdel(inside_nested_symbols( '{' , '}' )  > inside_nested_symbols( '{' , '}' ) > /triz/)
+		}
+		assert_raises(RuntimeError, "") {|| 
+			g1.prod('archAuxiliares/Matriz_N_1.java', 'archAuxiliares/MatrizOut7.java')
+		}
+	end
+
+	def test_5 #collision_2
+		g1 = generator {		
+			gsub(inside_nested_symbols( '{' , '}' )  >  inside_nested_symbols( '{' , '}' ) > /Matriz/, 'algo')
+			prod('archAuxiliares/Matriz_N_1.java', 'archAuxiliares/MatrizOut7.java')
+		}
+		g2 = generator {
+			gdel(inside_nested_symbols( '{' , '}' )  > inside_nested_symbols( '{' , '}' ) > /triz/)
+			prod('archAuxiliares/Matriz_N_1.java', 'archAuxiliares/MatrizOut7.java')
+		}
+		
+		assert_raises(RuntimeError, "") {|| 
+			g1 + g2
+		}
+	end
+
+	def test_6
+		g1 = generator {	
+			del(inside_nested_symbols( '{' , '}' ) > o(/Matriz/))
+			gsub(o(nested_symbols( '{' , '}' )) > /Matriz/, 'matriz')
+			prod('archAuxiliares/Matriz_N_1.java', 'archAuxiliares/MatrizOut8.java')
+			gen
+		}
+		assert( identicalFiles?('archAuxiliares/Matriz_8.java', 'archAuxiliares/MatrizOut8.java') )
+	end
+	
+
+	def test_7
+		g1 = generator {	
+			del(inside_nested_symbols( '{' , '}' )  > o(nested_symbols( '{' , '}' )))
+			prod('archAuxiliares/Matriz_N_2.java', 'archAuxiliares/MatrizOut9.java')
+			gen
+		}
+		assert( identicalFiles?('archAuxiliares/Matriz_9.java', 'archAuxiliares/MatrizOut9.java') )
+	end
+	
+	def test_8
+		g1 = generator {	
+			gdel(inside_nested_symbols( '{' , '}' )  > o(nested_symbols( '{' , '}' )))
+			prod('archAuxiliares/Matriz_N_2.java', 'archAuxiliares/MatrizOut10.java')
+			gen
+		}
+		assert( identicalFiles?('archAuxiliares/Matriz_10.java', 'archAuxiliares/MatrizOut10.java') )
+	end
+	
+	def test_9
+		g1 = generator {	
+			del(   inside_nested_symbols( '{' , '}' )  > /.*?(?=[{])/m   ) 
+			sub(  inside_nested_symbols( '{' , '}' ) >  /multiplicarMatrices.*multiplicarMatrices/m  > inside_nested_symbols( '{' , '}' )  >
+				 /i=0.*/m > o(/for\s*[(]int\s*k/m) > /for/, 'FOOOOR')
+			prod('archAuxiliares/Matriz_N_2.java', 'archAuxiliares/MatrizOut11.java')
+		}
+		
+		g2 = generator {	
+			sub(  inside_nested_symbols( '{' , '}' ) >  /leerMatriz.*?leerMatriz/m  > (/for\s*[(]int\s*j/m).o > /for/ , 'FOOOORrrrrrrllll')
+			prod('archAuxiliares/Matriz_N_2.java', 'archAuxiliares/MatrizOut11.java')
+		}
+
+		(g1+g2).gen
+		assert( identicalFiles?('archAuxiliares/Matriz_11.java', 'archAuxiliares/MatrizOut11.java') )
+	end	
+
+	def test_10
+		g1 = generator {}
+		str_1 = g1.extract('archAuxiliares/Matriz_N_1.java',
+			inside_nested_symbols( '{' , '}') > o(nested_symbols( '{' , '}')) > /Matriz/)
+		
+		str_2 = g1.extract('archAuxiliares/Matriz_N_1.java',
+			o(o(inside_nested_symbols( '{' , '}') > o(nested_symbols( '{' , '}')) > /Matriz/)))
+			
+		str_3 = g1.extract('archAuxiliares/Matriz_N_1.java',
+			o(inside_nested_symbols( '{' , '}') > o(nested_symbols( '{' , '}')) ))
+			
+		str_4 = g1.extract('archAuxiliares/Matriz_N_1.java',
+			inside_nested_symbols( '{' , '}') > nested_symbols( '{' , '}')) 
+		assert_equal(str_1, str_2)
+		assert_equal(str_3, str_4)		
+	end
+end

data/tests/ComplementaryZoom.rb

@@ -0,0 +1,78 @@
+require 'test/unit'
+require "EFL"
+
+########################################################
+# M�s pruebas para o y >
+#
+# Ultima actualizacion: 17-10-2007
+########################################################
+
+def identicalFiles? (f1, f2)
+	result = false
+	File.open(f1) { |fi1|
+		content01 = fi1.read
+		File.open(f2) { |fi2|
+			content2 = fi2.read
+			result = content01 == content2
+		}		
+	}
+end #identicalFiles
+
+
+class ComplementaryZoom < Test::Unit::TestCase
+
+	def test_1
+		g1 = generator {
+			sub(/<b1>.*?<\/b1>/m > o(/<b2>.*?<\/b2>/m) > /perro/, 'aqui' )
+			prod('archAuxiliares/N1.txt', 'archAuxiliares/N1_OUT.txt')
+			gen
+		}
+		assert( identicalFiles?('archAuxiliares/N1_OUT.txt', 'archAuxiliares/N1_EXPECTED.txt') )
+	end
+	
+	def test_2
+		g1 = generator {
+			gsub(/<b1>.*?<\/b1>/m > o(/<b2>.*?<\/b2>/m) > /perro/, 'aqui' )
+			prod('archAuxiliares/N1.txt', 'archAuxiliares/N2_OUT.txt')
+			gen
+		}
+		assert( identicalFiles?('archAuxiliares/N2_OUT.txt', 'archAuxiliares/N2_EXPECTED.txt') )
+	end
+
+	def test_3
+		g1 = generator {
+			sub(o(/<b1>.*?<\/b1>/m > o(/<b2>.*?<\/b2>/m) > /perro/), 'aqui' )
+			prod('archAuxiliares/N3.txt', 'archAuxiliares/N3_OUT.txt')
+			gen
+		}
+		assert( identicalFiles?('archAuxiliares/N3_OUT.txt', 'archAuxiliares/N3_EXPECTED.txt') )
+	end
+
+	def test_4
+		g1 = generator {
+			gsub(o(/<b1>.*?<\/b1>/m > o(/<b2>.*?<\/b2>/m) > /perro/), 'aqui' )
+			prod('archAuxiliares/N3.txt', 'archAuxiliares/N4_OUT.txt')
+			gen
+		}
+		assert( identicalFiles?('archAuxiliares/N4_OUT.txt', 'archAuxiliares/N4_EXPECTED.txt') )
+	end
+
+	def test_5
+		g1 = generator {
+			sub(o(/<b1>.*?<\/b1>/m > o(/<b2>.*?<\/b2>/m) > o(/perro/)), 'aqui' )
+			prod('archAuxiliares/N1.txt', 'archAuxiliares/N5_OUT.txt')
+			gen
+		}
+		assert( identicalFiles?('archAuxiliares/N5_OUT.txt', 'archAuxiliares/N1_EXPECTED.txt') )
+	end
+
+	def test_6
+		g1 = generator {
+			gsub(o(/<b1>.*?<\/b1>/m > o(/<b2>.*?<\/b2>/m) > o(/perro/)), 'aqui' )
+			prod('archAuxiliares/N1.txt', 'archAuxiliares/N6_OUT.txt')
+			gen
+		}
+		assert( identicalFiles?('archAuxiliares/N6_OUT.txt', 'archAuxiliares/N2_EXPECTED.txt') )
+	end
+
+end

data/tests/Del.rb

@@ -0,0 +1,126 @@
+require 'test/unit'
+require "EFL"
+
+########################################################
+# Bateria de pruebas para la sentencia del
+#
+# Ultima actualizacion: 14-9-2007
+########################################################
+
+def identicalFiles? (f1, f2)
+	result = false
+	File.open(f1) { |fi1|
+		content01 = fi1.read
+		File.open(f2) { |fi2|
+			content2 = fi2.read
+			result = content01 == content2
+		}		
+	}
+end #identicalFiles
+
+
+class DEL < Test::Unit::TestCase
+	def test_1
+		g1 = generator {		
+			reg_exp_str_1 = nested_symbols( '{' , '}' ).to_s
+			reg_exp_str_2 = nested_symbols( '(' , ')' ).to_s
+			p 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( '(' , ')')  >
+					/j(=)0/
+			)
+			
+			
+			del(/escribirMatriz\(\)\s*#{reg_exp_str_1}/m >
+					/for.*?#{reg_exp_str_1}/m >
+					nested_symbols( '{' , '}' ) > 
+					/for.*?(#{reg_exp_str_2})/m >
+					nested_symbols( '(' , ')')  >
+					/j(=)0/
+			)
+			
+			gdel(nested_symbols( '{' , '}' ) > /Matriz/)
+			
+			prod('archAuxiliares/Matriz.java', 'archAuxiliares/MatrizOut2.java')
+		}
+
+		g2 = generator {
+			del(/Matriz/)
+			prod('archAuxiliares/Matriz.java', 'archAuxiliares/MatrizOut2.java')
+		}
+		
+		g3 = generator {
+			del(/print/)
+			prod('archAuxiliares/Matriz.java', 'archAuxiliares/MatrizOut2.java')
+		}
+		(g1+g2+g3).gen
+		
+		assert( identicalFiles?('archAuxiliares/Matriz_2.java', 'archAuxiliares/MatrizOut2.java') )
+	end
+
+	def test_2
+		g1 = generator {		
+			reg_exp_str_1 = nested_symbols( '{' , '}' ).to_s
+			reg_exp_str_2 = nested_symbols( '(' , ')' ).to_s
+			p 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( '(' , ')')  >
+					/j(=)0/
+			)
+			
+			
+			del(/escribirMatriz\(\)\s*#{reg_exp_str_1}/m >
+					/for.*?#{reg_exp_str_1}/m >
+					nested_symbols( '{' , '}' ) > 
+					/for.*?(#{reg_exp_str_2})/m >
+					nested_symbols( '(' , ')')  >
+					/j(=)0/
+			)
+			
+			gdel(nested_symbols( '{' , '}' ) > /Matriz/)
+			
+			prod('archAuxiliares/Matriz.java', 'archAuxiliares/MatrizOut2.java')
+		}
+
+		g2 = generator {
+			gdel(/Matriz/)
+			prod('archAuxiliares/Matriz.java', 'archAuxiliares/MatrizOut2.java')
+		}
+		
+		g3 = generator {
+			del(/print/)
+			prod('archAuxiliares/Matriz.java', 'archAuxiliares/MatrizOut2.java')
+		}
+		
+		assert_raises(RuntimeError, "") {||
+			(g1+g2+g3).gen
+		}
+	end
+	
+	def test_3
+		g = generator {		
+			del(/initialize\(name/)
+			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 tes_4
+		g1 = generator { gdel(/initialize/, 'constructor') }
+		g2 = generator { gsub(/crash/, 'colisi�n') }
+		g1.prod('archAuxiliares/aspectGen.rb', 'archAuxiliares/1.txt')		
+		g2.prod('archAuxiliares/aspectgenCopy.rb', 'archAuxiliares/1.txt')		
+		assert(!g1.add?(g2))
+	end
+
+end

data/tests/Dup.rb

@@ -0,0 +1,55 @@
+
+require 'test/unit'
+require "EFL"
+
+########################################################
+# Bateria de pruebas para las funciones Generator#dup, Production#dup, 
+# Substitution#dup
+#
+# Ultima actualizacion: 6-10-2004
+########################################################
+
+class Dup < Test::Unit::TestCase
+	def setup
+		@g1 = Generator.new
+	end
+
+	def test_1
+		print "\n\n\nTEST 1:\n"
+		@g1.gsub(/initialize/, 'constructor', 's1')
+		p @g1
+		@g2 = @g1.dup
+		p @g2
+		@g2.gsub(/initialize/, 'pepe', 's1')
+		print "\n--- Despu�s de dup ---\n\n"
+		p @g1
+		p @g2		
+	end
+	
+	def test_2
+		# comportamiento de dup para una tabla hash
+		print "\n\n\nTEST 2:\n"
+		x1 = {'juan'=> [1, 2, 3],
+			'luis' => { 'pepe' => [1, 2] }
+			}
+		p x1, ""
+		
+		x2 = x1.dup
+		x2['juan'] = x2['juan'] + [4]
+		p x1, x2, ""
+		
+		x2 = x1.dup
+		x2['luis'] = [1, 2]
+		p x1, x2, ""
+
+		x2 = x1.dup
+		x2['luis'] = x2['luis']['pepe'] - [1]
+		p x1, x2, ""
+
+		x2 = x1.dup
+		x2['luis']['pepe'] = x2['luis']['pepe'] - [1]
+		p x1, x2, ""
+
+	end
+end
+	

data/tests/Dup.rb.bak

@@ -0,0 +1,54 @@
+require 'test/unit'
+require "EFL"
+
+########################################################
+# Bateria de pruebas para las funciones Generator#dup, Production#dup, 
+# Substitution#dup
+#
+# Ultima actualizacion: 6-10-2004
+########################################################
+
+class Dup < Test::Unit::TestCase
+	def setup
+		@g1 = Generator.new
+	end
+
+	def test_1
+		print "\n\n\nTEST 1:\n"
+		@g1.gsub(/initialize/, 'constructor', 's1')
+		p @g1
+		@g2 = @g1.dup
+		p @g2
+		@g2.gsub(/initialize/, 'pepe', 's1')
+		print "\n--- Despu�s de dup ---\n\n"
+		p @g1
+		p @g2		
+	end
+	
+	def test_2
+		# comportamiento de dup para una tabla hash
+		print "\n\n\nTEST 2:\n"
+		x1 = {'juan'=> [1, 2, 3],
+			'luis' => { 'pepe' => [1, 2] }
+			}
+		p x1, ""
+		
+		x2 = x1.dup
+		x2['juan'] = x2['juan'] + [4]
+		p x1, x2, ""
+		
+		x2 = x1.dup
+		x2['luis'] = [1, 2]
+		p x1, x2, ""
+
+		x2 = x1.dup
+		x2['luis'] = x2['luis']['pepe'] - [1]
+		p x1, x2, ""
+
+		x2 = x1.dup
+		x2['luis']['pepe'] = x2['luis']['pepe'] - [1]
+		p x1, x2, ""
+
+	end
+end
+