add first test for the str module

testing/run-tests.xql

@@ -5,9 +5,11 @@ import module namespace test="http://exist-db.org/xquery/xqsuite" at "resource:o
 
 import module namespace wust="http://xquery.weber-gesamtausgabe.de/modules/wega-util-shared-tests" at "wega-util-shared-tests.xqm";
 import module namespace dt="http://xquery.weber-gesamtausgabe.de/modules/date-tests" at "date-tests.xqm";
+import module namespace st="http://xquery.weber-gesamtausgabe.de/modules/str-tests" at "str-tests.xqm";
 
 (: the test:suite() function will run all the test-annotated functions in the module whose namespace URI you provide :)
 test:suite((
     util:list-functions("http://xquery.weber-gesamtausgabe.de/modules/date-tests"),
+    util:list-functions("http://xquery.weber-gesamtausgabe.de/modules/str-tests"),
     util:list-functions("http://xquery.weber-gesamtausgabe.de/modules/wega-util-shared-tests")
 ))

testing/str-tests.xqm

@@ -0,0 +1,19 @@
+xquery version "3.1";
+
+module namespace st="http://xquery.weber-gesamtausgabe.de/modules/str-tests";
+
+declare namespace test="http://exist-db.org/xquery/xqsuite";
+declare namespace tei="http://www.tei-c.org/ns/1.0";
+declare namespace mei="http://www.music-encoding.org/ns/mei";
+import module namespace str="http://xquery.weber-gesamtausgabe.de/modules/str" at "../xquery/str.xqm";
+
+declare 
+    %test:args("D'Alembert, Jean-Baptiste") %test:assertEquals("Jean-Baptiste D'Alembert")
+    %test:args("Orville, Philipp d'")       %test:assertEquals("Philipp d’Orville")
+    %test:args("Heinrich L’Estocq")         %test:assertEquals("Heinrich L’Estocq")
+    %test:args("L’Estocq, Heinrich")        %test:assertEquals("Heinrich L’Estocq")
+    %test:args("Ordoñez, Carlos d'")        %test:assertEquals("Carlos d’Ordoñez")
+    %test:args("Caroline, geb. Gräfin Clary Aldringen, verw. Gräfin Wurmbrand")        %test:assertEquals("Caroline, geb. Gräfin Clary Aldringen, verw. Gräfin Wurmbrand")
+    function st:test-print-forename-surname($name as xs:string) as xs:string {
+        str:print-forename-surname($name)
+};