Add framework for semantic CI tests
diff --git a/test/test-xml.sh b/test/test-xml.sh
new file mode 100755
index 0000000..65ade92
--- /dev/null
+++ b/test/test-xml.sh
@@ -0,0 +1,36 @@
+#!/usr/bin/env bash
+TESTDIR=$(dirname $0)
+ASSERTSH=${TESTDIR}/assert.sh
+set -e
+. ${ASSERTSH}
+
+TEXTS=6
+I5_FILE=target/dnb18.i5.xml
+if [ ! -f "$I5_FILE" ]; then
+ log_failure "File $I5_FILE does not exist"
+ exit 1
+fi
+
+
+observed=$(xmlstarlet sel --net -t -v "count(//idsText)" $I5_FILE)
+
+if $(assert_eq "$observed" "$TEXTS"); then
+ log_success "$I5_FILE contains $TEXTS idsText elements"
+else
+ log_failure "$I5_FILE does not contain $TEXTS idsText elements"
+fi
+
+
+observed=$(xmlstarlet sel --net -t -v "count(/idsCorpus/idsDoc/idsText/idsHeader/fileDesc/sourceDesc/biblStruct/monogr/h.author[normalize-space(.)])" $I5_FILE)
+if $(assert_eq "$observed" "$TEXTS"); then
+ log_success "$I5_FILE contains $TEXTS non-empty h.author elements"
+else
+ log_failure "$I5_FILE does not contain $TEXTS non-empty h.author elements"
+fi
+
+observed=$(xmlstarlet sel --net -t -v "count(/idsCorpus/idsDoc/idsText/idsHeader/fileDesc/sourceDesc/biblStruct/monogr/h.author[contains(., '[')])" $I5_FILE)
+if $(assert_eq "$observed" "0"); then
+ log_success "authors do not contain []"
+else
+ log_failure "authors contain []"
+fi
\ No newline at end of file