Program.vb

Imports Desharp

Module Program

 Sub Main()

 Program._demoDumpAndLog()
 Program._demoException()
 'Program._runTests()

 Console.ReadLine()
 End Sub

 Private Sub _demoDumpAndLog()
 Console.Write("Press enter key to dump demo data and write it to HDD.")
 Console.ReadLine()
 Console.WriteLine()

 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)

 Console.WriteLine()
 Console.WriteLine()
 End Sub

 Private Sub _demoException()
 Console.Write("Press enter key to dump catched demo exception and write it to HDD.")
 Console.ReadLine()
 Console.WriteLine()

 Try
 Throw New Exception("Demo exception:-)")
 Catch ex As Exception
 Debug.Dump(ex)
 Debug.Log(ex)
 End Try

 Console.WriteLine()
 End Sub

 Private Sub _runTests()
 Console.Write("Pres enter key to start duping test objects.")
 Console.ReadLine()
 Console.WriteLine()

		Dim dlTest = New Desharp.Tests.DumpingAndLoging()
		dlTest.TestAll()

		Dim eTest = New Desharp.Tests.ExceptionsRendering()
		eTest.TestAll()
 End Sub

End Module