test_happy.erl

-module(test_happy).
-compile(export_all).

poi1Old() ->
	{'happy_old.erl',6,call,1}.
poi1New() ->
	{'happy_new.erl',29,call,1}.
poi2Old() ->
	{'happy_old.erl',10,call,1}.
poi2New() ->
	{'happy_new.erl',21,call,1}.
poi3Old() ->
	{'happy_old.erl',10,{var,'X'},1}.
poi3New() ->
	{'happy_new.erl',21,{var,'X'},1}.


rel1() ->
	[{poi1Old(),poi1New()}].
rel2() ->
	[{poi1Old(),poi1New()},{poi2Old(),poi2New()}].
rel3() ->
	[{poi3Old(),poi3New()}].

funs() ->
	"[main/2]".

comp_perf(TO,TN) ->
	ZippedList = lists:zip(TO,TN), 
	lists:foldl(
		fun
			(_,{false,Msg}) ->
				{false,Msg};
			({{_,VO},{_,VN}},_) ->
				case VO of 
					VN ->
						true; 
					_ ->
						{false,"Bad Calculation"} 
				end
		end,
	true , 
	ZippedList).