Cleanup basic test

Author: wqweto

test/basic/Form1.frm

@@ -162,7 +162,7 @@ Private Sub Command4_Click()
     With m_oZip
         .OpenArchive "D:\temp\aaa2.zip"
         Set m_oExtractInMemory = m_oZip
-        bResult = .Extract("D:\Temp\Unzip")
+        bResult = .Extract("D:\Temp\Unzip", "Kit\Documentation\*.md")
         Set m_oExtractInMemory = Nothing
         sLastError = .LastError
     End With
@@ -183,7 +183,7 @@ Private Sub Command5_Click()
     Set m_oZip = New cZipArchive
     m_bCancel = False
     With m_oZip
-        .AddFromFolder ".\*.sql", Recursive:=True, TargetFolder:="Kit", IncludeEmptyFolders:=True
+        .AddFromFolder ".\*.sql;*.md", Recursive:=True, TargetFolder:="Kit", IncludeEmptyFolders:=True
 '        .AddFromFolder "D:\TEMP\Unzip\Empty\*.*", Recursive:=True, TargetFolder:="Kit", IncludeEmptyFolders:=True
         ReDim baOutput(0 To 10000000) As Byte
         Set oBuffer = New cBufferStream

test/basic/cBufferStream.cls

@@ -37,7 +37,7 @@ Private m_lSize                 As Long
 ' Properties
 '=========================================================================
 
-Property Get Size() As Long
+Public Property Get Size() As Long
     Size = m_lSize
 End Property
 

test/basic/cMemoryStream.cls

@@ -36,7 +36,7 @@ Private m_lSize                 As Long
 ' Properties
 '=========================================================================
 
-Property Get Contents() As Byte()
+Public Property Get Contents() As Byte()
     If m_lSize > 0 Then
         Contents = m_baBuffer
         ReDim Preserve Contents(0 To m_lSize - 1) As Byte
@@ -45,7 +45,7 @@ Property Get Contents() As Byte()
     End If
 End Property
 
-Property Let Contents(baValue() As Byte)
+Public Property Let Contents(baValue() As Byte)
     m_baBuffer = baValue
     m_lPosition = 0
     m_lSize = UBound(m_baBuffer) + 1