Added an outline of a test milter.

1 files changed, 21 insertions, 0 deletions

diff --git a/test/thread_wrapping.adb b/test/thread_wrapping.adb
new file mode 100644
index 0000000..75201e0
--- /dev/null
+++ b/test/thread_wrapping.adb
@@ -0,0 +1,21 @@
+-- The Ada Milter API test milter
+-- Copyright 2013 B. Persson, Bjorn@Rombobeorn.se
+--
+-- This program is free software: you can redistribute it and/or modify it
+-- under the terms of the GNU General Public License version 3, as published
+-- by the Free Software Foundation.
+
+
+-- GNAT.Threads must be ready for use before wrapping of threads can begin.
+with GNAT.Threads;
+pragma Elaborate_All(GNAT.Threads);
+pragma Unreferenced(GNAT.Threads);
+
+package body Thread_Wrapping is
+
+   procedure Start_Wrapping_Threads;
+   pragma import(C, Start_Wrapping_Threads, "start_wrapping_threads");
+
+begin
+   Start_Wrapping_Threads;
+end Thread_Wrapping;