Add graph:lookup-from-doc

* src/graph.xsl (graph:lookup-from-doc): Added
* test/graph-doc.xml: Added
* test/graph-test.xsl: Associated test data
* test/graph.xspec: Associated tests added

3 files changed, 80 insertions, 1 deletions

diff --git a/test/graph-doc.xml b/test/graph-doc.xml
new file mode 100644
index 0000000..0fb8b98
--- /dev/null
+++ b/test/graph-doc.xml
@@ -0,0 +1,10 @@
+<!--
+  Stub document for graph test
+-->
+<root xmlns:preproc="https://www.lovullo.com/rater/preproc">
+  <preproc:sym-deps>
+    <preproc:sym-dep name="foo">
+      <preproc:sym-ref name="bar" />
+    </preproc:sym-dep>
+  </preproc:sym-deps>
+</root>
diff --git a/test/graph-test.xsl b/test/graph-test.xsl
index 416f8fb..a1cbb92 100644
--- a/test/graph-test.xsl
+++ b/test/graph-test.xsl
@@ -29,7 +29,6 @@
 
 <!-- SUT -->
 <import href="../src/graph.xsl" />
-
 <import href="graph-test.xsl.apply" />
 
 
@@ -48,6 +47,13 @@
                    src="not-here" />
 
       <preproc:sym name="missing-deps" />
+
+      <preproc:sym name="doc-sym"
+                   src="graph-doc" />
+
+      <!-- should _not_ be defined in source document -->
+      <preproc:sym name="doc-sym-unknown"
+                   src="graph-doc" />
     </preproc:symtable>
 
     <preproc:sym-deps>
diff --git a/test/graph.xspec b/test/graph.xspec
index d7fdb9a..5499430 100644
--- a/test/graph.xspec
+++ b/test/graph.xspec
@@ -286,4 +286,67 @@
                     satisfies
                       deep-equal( $vertex/*, $foo:expected-lookup )" />
   </scenario>
+
+
+  <scenario label="graph:lookup-from-doc">
+    <variable name="expected-doc" as="document-node()"
+              select="document( 'graph-doc.xml', root() )" />
+
+    <scenario label="given a known external symbol">
+      <call function="graph:lookup-from-doc">
+        <param name="doc-ext"
+               select="'xml'" />
+
+        <param name="rel-node"
+               select="root()" />
+
+        <param name="symbol"
+               select="$foo:document/preproc:symtable
+                         /preproc:sym[ @name = 'doc-sym' ]" />
+      </call>
+
+      <expect label="looks up subgraph from document"
+              test="deep-equal( $x:result,
+                                $expected-doc/*/preproc:sym-deps )" />
+    </scenario>
+
+
+    <!-- since we're looking up the graph, we don't really care if the symbol
+         exissts in it or not (that is a caller concern) -->
+    <scenario label="given an unknown external symbol">
+      <call function="graph:lookup-from-doc">
+        <param name="doc-ext"
+               select="'xml'" />
+
+        <param name="rel-node"
+               select="root()" />
+
+        <param name="symbol"
+               select="$foo:document/preproc:symtable
+                         /preproc:sym[ @name = 'doc-sym-unknown' ]" />
+      </call>
+
+      <expect label="looks up subgraph from document"
+              test="deep-equal( $x:result,
+                                $expected-doc/*/preproc:sym-deps )" />
+    </scenario>
+
+
+    <scenario label="given a symbol with no @src">
+      <call function="graph:lookup-from-doc">
+        <param name="doc-ext"
+               select="'xml'" />
+
+        <param name="rel-node"
+               select="root()" />
+
+        <param name="symbol"
+               select="$foo:document/preproc:symtable
+                         /preproc:sym[ @name = 'local' ]" />
+      </call>
+
+      <expect label="produces empty sequence"
+              test="empty( $x:result )" />
+    </scenario>
+  </scenario>
 </description>