From 1695398495c0fd8fdd6e18c5882b82851ac172cd Mon Sep 17 00:00:00 2001
From: Andrew Sales <andrew@andrewsales.com>
Date: Mon, 7 Aug 2023 18:30:39 +0100
Subject: [PATCH] [MOD] unit tests re #21

---
 svrl.xqm               |   4 +-
 test/test-evaluate.xqm | 188 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 191 insertions(+), 1 deletion(-)

diff --git a/svrl.xqm b/svrl.xqm
index f0680dd..e80912c 100644
--- a/svrl.xqm
+++ b/svrl.xqm
@@ -127,9 +127,11 @@ as item()*
       case element(sch:name)
         return if($node/@path) 
           then output:name-value-of($node/@path, $prolog, $rule-context, $context)
-          else name($rule-context)
+          [self::svrl:*]
+          else ()
       case element(sch:value-of)
         return output:name-value-of($node/@select, $prolog, $rule-context, $context)
+        [self::svrl:*]
     default return ()
   else
   <svrl:text>{(:TODO attributes:)
diff --git a/test/test-evaluate.xqm b/test/test-evaluate.xqm
index c1c87e7..cf6796d 100644
--- a/test/test-evaluate.xqm
+++ b/test/test-evaluate.xqm
@@ -1323,4 +1323,192 @@ declare %unit:test function _:global-variable-syntax-error()
       <svrl:text>No specifier after lookup operator: ';'. @value='?'</svrl:text>
     )
   )
+};
+
+declare %unit:test function _:pattern-variable-syntax-error()
+{
+  let $result :=
+  eval:schema(
+    document{<root/>},
+     <sch:schema>
+      <sch:pattern>
+        <sch:let name='y' value='$'/>
+        <sch:rule context="/">
+          <sch:report test="true()"></sch:report>
+        </sch:rule>
+      </sch:pattern>
+    </sch:schema>,
+    '',
+    map{'dry-run':'true'}
+  )
+  return
+  (
+    unit:assert-equals(
+      $result/svrl:failed-assert[ends-with(@location ,'/Q{http://purl.oclc.org/dsdl/schematron}pattern[1]/Q{http://purl.oclc.org/dsdl/schematron}let[1]/@value')]
+      /svrl:text,
+      <svrl:text>Incomplete FLWOR expression, expecting 'return'. @value='$'</svrl:text>
+    )
+  )
+};
+
+declare %unit:test function _:rule-context-syntax-error()
+{
+  let $result :=
+  eval:schema(
+    document{<root/>},
+     <sch:schema>
+      <sch:pattern>
+        <sch:rule context="">
+          <sch:report test="true()"></sch:report>
+        </sch:rule>
+      </sch:pattern>
+    </sch:schema>,
+    '',
+    map{'dry-run':'true'}
+  )
+  return
+  (
+    unit:assert-equals(
+      $result/svrl:failed-assert/svrl:text,
+      <svrl:text>Expecting expression. @context=''</svrl:text>
+    )
+  )
+};
+
+declare %unit:test function _:dry-run-all-rules-processed()
+{
+  let $result :=
+  eval:schema(
+    document{<root/>},
+     <sch:schema>
+      <sch:pattern>
+        <sch:rule context="">
+        </sch:rule>
+        <sch:rule context='*'></sch:rule>
+      </sch:pattern>
+    </sch:schema>,
+    '',
+    map{'dry-run':'true'}
+  )
+  return
+  (
+    unit:assert-equals(
+      count($result/svrl:fired-rule),
+      2
+    )
+  )
+};
+
+declare %unit:ignore function _:rule-variable-syntax-error()
+{
+  let $result :=
+  eval:schema(
+    document{<root/>},
+     <sch:schema>
+      <sch:pattern>
+        <sch:rule context="*">
+          <sch:let name='bar' value=''/>
+        </sch:rule>
+        <sch:rule context='*'></sch:rule>
+      </sch:pattern>
+    </sch:schema>,
+    '',
+    map{'dry-run':'true'}
+  )
+  return
+  (
+    unit:assert-equals(
+      count($result/svrl:failed-assert[ends-with(@location, '/Q{http://purl.oclc.org/dsdl/schematron}pattern[1]/Q{http://purl.oclc.org/dsdl/schematron}rule[1]/@context')]),
+      1
+    ),
+    unit:assert-equals(
+      $result/svrl:failed-assert[ends-with(@location, '/Q{http://purl.oclc.org/dsdl/schematron}pattern[1]/Q{http://purl.oclc.org/dsdl/schematron}rule[1]/@context')]
+      /svrl:text,
+    <svrl:text>TODO</svrl:text>  
+    )
+  )
+};
+
+declare %unit:test function _:report-test-syntax-error()
+{
+  let $result :=
+  eval:schema(
+    document{<root/>},
+     <sch:schema>
+      <sch:pattern>
+        <sch:rule context="*">
+          <sch:report test='ns:*'/>
+        </sch:rule>
+      </sch:pattern>
+    </sch:schema>,
+    '',
+    map{'dry-run':'true'}
+  )
+  return
+  (
+    unit:assert-equals(
+      count($result/svrl:failed-assert[ends-with(@location, '/Q{http://purl.oclc.org/dsdl/schematron}pattern[1]/Q{http://purl.oclc.org/dsdl/schematron}rule[1]/Q{http://purl.oclc.org/dsdl/schematron}report[1]/@test')]),
+      1
+    ),
+    unit:assert-equals(
+      $result/svrl:failed-assert/svrl:text,
+    <svrl:text>Namespace prefix not declared: ns. @test='ns:*'</svrl:text>  
+    )
+  )
+};
+
+declare %unit:test function _:name-path-syntax-error()
+{
+  let $result :=
+  eval:schema(
+    document{<root/>},
+     <sch:schema>
+      <sch:pattern>
+        <sch:rule context="*">
+          <sch:report test="."><sch:name path='...'/></sch:report>
+        </sch:rule>
+      </sch:pattern>
+    </sch:schema>,
+    '',
+    map{'dry-run':'true'}
+  )
+  return
+  (
+    unit:assert-equals(
+      count($result/svrl:failed-assert[ends-with(@location, '/Q{http://purl.oclc.org/dsdl/schematron}pattern[1]/Q{http://purl.oclc.org/dsdl/schematron}rule[1]/Q{http://purl.oclc.org/dsdl/schematron}report[1]/Q{http://purl.oclc.org/dsdl/schematron}name[1]/@path')]),
+      1
+    ),
+    unit:assert-equals(
+      $result/svrl:failed-assert/svrl:text,
+    <svrl:text>Unexpected end of query: '.'. @path='...'</svrl:text>  
+    )
+  )
+};
+
+declare %unit:test function _:value-of-select-syntax-error()
+{
+  let $result :=
+  eval:schema(
+    document{<root/>},
+     <sch:schema>
+      <sch:pattern>
+        <sch:rule context="*">
+          <sch:report test="."><sch:value-of select='...'/></sch:report>
+        </sch:rule>
+      </sch:pattern>
+    </sch:schema>,
+    '',
+    map{'dry-run':'true'}
+  )
+  return
+  (
+    unit:assert-equals(
+      count($result/svrl:failed-assert[ends-with(@location, '/Q{http://purl.oclc.org/dsdl/schematron}pattern[1]/Q{http://purl.oclc.org/dsdl/schematron}rule[1]/Q{http://purl.oclc.org/dsdl/schematron}report[1]/Q{http://purl.oclc.org/dsdl/schematron}value-of[1]/@select')]),
+      1
+    ),
+    unit:assert-equals(
+      $result/svrl:failed-assert/svrl:text,
+    <svrl:text>Unexpected end of query: '.'. @select='...'</svrl:text>  
+    )
+  )
 };
\ No newline at end of file