[fireball] 23062: Add tests for Create/Open/Set/Cancel Timer in Executive. Under Win2003 SP1 works perfectly, however ReactOS hangs.

Author: fireball
Date: Sat Jul 15 01:04:31 2006
New Revision: 23062

URL: http://svn.reactos.org/svn/reactos?rev=23062&view=rev
Log:
Add tests for Create/Open/Set/Cancel Timer in Executive. Under Win2003 SP1 works
perfectly, however ReactOS hangs.

Added:
    trunk/reactos/drivers/test/kmtest/ntos_ex.c
Modified:
    trunk/reactos/drivers/test/kmtest/kmtest.c
    trunk/reactos/drivers/test/kmtest/kmtest.rbuild

Modified: trunk/reactos/drivers/test/kmtest/kmtest.c
URL:
http://svn.reactos.org/svn/reactos/trunk/reactos/drivers/test/kmtest/kmtest…
==============================================================================
--- trunk/reactos/drivers/test/kmtest/kmtest.c (original)
+++ trunk/reactos/drivers/test/kmtest/kmtest.c Sat Jul 15 01:04:31 2006
@@ -106,6 +106,7 @@
 VOID FASTCALL NtoskrnlIoMdlTest();
 VOID FASTCALL NtoskrnlIoDeviceInterface();
 VOID FASTCALL NtoskrnlObTest();
+VOID FASTCALL NtoskrnlExecutiveTests();
 
 /*
  * DriverEntry
@@ -116,6 +117,7 @@
             PUNICODE_STRING RegistryPath)
 {
     DbgPrint("\n===============================================\nKernel Mode
Regression Test driver starting...\n");
+    NtoskrnlExecutiveTests();
     NtoskrnlIoDeviceInterface();
     NtoskrnlIoMdlTest();
     NtoskrnlObTest();

Modified: trunk/reactos/drivers/test/kmtest/kmtest.rbuild
URL:
http://svn.reactos.org/svn/reactos/trunk/reactos/drivers/test/kmtest/kmtest…
==============================================================================
--- trunk/reactos/drivers/test/kmtest/kmtest.rbuild (original)
+++ trunk/reactos/drivers/test/kmtest/kmtest.rbuild Sat Jul 15 01:04:31 2006
@@ -7,6 +7,7 @@
 	<file>kmtest.c</file>
 	<file>deviface.c</file>
 	<file>deviface_test.c</file>
+	<file>ntos_ex.c</file>
 	<file>ntos_io.c</file>
 	<file>ntos_ob.c</file>
 	<file>kmtest.rc</file>

Added: trunk/reactos/drivers/test/kmtest/ntos_ex.c
URL:
http://svn.reactos.org/svn/reactos/trunk/reactos/drivers/test/kmtest/ntos_e…
==============================================================================
--- trunk/reactos/drivers/test/kmtest/ntos_ex.c (added)
+++ trunk/reactos/drivers/test/kmtest/ntos_ex.c Sat Jul 15 01:04:31 2006
@@ -1,0 +1,110 @@
+/*
+ * NTOSKRNL Executive Regressions KM-Test
+ * ReactOS Kernel Mode Regression Testing framework
+ *
+ * Copyright 2006 Aleksey Bragin &lt;aleksey(a)reactos.org&gt;
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library General Public
+ * License along with this library; see the file COPYING.LIB.
+ * If not, write to the Free Software Foundation,
+ * 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ */
+
+/* INCLUDES *******************************************************************/
+
+#include <ddk/ntddk.h>
+#include <ntifs.h>
+#include <ndk/ntndk.h>
+#include "kmtest.h"
+
+#define NDEBUG
+#include "debug.h"
+
+/* PRIVATE FUNCTIONS ***********************************************************/
+
+VOID
+ExTimerTest()
+{
+    UNICODE_STRING TimerName;
+    OBJECT_ATTRIBUTES ObjectAttributes;
+    HANDLE TimerHandle;
+    HANDLE HandleOpened;
+    LARGE_INTEGER DueTime;
+    BOOLEAN PreviousState, CurrentState;
+    NTSTATUS Status;
+
+    StartTest();
+
+    // Create the timer
+    RtlInitUnicodeString(&TimerName, L"\\TestTimer");
+    InitializeObjectAttributes(&ObjectAttributes, &TimerName, 0, NULL, NULL);
+    Status = ZwCreateTimer(&TimerHandle, TIMER_ALL_ACCESS,
+        &ObjectAttributes, NotificationTimer);
+    ok(Status == STATUS_SUCCESS, "ZwCreateTimer failed with Status=0x%08lX",
Status);
+
+    // Open the timer
+    Status = ZwOpenTimer(&HandleOpened, TIMER_ALL_ACCESS, &ObjectAttributes);
+    ok(Status == STATUS_SUCCESS, "ZwOpenTimer failed with Status=0x%08lX",
Status);
+
+    // Set the timer, to some rather high value so it doesn't expire
+    DueTime.LowPart = -10000;
+    DueTime.HighPart = -10;
+    PreviousState = TRUE;
+    Status = ZwSetTimer(HandleOpened, &DueTime, NULL, NULL, FALSE, 0L,
&PreviousState);
+    ok(Status == STATUS_SUCCESS, "ZwSetTimer failed with Status=0x%08lX",
Status);
+    ok(PreviousState == FALSE, "Incorrect PreviousState returned when setting the
timer");
+
+    // Cancel the timer
+    CurrentState = TRUE;
+    Status = ZwCancelTimer(HandleOpened, &CurrentState);
+    ok(Status == STATUS_SUCCESS, "ZwCancelTimer failed with Status=0x%08lX",
Status);
+    ok(CurrentState == FALSE, "Incorrect CurrentState returned when canceling the
timer");
+
+    // Set the timer to some small value, because we'll wait for it to expire
+    DueTime.LowPart = -100;
+    DueTime.HighPart = -1;
+    PreviousState = TRUE;
+    Status = ZwSetTimer(HandleOpened, &DueTime, NULL, NULL, FALSE, 0L,
&PreviousState);
+    ok(Status == STATUS_SUCCESS, "ZwSetTimer failed with Status=0x%08lX",
Status);
+    ok(PreviousState == FALSE, "Incorrect PreviousState returned when setting the
timer");
+
+    // Wait until it expires
+    Status = ZwWaitForSingleObject(HandleOpened, FALSE, NULL);
+    ok(Status == STATUS_SUCCESS, "ZwWaitForSingleObject failed with
Status=0x%08lX", Status);
+
+    // And cancel it
+    CurrentState = FALSE;
+    Status = ZwCancelTimer(HandleOpened, &CurrentState);
+    ok(Status == STATUS_SUCCESS, "ZwCancelTimer failed with Status=0x%08lX",
Status);
+    ok(CurrentState == TRUE, "Incorrect CurrentState returned when setting the
timer");
+
+    // TODO: Add tests for a timer with APC routines
+
+    // Cleanup...
+    Status = ZwClose(HandleOpened);
+    ok(Status == STATUS_SUCCESS, "ZwClose failed with Status=0x%08lX",
Status);
+
+    Status = ZwClose(TimerHandle);
+    ok(Status == STATUS_SUCCESS, "ZwClose failed with Status=0x%08lX",
Status);
+
+    FinishTest("NTOSKRNL Executive Timer");
+}
+
+/* PUBLIC FUNCTIONS ***********************************************************/
+
+VOID
+FASTCALL
+NtoskrnlExecutiveTests()
+{
+    ExTimerTest();
+}