view run/delete_01.d @ 1330:f3f715978184

Georg Wrede <georg@iki.fi> 2007-01-07 mail:45A120F5.1050108@iki.fi
author thomask
date Sat, 13 Jan 2007 10:33:49 +0000
parents f07f77e65213
children
line wrap: on
line source

// $HeadURL$
// $Date$
// $Author$

// @WARNING@ direct usage of Phobos's GC

module dstress.run.delete_01;
import std.gc;

int status;

class MyClass{
	~this(){
		assert(status==0);
		status--;
	}

	delete(void* p){
		assert(status==-1);
		status--;
	}
}

void test(){
	MyClass c=new MyClass();
	assert(status==0);
	delete c;
}

int main(){
	test();
	assert(status<=-1);
	std.gc.fullCollect();
	std.gc.minimize();
	assert(status==-2);
	return 0;
}