added linkedList and test for linkedList

test/testAll.pl

@@ -6,3 +6,4 @@ system ("./testIntrospect.pl");
 system ("./testPVData.pl");
 system ("./testPVStructureArray.pl");
 system ("./testPVAuxInfo.pl");
+system ("./testLinkedList.pl");

test/testLinkedList

@@ -0,0 +1,20 @@
+basic addTail 0 1 2 3 4 4 3 2 1 0
+basic addHead 0 1 2 3 4
+basic addTail insertAfter 0 1 2 3 4
+basic addTail insertBefore 0 1 2 3 4
+
+Queue test
+queue 0 1 2 3 4
+
+Stack test
+stack 4 3 2 1 0
+
+testList
+list 0 1 2 3 4
+
+Random insert/remove test
+stack 4 3 2 1 0
+
+Ordered Queue test
+list 0 1 2 3 4
+totalConstructList 8 totalDestructList 8 totalConstructListNode 4038 totalDestructListNode 4038

test/testLinkedList.pl

@@ -0,0 +1,12 @@
+eval 'exec perl -S $0 ${1+"$@"}'  # -*- Mode: perl -*-
+    if $running_under_some_shell; # testLinkedList.pl
+$EPICS_HOST_ARCH = "linux-x86";
+system ("rm testLinkedList");
+system ("rm testLinkedListDiff");
+system ("../bin/${EPICS_HOST_ARCH}/testLinkedList testLinkedList");
+system ("diff testLinkedList testLinkedListGold >> testLinkedListDiff");
+if(-z "testLinkedListDiff") {
+    print "testLinkedList OK\n";
+} else {
+    print "testLinkedList Failed\n";
+}

test/testLinkedListGold

@@ -0,0 +1,20 @@
+basic addTail 0 1 2 3 4 4 3 2 1 0
+basic addHead 0 1 2 3 4
+basic addTail insertAfter 0 1 2 3 4
+basic addTail insertBefore 0 1 2 3 4
+
+Queue test
+queue 0 1 2 3 4
+
+Stack test
+stack 4 3 2 1 0
+
+testList
+list 0 1 2 3 4
+
+Random insert/remove test
+stack 4 3 2 1 0
+
+Ordered Queue test
+list 0 1 2 3 4
+totalConstructList 8 totalDestructList 8 totalConstructListNode 4038 totalDestructListNode 4038