EFL 1.0

data/tests/Add_Sup_1_NI.rb

@@ -0,0 +1,25 @@
+require 'test/unit'
+require 'EFL'
+
+########################################################
+# Bateria de pruebas para las funciones add? y sup?
+# Nueva interfaz
+# Ultima actualizacion: 15-6-2007
+########################################################
+
+
+class Add_Sup_1 < Test::Unit::TestCase
+
+	def test_1
+		g1 = generator {
+			gsub(/initialize/, 'constructor')
+			prod('archAuxiliares/aspectGen.rb', 'archAuxiliares/1.txt')	
+		}
+		g2 = generator{ 
+			gsub(/crash/, 'colisi�n') 
+			prod('archAuxiliares/aspectGen.rb', 'archAuxiliares/2.txt')		
+		}
+		assert(g1.add?(g2))
+	end
+
+end

data/tests/Add_Sup_2.rb

@@ -0,0 +1,142 @@
+
+
+require 'test/unit'
+require 'EFL'
+
+########################################################
+# Bateria de pruebas para el m�todo gen
+#
+# Ultima actualizacion: 30-9-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
+		@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(/initialize/, "CONSTRUCTORRR!!!!", 's1')
+		@g2.gsub(/name/, "NOMBRE!!!!", 's3')		
+		@g2.prod('archAuxiliares\aspectgen.rb', 'archAuxiliares\s1.txt','all', 'p1')
+		@g3.gsub(/two/, "DOS!!!!", 's4')		
+		@g3.prod('archAuxiliares\aspectgen.rb', 'archAuxiliares\s1.txt','all', 'p2')
+	end
+	
+	def test_1
+		@g1.gen
+		@g1.add(@g2).gen
+		assert( identicalFiles?('archAuxiliares\Gen\t01.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_2
+		@g2.add(@g1).gen
+		assert( identicalFiles?('archAuxiliares\Gen\t01.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_3
+		(@g1 + @g2).gen
+		assert( identicalFiles?('archAuxiliares\Gen\t01.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_4
+		(@g2 + @g1).gen
+		assert( identicalFiles?('archAuxiliares\Gen\t01.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_5
+		@g1.sup!(@g2)
+		@g1.gen
+		assert( !identicalFiles?('archAuxiliares\Gen\t01.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_6
+		@g1 << @g2
+		@g1.gen
+		assert( !identicalFiles?('archAuxiliares\Gen\t01.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_7
+		@g1.sup!(@g2)
+		@g1.gen
+		assert( identicalFiles?('archAuxiliares\Gen\t02.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_8
+		@g1 << @g2
+		@g1.gen
+		assert( identicalFiles?('archAuxiliares\Gen\t02.txt', 'archAuxiliares\s1.txt'), '')
+	end
+	
+	def test_9
+		@g2 << @g1
+		@g2.gen
+		assert(! identicalFiles?('archAuxiliares\Gen\t02.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_10
+
+		((@g1.add(@g2)).add(@g3)).gen
+		assert(identicalFiles?('archAuxiliares\Gen\t03.txt', 'archAuxiliares\s1.txt'), '')
+	end
+	
+	def test_11
+		((@g2.add(@g3)).add(@g1)).gen
+		assert(identicalFiles?('archAuxiliares\Gen\t03.txt', 'archAuxiliares\s1.txt'), '')
+	end
+	
+	def test_12
+		(@g2 + @g1 + @g3).gen
+		assert(identicalFiles?('archAuxiliares\Gen\t03.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_13
+		(@g1 + @g3 + @g2).gen
+		assert(identicalFiles?('archAuxiliares\Gen\t03.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_14
+		@g1.sup!(@g2)
+		@g1.sup!(@g3)
+		@g1.gen
+		assert(identicalFiles?('archAuxiliares\Gen\t04.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_15
+		@g1.sup!(@g3)
+		@g1.sup!(@g2)
+		@g1.gen
+		assert(identicalFiles?('archAuxiliares\Gen\t04.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_16
+		@g1 << @g3 << @g2
+		@g1.gen
+		assert(identicalFiles?('archAuxiliares\Gen\t04.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_17
+		@g1 << @g2 << @g3
+		@g1.gen
+		assert(identicalFiles?('archAuxiliares\Gen\t04.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_18
+		@g2 << @g2 << @g1
+		@g1.gen
+		assert(! identicalFiles?('archAuxiliares\Gen\t04.txt', 'archAuxiliares\s1.txt'), '')
+	end
+end
+

data/tests/Add_Sup_2.rb.bak

@@ -0,0 +1,140 @@
+
+require 'test/unit'
+require 'EFL.rb'
+
+########################################################
+# Bateria de pruebas para el m�todo gen
+#
+# Ultima actualizacion: 30-9-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
+		@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(/initialize/, "CONSTRUCTORRR!!!!", 's1')
+		@g2.gsub(/name/, "NOMBRE!!!!", 's3')		
+		@g2.prod('archAuxiliares\aspectgen.rb', 'archAuxiliares\s1.txt','all', 'p1')
+		@g3.gsub(/two/, "DOS!!!!", 's4')		
+		@g3.prod('archAuxiliares\aspectgen.rb', 'archAuxiliares\s1.txt','all', 'p2')
+	end
+
+	def test_1
+		@g1.add(@g2).gen
+		assert( identicalFiles?('archAuxiliares\Gen\t01.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_2
+		@g2.add(@g1).gen
+		assert( identicalFiles?('archAuxiliares\Gen\t01.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_3
+		(@g1 + @g2).gen
+		assert( identicalFiles?('archAuxiliares\Gen\t01.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_4
+		(@g2 + @g1).gen
+		assert( identicalFiles?('archAuxiliares\Gen\t01.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_5
+		@g1.sup!(@g2)
+		@g1.gen
+		assert( !identicalFiles?('archAuxiliares\Gen\t01.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_6
+		@g1 << @g2
+		@g1.gen
+		assert( !identicalFiles?('archAuxiliares\Gen\t01.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_7
+		@g1.sup!(@g2)
+		@g1.gen
+		assert( identicalFiles?('archAuxiliares\Gen\t02.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_8
+		@g1 << @g2
+		@g1.gen
+		assert( identicalFiles?('archAuxiliares\Gen\t02.txt', 'archAuxiliares\s1.txt'), '')
+	end
+	
+	def test_9
+		@g2 << @g1
+		@g2.gen
+		assert(! identicalFiles?('archAuxiliares\Gen\t02.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_10
+
+		((@g1.add(@g2)).add(@g3)).gen
+		assert(identicalFiles?('archAuxiliares\Gen\t03.txt', 'archAuxiliares\s1.txt'), '')
+	end
+	
+	def test_11
+		((@g2.add(@g3)).add(@g1)).gen
+		assert(identicalFiles?('archAuxiliares\Gen\t03.txt', 'archAuxiliares\s1.txt'), '')
+	end
+	
+	def test_12
+		(@g2 + @g1 + @g3).gen
+		assert(identicalFiles?('archAuxiliares\Gen\t03.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_13
+		(@g1 + @g3 + @g2).gen
+		assert(identicalFiles?('archAuxiliares\Gen\t03.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_14
+		@g1.sup!(@g2)
+		@g1.sup!(@g3)
+		@g1.gen
+		assert(identicalFiles?('archAuxiliares\Gen\t04.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_15
+		@g1.sup!(@g3)
+		@g1.sup!(@g2)
+		@g1.gen
+		assert(identicalFiles?('archAuxiliares\Gen\t04.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_16
+		@g1 << @g3 << @g2
+		@g1.gen
+		assert(identicalFiles?('archAuxiliares\Gen\t04.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_17
+		@g1 << @g2 << @g3
+		@g1.gen
+		assert(identicalFiles?('archAuxiliares\Gen\t04.txt', 'archAuxiliares\s1.txt'), '')
+	end
+
+	def test_18
+		@g2 << @g2 << @g1
+		@g1.gen
+		assert(! identicalFiles?('archAuxiliares\Gen\t04.txt', 'archAuxiliares\s1.txt'), '')
+	end
+end
+

data/tests/All.rb

@@ -0,0 +1,2 @@
+require "All_1"
+require "All_2"

data/tests/All_1.rb

@@ -0,0 +1,7 @@
+require 'test/unit'
+require 'HashTest'
+#require 'RenameTest'
+require 'Add_Sup_1'
+require 'Add_Sup_2'
+require 'Satisfy'
+require 'Error'

data/tests/All_2.rb

@@ -0,0 +1,7 @@
+require 'Extract'
+require 'REVit'
+require 'Del'
+require 'BeforeAfter'
+require 'Complementary'
+require 'ComplementaryZoom'
+require 'Minus'

data/tests/All_2.rb.bak

@@ -0,0 +1,5 @@
+require 'Extract'
+require 'REVit'
+require 'Del'
+require 'BeforeAfter'
+require 'Neg'

data/tests/BeforeAfter.rb

@@ -0,0 +1,83 @@
+require 'test/unit'
+require "EFL"
+
+########################################################
+# Bateria de pruebas para las sentencias before, gbefopre, after y gafter
+#
+# 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 BeforeAfter < Test::Unit::TestCase
+	def test_1
+		g1 = generator {		
+			reg_exp_str_1 = nested_symbols( '{' , '}' ).to_s
+			reg_exp_str_2 = nested_symbols( '(' , ')' ).to_s			
+			before(/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/,
+				'<<before_1>>'
+			)
+			gbefore(nested_symbols( '{' , '}' ) > /Matriz/, '<<before_2>>')
+			
+			prod('archAuxiliares/Matriz.java', 'archAuxiliares/MatrizOut3.java')
+		}
+		g2 = generator {
+			gafter(/Matriz/, '<<after_1>>')
+			gsub(nested_symbols( '{' , '}' ) > /Matriz/, '<<sub_1>>')
+			prod('archAuxiliares/Matriz.java', 'archAuxiliares/MatrizOut3.java')
+		}
+		
+		g3 = generator {
+			after(/print/, '<<after_2>>')
+			sub(/Matriz/, '<<sub_2>>')
+			prod('archAuxiliares/Matriz.java', 'archAuxiliares/MatrizOut3.java')
+		}
+		(g1+g2+g3).gen
+		assert( identicalFiles?('archAuxiliares/Matriz_3.java', 'archAuxiliares/MatrizOut3.java') )
+	end
+	def test_2
+		g1 = generator {		
+			reg_exp_str_1 = nested_symbols( '{' , '}' ).to_s
+			reg_exp_str_2 = nested_symbols( '(' , ')' ).to_s			
+			before(/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/,
+				'<<before_1>>'
+			)
+			gbefore(nested_symbols( '{' , '}' ) > /Matriz/, '<<before_2>>')
+			
+			prod('archAuxiliares/Matriz.java', 'archAuxiliares/MatrizOut4.java')
+		}
+		g2 = generator {
+			gafter(/Matriz/, '<<after_1>>')
+			gdel(nested_symbols( '{' , '}' ) > /Matriz/)
+			prod('archAuxiliares/Matriz.java', 'archAuxiliares/MatrizOut4.java')
+		}
+		
+		g3 = generator {
+			after(/print/, '<<after_2>>')
+			del(/Matriz/)
+			prod('archAuxiliares/Matriz.java', 'archAuxiliares/MatrizOut4.java')
+		}
+		(g1+g2+g3).gen
+		assert( identicalFiles?('archAuxiliares/Matriz_4.java', 'archAuxiliares/MatrizOut4.java') )
+	end
+end

data/tests/Bloques.rb

@@ -0,0 +1,34 @@
+require 'test/unit'
+require 'EFL'
+
+########################################################
+# 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