<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="stylesheet" href="../coverage.css"/> <title> walkmap/polygon.clj </title>
</head>
<body>
<span class="covered" title="1 out of 1 forms covered">
001 (ns walkmap.polygon
</span><br/>
<span class="not-tracked" title="0 out of 0 forms covered">
002 "Essentially the specification for things we shall consider to be polygons."
</span><br/>
<span class="not-tracked" title="0 out of 0 forms covered">
003 (:require [walkmap.vertex :refer [vertex?]]))
</span><br/>
<span class="blank" title="0 out of 0 forms covered">
004
</span><br/>
<span class="covered" title="1 out of 1 forms covered">
005 (defn polygon?
</span><br/>
<span class="not-tracked" title="0 out of 0 forms covered">
006 "True if `o` satisfies the conditions for a polygon. A polygon shall be a
</span><br/>
<span class="not-tracked" title="0 out of 0 forms covered">
007 map which has a value for the key `:vertices`, where that value is a sequence
</span><br/>
<span class="not-tracked" title="0 out of 0 forms covered">
008 of vertices."
</span><br/>
<span class="not-tracked" title="0 out of 0 forms covered">
009 [o]
</span><br/>
<span class="not-covered" title="0 out of 1 forms covered">
010 (let
</span><br/>
<span class="not-covered" title="0 out of 3 forms covered">
011 [v (:vertices o)]
</span><br/>
<span class="not-covered" title="0 out of 9 forms covered">
012 (and
</span><br/>
<span class="not-covered" title="0 out of 3 forms covered">
013 (seq? v)
</span><br/>
<span class="not-covered" title="0 out of 6 forms covered">
014 (> (count v) 2)
</span><br/>
<span class="not-covered" title="0 out of 3 forms covered">
015 (every? vertex? v))))
</span><br/>
<span class="blank" title="0 out of 0 forms covered">
016
</span><br/>
<span class="blank" title="0 out of 0 forms covered">
017
</span><br/>
</body>
</html>