diff --git a/aunit-experiment/Makefile b/aunit-experiment/Makefile
new file mode 100644
index 0000000..5caec5c
--- /dev/null
+++ b/aunit-experiment/Makefile
@@ -0,0 +1,12 @@
+
+all:
+	mkdir -p build
+	gprbuild -p tests.gpr
+
+
+test: all
+	./runtests
+
+clean:
+	rm -rf build
+	rm -f runtests
diff --git a/aunit-experiment/simpletest/runtests.adb b/aunit-experiment/simpletest/runtests.adb
new file mode 100644
index 0000000..4ae9d6b
--- /dev/null
+++ b/aunit-experiment/simpletest/runtests.adb
@@ -0,0 +1,13 @@
+with AUnit.Reporter.Text;
+with AUnit.Run;
+
+with SimpleTest.Suite;
+use SimpleTest.Suite;
+
+procedure RunTests is
+    procedure Runner is new AUnit.Run.Test_Runner (Suite);
+    Reporter : AUnit.Reporter.Text.Text_Reporter;
+begin
+    -- Set_Use_ANSI_Colors();
+    Runner(Reporter);
+end RunTests;
diff --git a/aunit-experiment/simpletest/simpletest-suite.adb b/aunit-experiment/simpletest/simpletest-suite.adb
new file mode 100644
index 0000000..d87a8aa
--- /dev/null
+++ b/aunit-experiment/simpletest/simpletest-suite.adb
@@ -0,0 +1,12 @@
+with SimpleTest;
+
+
+package body SimpleTest.Suite is
+    use AUnit.Test_Suites;
+    function Suite return Access_Test_Suite is
+        Result : constant Access_Test_Suite := new Test_Suite;
+    begin
+        Result.Add_Test(new SimpleTest.Test);
+        return Result;
+    end Suite;
+end SimpleTest.Suite;
diff --git a/aunit-experiment/simpletest/simpletest-suite.ads b/aunit-experiment/simpletest/simpletest-suite.ads
new file mode 100644
index 0000000..5da22ac
--- /dev/null
+++ b/aunit-experiment/simpletest/simpletest-suite.ads
@@ -0,0 +1,6 @@
+with AUnit.Test_Suites;
+use AUnit.Test_Suites;
+
+package SimpleTest.Suite is 
+    function Suite return Access_Test_Suite;
+end SimpleTest.Suite;
diff --git a/aunit-experiment/simpletest/simpletest.adb b/aunit-experiment/simpletest/simpletest.adb
new file mode 100644
index 0000000..39f74ff
--- /dev/null
+++ b/aunit-experiment/simpletest/simpletest.adb
@@ -0,0 +1,22 @@
+--
+--  Simple AUnit test package body
+--
+
+with AUnit.Assertions;
+use AUnit.Assertions;
+
+package body SimpleTest is
+    function Name(T: Test) return AUnit.Message_String is
+        pragma Unreferenced(T);
+    begin
+        return AUnit.Format("SimpleTest package");
+    end Name;
+
+    procedure Run_Test(T: In out Test) is
+        pragma Unreferenced(T);
+    begin
+        Assert(True, "How can True be false!");
+        Assert(False, "False is False, a-doy");
+    end Run_Test;
+end SimpleTest;
+
diff --git a/aunit-experiment/simpletest/simpletest.ads b/aunit-experiment/simpletest/simpletest.ads
new file mode 100644
index 0000000..a88605c
--- /dev/null
+++ b/aunit-experiment/simpletest/simpletest.ads
@@ -0,0 +1,12 @@
+--
+--  Simple AUnit (AdaUnit) test spec file
+--
+
+with AUnit;
+with AUnit.Simple_Test_Cases;
+
+package SimpleTest is
+    type Test is new AUnit.Simple_Test_Cases.Test_Case with null record;
+    function Name (T : Test) return AUnit.Message_String;
+    procedure Run_Test (T : in out Test);
+end SimpleTest;
diff --git a/aunit-experiment/tests.gpr b/aunit-experiment/tests.gpr
new file mode 100644
index 0000000..2aaa5b6
--- /dev/null
+++ b/aunit-experiment/tests.gpr
@@ -0,0 +1,13 @@
+with "aunit";
+
+project Simpletest is
+    for Source_Dirs use ("simpletest");
+    for Main use ("runtests.adb");
+    for Object_Dir use "build";
+    for Exec_Dir use ".";
+
+    package Compiler is
+        for Default_Switches("ada") use
+            ("-g", "-gnat05");
+    end Compiler;
+end Simpletest;