demo dumps

Author: tomFlidr

Program.vb

@@ -2,16 +2,58 @@
 
 Module Program
 
-	Sub Main()
+    Sub Main()
 
-		Dim dlTest = New Tests.DumpingAndLoging()
-		dlTest.TestAll()
+        Program._demoDumpAndLog()
+        Program._demoException()
+        'Program._runTests()
 
-		Dim eTest = New Tests.ExceptionsRendering()
-		eTest.TestAll()
+        Console.ReadLine()
+    End Sub
 
-		Console.ReadLine()
+    Private Sub _demoDumpAndLog()
+        Console.Write("Press enter key to dump demo data and write it to HDD.")
+        Console.ReadLine()
+        Dim demoObject = New Dictionary(Of String, Object)() From {
+            {"clark", New With {
+                .name = "Clark",
+                .surname = "Kent",
+                .tshirtIdol = "chuck"
+            }},
+            {"chuck", New With {
+                .name = "Chuck",
+                .surname = "Noris",
+                .tshirtIdol = "bud"
+            }},
+            {"bud", New With {
+                .name = "Bud",
+                .surname = "Spencer",
+                .tshirtIdol = ""
+            }}
+        }
+        Debug.Dump(demoObject)
+        Debug.Log(demoObject)
+    End Sub
 
-	End Sub
+    Private Sub _demoException()
+        Console.Write("Press enter key to dump catched demo exception and write it to HDD.")
+        Console.ReadLine()
+
+        Try
+            Throw New Exception("Demo exception:-)")
+        Catch ex As Exception
+            Debug.Dump(ex)
+            Debug.Log(ex)
+        End Try
+    End Sub
+
+    Private Sub _runTests()
+        Console.Write("Pres enter key to start duping test objects.")
+        Console.ReadLine()
+        Dim dlTest = New Tests.DumpingAndLoging()
+        dlTest.TestAll()
+        Dim eTest = New Tests.ExceptionsRendering()
+        eTest.TestAll()
+    End Sub
 
 End Module