1 files changed, 75 insertions, 0 deletions

diff --git a/private/ntos/se/ttsertl.c b/private/ntos/se/ttsertl.c
new file mode 100644
index 000000000..5f32fa995
--- /dev/null
+++ b/private/ntos/se/ttsertl.c
@@ -0,0 +1,75 @@
+/*++
+
+Copyright (c) 1989  Microsoft Corporation
+
+Module Name:
+
+    ttsertl.c
+
+Abstract:
+
+    Kernel mode test of security rtl routines.
+
+
+
+Author:
+
+    Jim Kelly       (JimK)     23-Mar-1990
+
+Environment:
+
+    Test of security.
+
+Revision History:
+
+--*/
+
+#ifndef _SERTL_DEBUG_
+#define _SERTL_DEBUG_
+#endif
+
+#define _TST_KERNEL_ //Kernel mode test
+
+#include <stdio.h>
+
+#include "sep.h"
+
+#include <zwapi.h>
+
+#include "tsevars.c"    // Common test variables
+
+#include "ctsertl.c"    // Common RTL test routines
+
+
+BOOLEAN SeRtlTest();
+
+int
+main(
+    int argc,
+    char *argv[]
+    )
+{
+    VOID KiSystemStartup();
+
+    TestFunction = SeRtlTest;
+    KiSystemStartup();
+    return( 0 );
+}
+
+
+BOOLEAN
+SeRtlTest()
+{
+
+    BOOLEAN Result;
+
+    DbgPrint("Se: Start Kernel Mode RTL Test...\n");
+
+    Result = TestSeRtl();
+
+    if (!Result) {
+        DbgPrint("Se: ** Kernel Mode RTL Test Failed **\n");
+    }
+    DbgPrint("Se: End Kernel Mode RTL Test.\n");
+    return Result;
+}