From 237f42f46a7fbfa80d66486f68c682557854d38c Mon Sep 17 00:00:00 2001
From: Peter Stadler <stadlerpeter@yahoo.fr>
Date: Wed, 21 Aug 2019 16:17:30 +0200
Subject: [PATCH] add first test for the str module

---
 testing/run-tests.xql |  2 ++
 testing/str-tests.xqm | 19 +++++++++++++++++++
 2 files changed, 21 insertions(+)
 create mode 100644 testing/str-tests.xqm

diff --git a/testing/run-tests.xql b/testing/run-tests.xql
index c4e1812..3362ab6 100644
--- a/testing/run-tests.xql
+++ b/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")
 ))
diff --git a/testing/str-tests.xqm b/testing/str-tests.xqm
new file mode 100644
index 0000000..ce0c84c
--- /dev/null
+++ b/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)
+};