shithub: purgatorio

ref: e11c7aa718df592bd69de53ce1d6498cc870f256
dir: /opt/skel/appl/lib/t/smoke.b/

View raw version
implement T;

include "opt/powerman/tap/module/t.m";
include "../../../module/examplelib.m";
	examplelib: ExampleLib;


test()
{
	plan(1);

	examplelib = load ExampleLib ExampleLib->PATH;
	if(examplelib == nil)
		bail_out(sprint("load %s: %r",ExampleLib->PATH));

	{ examplelib->init(); } exception e { "*"=>catched(e); }
	raised(nil, "init() doesn't raise");
}