Index: vhUnitTest/TECH/Net/URI.cls.xml
===================================================================
diff -u -r957 -r1280
--- vhUnitTest/TECH/Net/URI.cls.xml	(.../URI.cls.xml)	(revision 957)
+++ vhUnitTest/TECH/Net/URI.cls.xml	(.../URI.cls.xml)	(revision 1280)
@@ -46,6 +46,41 @@
 		Quit:('$$$AssertEquals( "http://www.vanhoecke.be/nl?%2B=%2B", UriString ))
 ]]></Implementation>
 </Method>
+
+<Method name="TestGeefBestandNaamOndiepPad">
+<Implementation><![CDATA[
+	#dim Uri As TECH.Net.URI = ##class(TECH.Net.URI).MaakVanURLZonderQueryNochFragment("http://a.b/bestandsnaam")
+	Do $$$AssertEquals( Uri.GeefBestandNaam(), "bestandsnaam" )
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefBestandNaamLeegZonderSlashNaHostname">
+<Implementation><![CDATA[
+	#dim Uri As TECH.Net.URI = ##class(TECH.Net.URI).MaakVanURLZonderQueryNochFragment("http://a.b/")
+	Do $$$AssertEquals( Uri.GeefBestandNaam(), "" )
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefBestandNaamOndiepLeegMetSlashNaHostname">
+<Implementation><![CDATA[
+	#dim Uri As TECH.Net.URI = ##class(TECH.Net.URI).MaakVanURLZonderQueryNochFragment("http://a.b")
+	Do $$$AssertEquals( Uri.GeefBestandNaam(), "" )
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefBestandNaamMetDirecotory">
+<Implementation><![CDATA[
+	#dim Uri As TECH.Net.URI = ##class(TECH.Net.URI).MaakVanURLZonderQueryNochFragment("http://a.b/directory/bestandsnaam")
+	Do $$$AssertEquals( Uri.GeefBestandNaam(), "bestandsnaam" )
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefBestandNaamMetExtensie">
+<Implementation><![CDATA[
+	#dim Uri As TECH.Net.URI = ##class(TECH.Net.URI).MaakVanURLZonderQueryNochFragment("http://a.b/bestandsnaam.extensie")
+	Do $$$AssertEquals( Uri.GeefBestandNaam(), "bestandsnaam.extensie" )
+]]></Implementation>
+</Method>
 </Class>