From b098f5dc6a447df808ed755a1d6123f9ce7896dc Mon Sep 17 00:00:00 2001 From: Björn Persson Date: Mon, 21 Jan 2013 13:10:21 +0100 Subject: Added an outline of a test milter. --- test/test_milter.adb | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 test/test_milter.adb (limited to 'test/test_milter.adb') diff --git a/test/test_milter.adb b/test/test_milter.adb new file mode 100644 index 0000000..2cf2ed1 --- /dev/null +++ b/test/test_milter.adb @@ -0,0 +1,22 @@ +-- The Ada Milter API test milter +-- Copyright 2012 - 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. + + +with Test_Milter_Package; +with Thread_Wrapping; +with Ada.Command_Line; +with System_Log; use System_Log; + +pragma Interrupt_State (Name => SIGSEGV, State => SYSTEM); + +procedure Test_Milter is +begin + Open_Log("test_milter", Mail, Include_PID => True); + Set_Log_Threshold(Debug); + Ada.Command_Line.Set_Exit_Status(Test_Milter_Package.Run); + Log(Info, "Terminating."); +end Test_Milter; -- cgit v1.2.3