Flag errant timezone indicators in dateline attrs

… where "+00:00" is appended without basis

Author: joewiz

schema/frus-dates.sch

@@ -9,7 +9,7 @@
     <p>This schematron file contains date-related rules augmenting frus.sch. This file is
         appropriate for evaluating vendor deliveries and first review of a volume for date encoding
         and values.</p>
-    
+
     <xsl:include href="frus-dates.xsl"/>
 
     <ns prefix="tei" uri="http://www.tei-c.org/ns/1.0"/>
@@ -151,6 +151,19 @@
             <assert role="warning" test="empty($warn)"><value-of select="$warn"/>: <value-of
                     select="normalize-space(.)"/></assert>
 
+            <let name="timezone-attributes" value="$actual-attributes[matches(., '[-+]00:00$')]"/>
+
+            <!-- Flag timezone indicators +00:00 or -00:00 -->
+            <assert id="zulu-timezone-mismatch" role="warning" test="
+                    if (exists($timezone-attributes)) then
+                        (matches(., '\d{4}Z|Zulu') or exists(@ana))
+                    else
+                        true()">Time zone indicator <value-of
+                    select="string-join($timezone-attributes ! analyze-string(., '[-+]00:00$')/fn:match, ', ')"
+                /> is not expected in: <value-of
+                    select="$timezone-attributes ! serialize(., map {'method': 'adaptive'})"
+                /></assert>
+
             <!-- Schematron Quick Fix to replace any existing date attributes with the expected ones -->
             <sqf:fix id="fix-date-attributes">
                 <sqf:description>

tests/frus-dates-sch.xspec

@@ -30,4 +30,31 @@
         <x:expect-not-assert id="date-matches-attributes" label="Skip undated"
             location="/tei:dateline/tei:date"/>
     </x:scenario>
+    <x:scenario label="Unexpected Zulu timezone indicator raises warning">
+        <x:context>
+            <dateline xmlns="http://www.tei-c.org/ns/1.0">
+                <date when="1986-06-04T09:55:00+00:00">June 4, 1986, 9:55 a.m.</date>
+            </dateline>
+        </x:context>
+        <x:expect-assert id="zulu-timezone-mismatch"
+            label="Unexpected timezone indicator is correctly flagged"/>
+    </x:scenario>
+    <x:scenario label="Expected Zulu indicator passes check">
+        <x:context>
+            <dateline xmlns="http://www.tei-c.org/ns/1.0">
+                <date when="1986-06-04T09:55:00+00:00">June 4, 1986, 0955Z</date>
+            </dateline>
+        </x:context>
+        <x:expect-not-assert id="zulu-timezone-mismatch" label="Expected Zulu indicator passes check"/>
+    </x:scenario>
+    <x:scenario label="Zulu indicator with justification passes check">
+        <x:context>
+            <dateline xmlns="http://www.tei-c.org/ns/1.0">
+                <date ana="#good-reason" when="1986-06-04T09:55:00+00:00">June 4, 1986, 9:55
+                    a.m.</date>
+            </dateline>
+        </x:context>
+        <x:expect-not-assert id="zulu-timezone-mismatch"
+            label="Zulu indicator with justification passes check"/>
+    </x:scenario>
 </x:description>