From 25f33e77d2254791d76cc84f0f9e67e9cccf1a67 Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 6 Mar 2008 10:58:54 +0000
Subject: added first steps to building some unit tests.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@920 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/UnitTests/test_libraries.lpr | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 Game/Code/UnitTests/test_libraries.lpr

(limited to 'Game/Code/UnitTests/test_libraries.lpr')

diff --git a/Game/Code/UnitTests/test_libraries.lpr b/Game/Code/UnitTests/test_libraries.lpr
new file mode 100644
index 00000000..3e3ae380
--- /dev/null
+++ b/Game/Code/UnitTests/test_libraries.lpr
@@ -0,0 +1,31 @@
+program Test_Libraries;
+
+{$mode objfpc}{$H+}
+
+uses
+  Classes,
+  consoletestrunner,
+  TestSQLLite,
+  SQLite3 in '../lib/SQLite/SQLite3.pas',
+
+  SQLiteTable3 in '../lib/SQLite/SQLiteTable3.pas';
+
+type
+
+  { TLazTestRunner }
+
+  TMyTestRunner = class(TTestRunner)
+  protected
+  // override the protected methods of TTestRunner to customize its behavior
+  end;
+
+var
+  Application: TMyTestRunner;
+
+begin
+  Application := TMyTestRunner.Create(nil);
+  Application.Initialize;
+  Application.Title := 'FPCUnit Console test runner';
+  Application.Run;
+  Application.Free;
+end.
-- 
cgit v1.2.3