tests/org.eclipse.m2m.tests.qvt.oml/unparserTestData/sources/CheckMemoryLeak/CheckMemoryLeak.qvto

modeltype ECORE "strict" uses ecore('http://www.eclipse.org/emf/2002/Ecore');

/*
* https://bugs.eclipse.org/bugs/show_bug.cgi?id=279251
*/
transformation CheckMemoryLeak(in input : ECORE, out output : ECORE);

intermediate property EPackage::myFriend : EPackage;

main() {
	var p : EPackage;	
	p := input.rootObjects()![EPackage];
	assert fatal (not p.oclIsUndefined());	
	
	// ensure no object is there from previous executions
	assert fatal (p.myFriend = null);
			
	p.myFriend := p;
	assert fatal (p.myFriend = p);
}