Intravision/reactos
1
0
Fork 0
mirror of https://github.com/reactos/reactos.git synced 2024-10-30 11:35:58 +00:00
Code Issues Packages Projects Releases Wiki Activity
reactos/rostests/kmtests/ntos_ex/ExDoubleList.c

238 lines
9.5 KiB
C
Raw Normal View History

[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
/*
* PROJECT: ReactOS kernel-mode tests
* LICENSE: GPLv2+ - See COPYING in the top level directory
* PURPOSE: Kernel-Mode Test Suite Doubly-linked list test
[COMMENTS] - Consistent email address is consistent. svn path=/trunk/; revision=60631
2013-10-12 16:05:54 +00:00
* PROGRAMMER: Thomas Faber <thomas.faber@reactos.org>
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
*/
struct _LIST_ENTRY;
[KMTESTS] - Add support for guarded allocations, that can be used to detect buffer overruns - Add GuardedMemory example test - Add MmSection test with some basic parameter checks for MmCreateSection - Fix some x64 build problems - Update readme svn path=/trunk/; revision=53687
2011-09-11 11:22:00 +00:00
#ifdef _X86_
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
struct _LIST_ENTRY *__stdcall ExInterlockedInsertHeadList(struct _LIST_ENTRY *, struct _LIST_ENTRY *, unsigned long *);
struct _LIST_ENTRY *__stdcall ExInterlockedInsertTailList(struct _LIST_ENTRY *, struct _LIST_ENTRY *, unsigned long *);
struct _LIST_ENTRY *__stdcall ExInterlockedRemoveHeadList(struct _LIST_ENTRY *, unsigned long *);
[KMTESTS] - Add support for guarded allocations, that can be used to detect buffer overruns - Add GuardedMemory example test - Add MmSection test with some basic parameter checks for MmCreateSection - Fix some x64 build problems - Update readme svn path=/trunk/; revision=53687
2011-09-11 11:22:00 +00:00
#endif
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
#include <kmt_test.h>
LIST_ENTRY Entries[5];
#define ok_eq_free(Value, Expected) do \
{ \
if (KmtIsCheckedBuild) \
ok_eq_pointer(Value, (PVOID)0x0BADD0FF); \
else \
ok_eq_pointer(Value, Expected); \
} while (0)
#define ok_eq_free2(Value, Expected) do \
{ \
if (KmtIsCheckedBuild) \
ok_eq_pointer(Value, (PVOID)0xBADDD0FF); \
else \
ok_eq_pointer(Value, Expected); \
} while (0)
START_TEST(ExDoubleList)
{
KSPIN_LOCK SpinLock;
LIST_ENTRY ListHead;
PLIST_ENTRY Ret;
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
KeInitializeSpinLock(&SpinLock);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
memset(&ListHead, 0x55, sizeof ListHead);
InitializeListHead(&ListHead);
ok_eq_pointer(ListHead.Flink, &ListHead);
ok_eq_pointer(ListHead.Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
Ret = ExInterlockedInsertHeadList(&ListHead, &Entries[0], &SpinLock);
ok_eq_pointer(Ret, NULL);
ok_eq_pointer(ListHead.Flink, &Entries[0]);
ok_eq_pointer(ListHead.Blink, &Entries[0]);
ok_eq_pointer(Entries[0].Flink, &ListHead);
ok_eq_pointer(Entries[0].Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
Ret = ExInterlockedRemoveHeadList(&ListHead, &SpinLock);
ok_eq_pointer(Ret, &Entries[0]);
ok_eq_pointer(ListHead.Flink, &ListHead);
ok_eq_pointer(ListHead.Blink, &ListHead);
ok_eq_free(Entries[0].Flink, &ListHead);
ok_eq_free(Entries[0].Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
Ret = ExInterlockedRemoveHeadList(&ListHead, &SpinLock);
ok_eq_pointer(Ret, NULL);
ok_eq_pointer(ListHead.Flink, &ListHead);
ok_eq_pointer(ListHead.Blink, &ListHead);
ok_eq_free(Entries[0].Flink, &ListHead);
ok_eq_free(Entries[0].Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
Ret = ExInterlockedInsertTailList(&ListHead, &Entries[0], &SpinLock);
ok_eq_pointer(Ret, NULL);
ok_eq_pointer(ListHead.Flink, &Entries[0]);
ok_eq_pointer(ListHead.Blink, &Entries[0]);
ok_eq_pointer(Entries[0].Flink, &ListHead);
ok_eq_pointer(Entries[0].Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
Ret = ExInterlockedRemoveHeadList(&ListHead, &SpinLock);
ok_eq_pointer(Ret, &Entries[0]);
ok_eq_pointer(ListHead.Flink, &ListHead);
ok_eq_pointer(ListHead.Blink, &ListHead);
ok_eq_free(Entries[0].Flink, &ListHead);
ok_eq_free(Entries[0].Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
Ret = ExInterlockedRemoveHeadList(&ListHead, &SpinLock);
ok_eq_pointer(Ret, NULL);
ok_eq_pointer(ListHead.Flink, &ListHead);
ok_eq_pointer(ListHead.Blink, &ListHead);
ok_eq_free(Entries[0].Flink, &ListHead);
ok_eq_free(Entries[0].Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
Ret = ExInterlockedInsertTailList(&ListHead, &Entries[0], &SpinLock);
ok_eq_pointer(Ret, NULL);
ok_eq_pointer(ListHead.Flink, &Entries[0]);
ok_eq_pointer(ListHead.Blink, &Entries[0]);
ok_eq_pointer(Entries[0].Flink, &ListHead);
ok_eq_pointer(Entries[0].Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
Ret = ExInterlockedInsertHeadList(&ListHead, &Entries[1], &SpinLock);
ok_eq_pointer(Ret, &Entries[0]);
ok_eq_pointer(ListHead.Flink, &Entries[1]);
ok_eq_pointer(ListHead.Blink, &Entries[0]);
ok_eq_pointer(Entries[0].Flink, &ListHead);
ok_eq_pointer(Entries[0].Blink, &Entries[1]);
ok_eq_pointer(Entries[1].Flink, &Entries[0]);
ok_eq_pointer(Entries[1].Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
Ret = ExInterlockedInsertTailList(&ListHead, &Entries[2], &SpinLock);
ok_eq_pointer(Ret, &Entries[0]);
ok_eq_pointer(ListHead.Flink, &Entries[1]);
ok_eq_pointer(ListHead.Blink, &Entries[2]);
ok_eq_pointer(Entries[0].Flink, &Entries[2]);
ok_eq_pointer(Entries[0].Blink, &Entries[1]);
ok_eq_pointer(Entries[1].Flink, &Entries[0]);
ok_eq_pointer(Entries[1].Blink, &ListHead);
ok_eq_pointer(Entries[2].Flink, &ListHead);
ok_eq_pointer(Entries[2].Blink, &Entries[0]);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
memset(Entries, 0x55, sizeof Entries);
#undef ExInterlockedInsertHeadList
#undef ExInterlockedInsertTailList
#undef ExInterlockedRemoveHeadList
memset(&ListHead, 0x55, sizeof ListHead);
InitializeListHead(&ListHead);
ok_eq_pointer(ListHead.Flink, &ListHead);
ok_eq_pointer(ListHead.Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
Ret = ExInterlockedInsertHeadList(&ListHead, &Entries[0], &SpinLock);
ok_eq_pointer(Ret, NULL);
ok_eq_pointer(ListHead.Flink, &Entries[0]);
ok_eq_pointer(ListHead.Blink, &Entries[0]);
ok_eq_pointer(Entries[0].Flink, &ListHead);
ok_eq_pointer(Entries[0].Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
Ret = ExInterlockedRemoveHeadList(&ListHead, &SpinLock);
ok_eq_pointer(Ret, &Entries[0]);
ok_eq_pointer(ListHead.Flink, &ListHead);
ok_eq_pointer(ListHead.Blink, &ListHead);
ok_eq_free2(Entries[0].Flink, &ListHead);
ok_eq_free2(Entries[0].Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
Ret = ExInterlockedRemoveHeadList(&ListHead, &SpinLock);
ok_eq_pointer(Ret, NULL);
ok_eq_pointer(ListHead.Flink, &ListHead);
ok_eq_pointer(ListHead.Blink, &ListHead);
ok_eq_free2(Entries[0].Flink, &ListHead);
ok_eq_free2(Entries[0].Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
Ret = ExInterlockedInsertTailList(&ListHead, &Entries[0], &SpinLock);
ok_eq_pointer(Ret, NULL);
ok_eq_pointer(ListHead.Flink, &Entries[0]);
ok_eq_pointer(ListHead.Blink, &Entries[0]);
ok_eq_pointer(Entries[0].Flink, &ListHead);
ok_eq_pointer(Entries[0].Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
Ret = ExInterlockedRemoveHeadList(&ListHead, &SpinLock);
ok_eq_pointer(Ret, &Entries[0]);
ok_eq_pointer(ListHead.Flink, &ListHead);
ok_eq_pointer(ListHead.Blink, &ListHead);
ok_eq_free2(Entries[0].Flink, &ListHead);
ok_eq_free2(Entries[0].Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
Ret = ExInterlockedRemoveHeadList(&ListHead, &SpinLock);
ok_eq_pointer(Ret, NULL);
ok_eq_pointer(ListHead.Flink, &ListHead);
ok_eq_pointer(ListHead.Blink, &ListHead);
ok_eq_free2(Entries[0].Flink, &ListHead);
ok_eq_free2(Entries[0].Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
Ret = ExInterlockedInsertTailList(&ListHead, &Entries[0], &SpinLock);
ok_eq_pointer(Ret, NULL);
ok_eq_pointer(ListHead.Flink, &Entries[0]);
ok_eq_pointer(ListHead.Blink, &Entries[0]);
ok_eq_pointer(Entries[0].Flink, &ListHead);
ok_eq_pointer(Entries[0].Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
Ret = ExInterlockedInsertHeadList(&ListHead, &Entries[1], &SpinLock);
ok_eq_pointer(Ret, &Entries[0]);
ok_eq_pointer(ListHead.Flink, &Entries[1]);
ok_eq_pointer(ListHead.Blink, &Entries[0]);
ok_eq_pointer(Entries[0].Flink, &ListHead);
ok_eq_pointer(Entries[0].Blink, &Entries[1]);
ok_eq_pointer(Entries[1].Flink, &Entries[0]);
ok_eq_pointer(Entries[1].Blink, &ListHead);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS] - add IoDriverObject test, partly ported from old kmtests. Should possibly be merged with another test - ExDoubleList: add another small testcase svn path=/branches/GSoC_2011/KMTestSuite/; revision=53047
2011-08-03 12:48:22 +00:00
Ret = ExInterlockedInsertTailList(&ListHead, &Entries[2], &SpinLock);
ok_eq_pointer(Ret, &Entries[0]);
ok_eq_pointer(ListHead.Flink, &Entries[1]);
ok_eq_pointer(ListHead.Blink, &Entries[2]);
ok_eq_pointer(Entries[0].Flink, &Entries[2]);
ok_eq_pointer(Entries[0].Blink, &Entries[1]);
ok_eq_pointer(Entries[1].Flink, &Entries[0]);
ok_eq_pointer(Entries[1].Blink, &ListHead);
ok_eq_pointer(Entries[2].Flink, &ListHead);
ok_eq_pointer(Entries[2].Blink, &Entries[0]);
ok_bool_true(KmtAreInterruptsEnabled(), "Interrupts enabled:");
ok_irql(PASSIVE_LEVEL);
[KMTESTS/EX] - add quick'n'dirty tests for interlocked single/double list functions svn path=/branches/GSoC_2011/KMTestSuite/; revision=52870
2011-07-25 20:12:44 +00:00
KmtSetIrql(PASSIVE_LEVEL);
}
Reference in a new issue Copy permalink