Program UnitTestsM68000;

@define OVERRIDE $20000
@projectsettings "amstradcpc_options" "-O system.printer=1 -O file.printer_file=/tmp/printer.dat"
@use "unittests/unittests"
@use "unittests/common"

procedure TestResult(txt:pointer);
begin
  Screen::Print(txt);
  Screen::NewLine();
end;


begin
	Unittests::Exec();
	if Common::unittests_status = 0 then
		TestResult("SUCCESS!")
	else
		TestResult("FAILURE!");
	loop();
end.