Unit test and enhancement

[SharedMem]
* NEW: Add Unit Test functions  Strings and free/alloc

.src/UnitTest/TeStringMemoryManagement.test

@@ -3,19 +3,46 @@
 Public Sub aStringGetsbigger()
 
   With SharedMem
-    .Begin(450000)
+    .Begin(1450000)
+
     .myString = "..........................................................................................."
-    .myint = 1
-    Dim mystring As SharedMemSymbol = ._Symbol("myString")
-    Print .mystring.len, .len("myString"), Len(.mystring), mystring.LastWriteLength, MyString.storageLength, MyString.dataLength
-    For i As Integer = 0 To 1000
-      .myString = .MyString & "++ "
-      Print .mystring.len, .len("myString"), Len(.mystring), mystring.LastWriteLength, MyString.storageLength, MyString.dataLength
+
+    Dim mystring As SharedMemSymbol = ._Symbol("myString")            ' work with the symbol information
+
+    'Print .mystring.len, .len("myString"), Len(.mystring), mystring.LastWriteLength, MyString.storageLength, MyString.dataLength
+    Dim starttime As Float = Timer
+    For i As Integer = 0 To 100000
+      .["myString"] = .["MyString"] & "++ "
+      If MyString.storageLength < MyString.dataLength Then 
+        Assert.Fail("invalid memory allocation for string")
+      Else If mystring.LastWriteLength <> .mystring.len Then 
+        Assert.Fail("Invalid write length/possible data corruption")
+      Endif
     Next
+    Assert.Equals(MyString.LastWriteLength, .mystring.len, "Grow String Time=" & Str(Timer - starttime) & " : " & .mystring.len & "," & .len("myString") & "," & Len(.mystring) & "," & mystring.LastWriteLength & "," & MyString.storageLength)
+    Dim oldstoragelen As Integer = MyString.storageLength
     .MyString = "Hello"
-    Print .mystring.len, .len("myString"), Len(.mystring), mystring.LastWriteLength, MyString.storageLength
+    Assert.equals(oldStorageLen, MyString.storageLength, "Grow Shrink" & " : " & .mystring.len & "," & .len("myString") & "," & Len(.mystring) & "," & mystring.LastWriteLength & "," & MyString.storageLength)
+    Assert.equals(MyString.LastWriteLength, .mystring.len, "Verify that variable size shrinks")
     '._print()
-    .End()
-  End With
+
+
+  Dim testString As String = "......................................."
+  Starttime = Timer
+  For i As Integer = 0 To 100000
+      testString = testString & "++ "
+  Next
+
+  Assert.Pass("Native String time = " & Str(Timer - starttime))
 
+  MyString.value = "................................................"
+  starttime = Timer
+  For i As Integer = 0 To 100000
+      MyString.value = MyString.value & "++ "
+  Next
+
+  Assert.Pass("ShmSymbolEntry no mutex protection time = " & Str(Timer - starttime))
+
+  .End()
+  End With
 End

.src/vTestApps/TestSetFree.module → .src/UnitTest/TfMemoryManagement.test

@@ -1,19 +1,20 @@
+' Gambas test file
+
 ' Gambas module file
 
 Const LoopCount As Integer = 1000
 Private starttime As Float
 
-Public Sub main()
+Public Sub aALLOCFree()
 With sharedmem
-SharedMem.Begin(128000)
-Print "Begin TestSetFree _____________________________________________________________________________________________________________________________"
-Print "Will run : Iterations = "; LoopCount; " Total of "; LoopCount * 6; " Set and free operations"
-starttime = Timer
+
+.Begin(128000)
 
 'begin does some stuff to remove for this test See- SharedMemWaitQueue _Begin
 .ShmFree(.["NotifyList"])
 .free("notifylist")
-
+
+starttime = Timer
 For i As Integer = 1 To LoopCount
 
     SharedMem["ThisString"] = "This is a test string of this size"
@@ -55,20 +56,15 @@ For i As Integer = 1 To LoopCount
     .free("d")
 
     If SharedMem.used() <> 0 Then 
-       Print "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
-       Print "Used Amount reports "; .used();; " After "; i;; "Loops"
-       SharedMem._print()
-       Print "\n\nFailed Total time = "; Timer - starttime; " total operations per second ="; (LoopCount * 6) / (Timer - starttime)
-       Print "End TestSetFree _______________________________________________________________________________________________________________________________"
-       Stop
-       Quit -1
+       'Print "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
+       'Print "Used Amount reports "; .used();; " After "; i;; "Loops"
+       'SharedMem._print()
+       Assert.Fail("Used(" & .used() & ") Not zero Total time = " & Str(Timer - starttime) & " Ops/Sec =" & Str((LoopCount * 6) / (Timer - starttime)))
     Endif
 
 Next
 
-Print "End TestSetFree _______________________________________________________________________________________________________________________________"
-SharedMem._print()
-Print "\n\nPassed Total time = "; Timer - starttime; " total operations per second ="; (LoopCount * 6) / (Timer - starttime)
+Assert.Pass("Alloc/Free time = " & Str(Timer - starttime) & "Total Ops=" & Str(LoopCount * 6) & " Ops/Sec =" & Str((LoopCount * 6) / (Timer - starttime)))
 
 SharedMem.End()
 End With