Index: vhUnitTest/TECH/Net/URI.cls.xml
===================================================================
diff -u -r1280 -r1287
--- vhUnitTest/TECH/Net/URI.cls.xml	(.../URI.cls.xml)	(revision 1280)
+++ vhUnitTest/TECH/Net/URI.cls.xml	(.../URI.cls.xml)	(revision 1287)
@@ -26,7 +26,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestVoegToeQueryElement2x">
+<Method name="TestVoegToeQueryElementx2x">
 <Implementation><![CDATA[
 		#dim Uri As TECH.Net.URI = ##class(TECH.Net.URI).MaakVanURLZonderQueryNochFragment("http://www.vanhoecke.be/nl")
 		Do Uri.VoegToeQueryElement("Taal", "NL")
@@ -37,7 +37,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestToStringMetTeEscapenKarakter">
+<Method name="TestToStringxMetTeEscapenKarakter">
 <Implementation><![CDATA[
 		#dim Uri As TECH.Net.URI = ##class(TECH.Net.URI).MaakVanURLZonderQueryNochFragment("http://www.vanhoecke.be/nl")
 		Do Uri.VoegToeQueryElement("+", "+")
@@ -47,40 +47,61 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestGeefBestandNaamOndiepPad">
+<Method name="TestGeefBestandNaamxOndiepPad">
 <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">
+<Method name="TestGeefBestandNaamxLeegZonderSlashNaHostname">
 <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">
+<Method name="TestGeefBestandNaamxOndiepLeegMetSlashNaHostname">
 <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">
+<Method name="TestGeefBestandNaamxMetDirecotory">
 <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">
+<Method name="TestGeefBestandNaamxMetExtensie">
 <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>
+
+<Method name="TestGeefBestandNaamZonderExtensie">
+<Implementation><![CDATA[
+	#dim Uri As TECH.Net.URI = ##class(TECH.Net.URI).MaakVanURLZonderQueryNochFragment("http://a.b/bestandsnaam.extensie")
+	Do $$$AssertEquals( Uri.GeefBestandNaamZonderExtensie(), "bestandsnaam" )
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefBestandNaamZonderExtensiexGeenExtensieInBron">
+<Implementation><![CDATA[
+	#dim Uri As TECH.Net.URI = ##class(TECH.Net.URI).MaakVanURLZonderQueryNochFragment("http://a.b/bestandsnaam")
+	Do $$$AssertEquals( Uri.GeefBestandNaamZonderExtensie(), "bestandsnaam" )
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefPathMetQueryEnFragment">
+<Implementation><![CDATA[
+	#dim Uri As TECH.Net.URI = ##class(TECH.Net.URI).MaakVanURLZonderQueryNochFragment("http://a.b/c/bestandsnaam.extensie")
+	Do $$$AssertEquals( Uri.GeefPathMetQueryEnFragment(), "/c/bestandsnaam.extensie" )
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/TECH/Http/impl/HttpAPI.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Http/impl/HttpAPI.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Http/impl/HttpAPI.cls.xml	(revision 1287)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Http.impl.HttpAPI">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestBestaatURIxJa">
+<Implementation><![CDATA[
+		#Define BestaandeUri ##class(TECH.Net.URI).MaakVanURLZonderQueryNochFragment( "http://www.vanhoecke.be/nl" )
+		Do $$$AssertTrue( ##class(TECH.Http.impl.HttpAPI).%New().BestaatURI( $$$BestaandeUri ) )
+]]></Implementation>
+</Method>
+
+<Method name="TestBestaatURIxNee">
+<Implementation><![CDATA[
+		#Define OnbestaandeUri ##class(TECH.Net.URI).MaakVanURLZonderQueryNochFragment( "http://www.vanhoecke.be/bestaat.niet" )
+		Do $$$AssertFalse( ##class(TECH.Http.impl.HttpAPI).%New().BestaatURI( $$$OnbestaandeUri ) )
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>