hierarchical-clustering-diagrams 0.3 → 0.3.1
raw patch · 2 files changed
+8/−7 lines, 2 files
Files
hierarchical-clustering-diagrams.cabal view
@@ -1,5 +1,5 @@ Name: hierarchical-clustering-diagrams-Version: 0.3+Version: 0.3.1 Synopsis: Draw diagrams of dendrograms made by hierarchical-clustering. License: BSD3 License-file: LICENSE@@ -11,7 +11,7 @@ Description: This package contains functions for drawing diagrams of dendrograms. You may see a simple image sample at- <https://patch-tag.com/r/felipe/hierarchical-clustering-diagrams/snapshot/current/content/pretty/example.png>.+ <https://github.com/meteficha/hierarchical-clustering-diagrams/blob/master/example.png>. See the documentation at "Diagrams.Dendrogram" to see how to reproduce this diagram. @@ -21,7 +21,7 @@ Source-repository head type: darcs- location: http://patch-tag.com/r/felipe/hierarchical-clustering-diagrams+ location: https://github.com/meteficha/hierarchical-clustering-diagrams Library
tests/runtests.hs view
@@ -1,4 +1,5 @@ -- from base+import Control.Arrow (first) import System.Environment (getArgs) -- from hierarchical-clustering@@ -35,7 +36,7 @@ testsMain = hspecX $ do describe "fixedWidth" $ do it "works on a test example" $- D.fixedWidth 1 test ~?=+ first (fmap snd) (D.fixedWidth 1 test) ~?= ( Branch 5 (Branch 2 (Branch 1@@ -49,7 +50,7 @@ let r :: Double -> Diagram Cairo R2 r w = rect w 40 it "works on a test example with fixed widths" $- fst (D.variableWidth (const $ r 1) test) ~?=+ (fmap snd . fst) (D.variableWidth (const $ r 1) test) ~?= Branch 5 (Branch 2 (Branch 1@@ -64,7 +65,7 @@ f 'D' = 1 f _ = undefined it "works on a test example with variable widths" $- fst (D.variableWidth r test2) ~?=+ (fmap snd . fst) (D.variableWidth r test2) ~?= Branch 5 (Branch 2 (Branch 1@@ -89,7 +90,7 @@ char :: Char -> Diagram Cairo R2-char c = pad 1.3 $ roundedRect (1,1) 0.1 `atop` text [c]+char c = pad 1.3 $ roundedRect 1 1 0.1 `atop` text [c] test :: Dendrogram Char test = Branch 5