8de5b49cdf 2010-11-09        kinaba: /**
8de5b49cdf 2010-11-09        kinaba:  * Authors: k.inaba
8de5b49cdf 2010-11-09        kinaba:  * License: NYSL 0.9982 http://www.kmonos.net/nysl/
8de5b49cdf 2010-11-09        kinaba:  *
8de5b49cdf 2010-11-09        kinaba:  * Unittest helpers.
6f0ec5b7c9 2010-11-11        kinaba:  * TODO: use stderr instead of stdout. the problem is that std.cstream is xxxx....
6f0ec5b7c9 2010-11-11        kinaba:  * TODO: is there any way to clearnly implement "assert_compiles" and "assert_not_compile"?
8de5b49cdf 2010-11-09        kinaba:  */
8de5b49cdf 2010-11-09        kinaba: module tricks.test;
8de5b49cdf 2010-11-09        kinaba: import std.conv : to;
8de5b49cdf 2010-11-09        kinaba: import core.exception;
8de5b49cdf 2010-11-09        kinaba: 
6f0ec5b7c9 2010-11-11        kinaba: version(unittest)
6f0ec5b7c9 2010-11-11        kinaba: {
6f0ec5b7c9 2010-11-11        kinaba: 	import std.stdio;
6f0ec5b7c9 2010-11-11        kinaba: 	import core.runtime;
6f0ec5b7c9 2010-11-11        kinaba: 
6f0ec5b7c9 2010-11-11        kinaba: 	// Install custom test runner
6f0ec5b7c9 2010-11-11        kinaba: 	static this()
6f0ec5b7c9 2010-11-11        kinaba: 	{
6f0ec5b7c9 2010-11-11        kinaba: 		Runtime.moduleUnitTester = function()
6f0ec5b7c9 2010-11-11        kinaba: 		{
6f0ec5b7c9 2010-11-11        kinaba: 			Throwable ee = null;
6f0ec5b7c9 2010-11-11        kinaba: 			size_t failed=0;
6f0ec5b7c9 2010-11-11        kinaba: 			foreach(m; ModuleInfo) if(m) if(auto fp=m.unitTest)
6f0ec5b7c9 2010-11-11        kinaba: 			{
6f0ec5b7c9 2010-11-11        kinaba: 				writeln("[TEST] ", m.name);
6f0ec5b7c9 2010-11-11        kinaba: 				try {
6f0ec5b7c9 2010-11-11        kinaba: 					fp();
6f0ec5b7c9 2010-11-11        kinaba: 				} catch( Throwable e ) {
6f0ec5b7c9 2010-11-11        kinaba: 					if(ee is null)
6f0ec5b7c9 2010-11-11        kinaba: 						ee = e;
6f0ec5b7c9 2010-11-11        kinaba: 					failed++;
6f0ec5b7c9 2010-11-11        kinaba: 					writeln("  !! ",e.file,"(",e.line,"): ",e.msg);
6f0ec5b7c9 2010-11-11        kinaba: 				}
6f0ec5b7c9 2010-11-11        kinaba: 			}
6f0ec5b7c9 2010-11-11        kinaba: 			if(ee !is null)
6f0ec5b7c9 2010-11-11        kinaba: 			{
6f0ec5b7c9 2010-11-11        kinaba: 				writeln("[TEST] ",failed," modules failed. The first error was:");
6f0ec5b7c9 2010-11-11        kinaba: 				writeln(ee);
6f0ec5b7c9 2010-11-11        kinaba: 				write("[TEST] press enter to exit.");
6f0ec5b7c9 2010-11-11        kinaba: 				readln();
6f0ec5b7c9 2010-11-11        kinaba: 				return false;
6f0ec5b7c9 2010-11-11        kinaba: 			}
6f0ec5b7c9 2010-11-11        kinaba: 			return true;
6f0ec5b7c9 2010-11-11        kinaba: 		};
6f0ec5b7c9 2010-11-11        kinaba: 	}
6f0ec5b7c9 2010-11-11        kinaba: }
6f0ec5b7c9 2010-11-11        kinaba: 
8de5b49cdf 2010-11-09        kinaba: /// Unittest helper that asserts an expression must throw something
8de5b49cdf 2010-11-09        kinaba: 
6f0ec5b7c9 2010-11-11        kinaba: void assert_throw(ExcT=Throwable, T, string fn=__FILE__, size_t ln=__LINE__)(lazy T t, string msg="")
8de5b49cdf 2010-11-09        kinaba: {
6f0ec5b7c9 2010-11-11        kinaba: 	static if( is(ExcT == Throwable) )
7465fcdd7f 2010-11-09        kinaba: 		try
7465fcdd7f 2010-11-09        kinaba: 			{ t(); }
6f0ec5b7c9 2010-11-11        kinaba: 		catch(ExcT)
7465fcdd7f 2010-11-09        kinaba: 			{ return; }
7465fcdd7f 2010-11-09        kinaba: 	else
7465fcdd7f 2010-11-09        kinaba: 		try
7465fcdd7f 2010-11-09        kinaba: 			{ t(); }
6f0ec5b7c9 2010-11-11        kinaba: 		catch(ExcT)
7465fcdd7f 2010-11-09        kinaba: 			{ return; }
7465fcdd7f 2010-11-09        kinaba: 		catch(Throwable e)
6f0ec5b7c9 2010-11-11        kinaba: 			{ onAssertErrorMsg(fn, ln, msg.length ? msg : "bad exception \n  >> "~e.toString()); }
2459e9a821 2010-11-09        kinaba: 	onAssertErrorMsg(fn, ln, msg.length ? msg : "not thrown");
8de5b49cdf 2010-11-09        kinaba: }
8de5b49cdf 2010-11-09        kinaba: 
8de5b49cdf 2010-11-09        kinaba: /// Unittest helper that asserts an expression must not throw anything
8de5b49cdf 2010-11-09        kinaba: 
38fcc662be 2010-11-10        kinaba: T assert_nothrow(T, string fn=__FILE__, size_t ln=__LINE__)(lazy T t, string msg="")
8de5b49cdf 2010-11-09        kinaba: {
8de5b49cdf 2010-11-09        kinaba: 	try
8de5b49cdf 2010-11-09        kinaba: 		{ return t(); }
8de5b49cdf 2010-11-09        kinaba: 	catch(Throwable e)
6f0ec5b7c9 2010-11-11        kinaba: 		{ onAssertErrorMsg(fn, ln, msg.length ? msg : "bad exception \n  >> "~e.toString()); }
8de5b49cdf 2010-11-09        kinaba: 	assert(false);
8de5b49cdf 2010-11-09        kinaba: }
8de5b49cdf 2010-11-09        kinaba: 
8de5b49cdf 2010-11-09        kinaba: unittest
8de5b49cdf 2010-11-09        kinaba: {
8de5b49cdf 2010-11-09        kinaba: 	auto error = {throw new Error("hello");};
8de5b49cdf 2010-11-09        kinaba: 	auto nothing = (){};
8de5b49cdf 2010-11-09        kinaba: 	auto assertError = {assert(0);};
8de5b49cdf 2010-11-09        kinaba: 
8de5b49cdf 2010-11-09        kinaba: 	assert_nothrow          ( assert_nothrow(nothing()) );
8de5b49cdf 2010-11-09        kinaba: 	assert_throw!AssertError( assert_nothrow(error()) );
8de5b49cdf 2010-11-09        kinaba: 	assert_throw!AssertError( assert_nothrow(assertError()) );
8de5b49cdf 2010-11-09        kinaba: 
8de5b49cdf 2010-11-09        kinaba: 	assert_nothrow          ( assert_throw!Error(error()) );
8de5b49cdf 2010-11-09        kinaba: 	assert_throw!AssertError( assert_throw!Error(nothing()) );
8de5b49cdf 2010-11-09        kinaba: 	assert_nothrow          ( assert_throw!Error(assertError()) );
8de5b49cdf 2010-11-09        kinaba: 	assert_throw!AssertError( assert_throw!AssertError(error()) );
8de5b49cdf 2010-11-09        kinaba: }
8de5b49cdf 2010-11-09        kinaba: 
8de5b49cdf 2010-11-09        kinaba: template assertOp(string op)
8de5b49cdf 2010-11-09        kinaba: {
d78d700f7a 2010-11-09        kinaba: 	void assertOp(A, B, string fn=__FILE__, size_t ln=__LINE__)(A a, B b, string msg="")
8de5b49cdf 2010-11-09        kinaba: 	{
8de5b49cdf 2010-11-09        kinaba: 		try
8de5b49cdf 2010-11-09        kinaba: 			{ if( mixin("a"~op~"b") ) return; }
8de5b49cdf 2010-11-09        kinaba: 		catch(Throwable e)
6f0ec5b7c9 2010-11-11        kinaba: 			{ onAssertErrorMsg(fn, ln, msg.length ? msg : "bad exception \n  >> "~e.toString()); }
0f02103885 2010-11-09        kinaba: 		onAssertErrorMsg(fn, ln, msg.length ? msg : to!string(a)~" !"~op~" "~to!string(b));
8de5b49cdf 2010-11-09        kinaba: 	}
8de5b49cdf 2010-11-09        kinaba: }
8de5b49cdf 2010-11-09        kinaba: 
38fcc662be 2010-11-10        kinaba: alias assertOp!(`==`) assert_eq; /// asserts two operands are ==
38fcc662be 2010-11-10        kinaba: alias assertOp!(`!=`) assert_ne; /// asserts two operands are !=
38fcc662be 2010-11-10        kinaba: alias assertOp!(`<`)  assert_lt; /// asserts two operands are <
38fcc662be 2010-11-10        kinaba: alias assertOp!(`<=`) assert_le; /// asserts two operands are <=
38fcc662be 2010-11-10        kinaba: alias assertOp!(`>`)  assert_gt; /// asserts two operands are >
38fcc662be 2010-11-10        kinaba: alias assertOp!(`>=`) assert_ge; /// asserts two operands are >=
8de5b49cdf 2010-11-09        kinaba: 
8de5b49cdf 2010-11-09        kinaba: unittest
8de5b49cdf 2010-11-09        kinaba: {
8de5b49cdf 2010-11-09        kinaba: 	assert_nothrow( assert_eq(1, 1) );
8de5b49cdf 2010-11-09        kinaba: 	assert_nothrow( assert_ne(1, 0) );
8de5b49cdf 2010-11-09        kinaba: 	assert_nothrow( assert_lt(0, 1) );
8de5b49cdf 2010-11-09        kinaba: 	assert_nothrow( assert_le(0, 1) );
8de5b49cdf 2010-11-09        kinaba: 	assert_nothrow( assert_le(0, 0) );
8de5b49cdf 2010-11-09        kinaba: 	assert_nothrow( assert_gt(1, 0) );
8de5b49cdf 2010-11-09        kinaba: 	assert_nothrow( assert_ge(1, 0) );
8de5b49cdf 2010-11-09        kinaba: 	assert_nothrow( assert_ge(0, 0) );
8de5b49cdf 2010-11-09        kinaba: 
8de5b49cdf 2010-11-09        kinaba: 	assert_throw!AssertError( assert_eq(1, 0) );
8de5b49cdf 2010-11-09        kinaba: 	assert_throw!AssertError( assert_ne(1, 1) );
8de5b49cdf 2010-11-09        kinaba: 	assert_throw!AssertError( assert_lt(1, 1) );
8de5b49cdf 2010-11-09        kinaba: 	assert_throw!AssertError( assert_lt(1, 0) );
8de5b49cdf 2010-11-09        kinaba: 	assert_throw!AssertError( assert_le(1, 0) );
8de5b49cdf 2010-11-09        kinaba: 	assert_throw!AssertError( assert_gt(0, 0) );
8de5b49cdf 2010-11-09        kinaba: 	assert_throw!AssertError( assert_gt(0, 1) );
8de5b49cdf 2010-11-09        kinaba: 	assert_throw!AssertError( assert_ge(0, 1) );
8de5b49cdf 2010-11-09        kinaba: 
8de5b49cdf 2010-11-09        kinaba: 	class Temp { bool opEquals(int x){return x/x==x;} }
8de5b49cdf 2010-11-09        kinaba: 	assert_throw!AssertError( assert_eq(new Temp, 0) );
8de5b49cdf 2010-11-09        kinaba: 	assert_nothrow          ( assert_eq(new Temp, 1) );
8de5b49cdf 2010-11-09        kinaba: 	assert_throw!AssertError( assert_eq(new Temp, 2) );
8de5b49cdf 2010-11-09        kinaba: }