Namespace CollectionTest

Sub TestMain()
	Dim d As System.Collections.Generic.Dictionary<String, String>
	d.Add("��", "Red")
	d.Add("��", "Yellow")
	d.Add("��", "Green")
	d.Add("��", "Blue")
	d.Add("��", "Tea")

	UnitTest("Dictionary.Add, Item (1)", d.Item["��"] = "Red")
	UnitTest("Dictionary.Add, Item (2)", d.Item["��"] = "Yellow")
	UnitTest("Dictionary.Add, Item (3)", d.Item("��") = "Green")
	UnitTest("Dictionary.Add, Item (4)", d.Item("��") = "Blue")

	UnitTest("Dictionary.Remove", d.Remove("��"))

	UnitTest("Dictionary.Count", d.Count = 4)

End Sub

End Namespace

CollectionTest.TestMain()