add test case from cairo#38

diagrams · Jan 17, 2014 · 88b2995 · 88b2995
1 parent de312c3
commit 88b2995
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/ref/triangle-miter.png b/ref/triangle-miter.png
diff --git a/src/Diagrams/Tests.hs b/src/Diagrams/Tests.hs
@@ -220,6 +220,10 @@ examples =
                <>
                trailLike ((fromVertices [origin, 0 ^& 2, 3 ^& 3, 4 ^& 1] # wrapLine) `at` origin)
 
+        , Test "triangle-miter" $
+               triangle 1   # fc green # rotateBy (1/5)
+               <>
+               square   1.2 # fc white # lw 0
         ]
 
 poly_example = (poly1 ||| strutX 1 ||| poly2) # lw 0.05