GUIs.Test: Improve zugferdtest

GUIs.Test.ZUGFeRDTest/Form1.vb

@@ -109,11 +109,17 @@ Public Class Form1
 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
         Dim oResult = OpenFileDialog1.ShowDialog()
+        Dim oArgs As New WorkerArgs()
+        oArgs = LoadPropertyMapFor(oArgs, "DEFAULT")
 
         If oResult = DialogResult.OK Then
             Dim oDoc = _zugferd.ValidateZUGFeRDFileWithGDPicture(OpenFileDialog1.FileName)
             Dim oZUGFERD = _zugferd.SerializeZUGFeRDDocument(oDoc)
             Console.WriteLine()
+
+            Dim oResult2 = _zugferd.PropertyValues.CheckPropertyValues(oZUGFERD, oArgs.PropertyMap, "test")
+
+            Console.WriteLine()
         End If
     End Sub