From e5da6f8ce10f9b7cd5e11ffe7a3ba4302ba6c216 Mon Sep 17 00:00:00 2001
From: Mike Gerwitz <gerwitm@lovullo.com>
Date: Tue, 5 Jul 2016 16:14:57 -0400
Subject: Add graph:make-from-vertices

* src/graph.xsl (graph:make-from-vertices): Added
* test/graph-test.xsl (foo:graph-with-dupes): Added duplicate edges
* test/graph.xspec: Added tests
---
 test/graph.xspec | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

(limited to 'test/graph.xspec')

diff --git a/test/graph.xspec b/test/graph.xspec
index 7c823f0..209f965 100644
--- a/test/graph.xspec
+++ b/test/graph.xspec
@@ -29,6 +29,42 @@
              stylesheet="graph-test.xsl">
 
 
+  <scenario label="graph:make-from-vertices">
+    <scenario label="with no vertices">
+      <call function="graph:make-from-vertices">
+        <param name="vertices"
+               select="()" />
+      </call>
+
+      <expect label="produces an empty graph">
+        <preproc:sym-deps />
+      </expect>
+    </scenario>
+
+
+    <scenario label="with vertices">
+      <call function="graph:make-from-vertices">
+        <param name="vertices"
+               select="$foo:graph-vtwo/preproc:sym-dep" />
+      </call>
+
+      <expect label="produces a graph containing those vertices"
+              select="$foo:graph-vtwo" />
+    </scenario>
+
+
+    <scenario label="with duplicate vertices">
+      <call function="graph:make-from-vertices">
+        <param name="vertices"
+               select="$foo:graph-with-dupes/preproc:sym-dep" />
+      </call>
+
+      <expect label="removes duplicate vertices and edges"
+              select="$foo:graph-deduped" />
+    </scenario>
+  </scenario>
+
+
   <scenario label="graph:reverse on a disconnected DAG">
     <call function="graph:reverse">
       <param name="graph"
-- 
cgit v1.2.1