add UTs

Author: minimapletinytools

TODO.txt

@@ -244,9 +244,11 @@ DONE-support label and text area
 IGNORE-refactor ShapeDef please...
 DONE-connect fully and deprecate BoxLabel/TextHandler
   -you can still keep BoxHandler for now as it does multi-select for you
--make ellipse drawer
--add UTs
--make basic shape renderer that just fills all intersecting lines with fill character or whatever
+DONE-make poopy ellipse drawer
+DONE-add UTs
+-add text area to ellipse, maybe add text label?
+-make generic shape drawer
+-add shape selection menu
 
 :: shape tool spec
   -can we generalize box and boxtext handlers to support any shape

test/Potato/Flow/Controller/Manipulator/ShapeSpec.hs

@@ -16,12 +16,33 @@ import           Potato.Flow
 import           Potato.Flow.Controller.Manipulator.TestHelpers
 
 
+fetchLatestEllipse :: OwlPFState -> Either Text SEllipse
+fetchLatestEllipse pfs = do
+  sowl <- case maybeGetMostRecentlyCreatedOwl' pfs of
+    Nothing -> Left "failed, no 🦉s"
+    Just x  -> Right x
+  case _owlItem_subItem (_superOwl_elt sowl) of
+    OwlSubItemEllipse x -> Right x
+    x                -> Left $ "expected SEllipse got: " <> show x
+
+verifyMostRecentlyCreatedEllipseHasSize :: (Int, Int) -> GoatTester ()
+verifyMostRecentlyCreatedEllipseHasSize (x, y) = verifyStateObjectHasProperty "verifyMostRecentlyCreatedEllipseHasSize" fetchLatestEllipse checkfn where 
+  checkfn sellipse = r where
+    LBox _ (V2 x' y') = _sEllipse_box sellipse
+    r = if x == x' && y == y'
+      then Nothing
+      else Just $ "got size " <> show (x', y') <> " expected " <> show (x, y)
+
+
 drawShape :: (Int, Int, Int, Int) -> GoatTester ()
 drawShape (x, y, sx, sy) = do
   count <- getOwlCount
   setTool Tool_Shape
   tool <- getTool
   verifyEqual "tool is shape" tool Tool_Shape
+
+  -- TODO set shape, it's hardcoded right now
+
   canvasMouseDown (x, y)
   canvasMouseDown (x+sx, y+sy)
   verifyOwlCount (count+1)
@@ -49,8 +70,18 @@ basic_cancel = hSpecGoatTesterWithOwlPFState emptyOwlPFState $ do
   pressEscape
   verifyOwlCount count
 
+modifyEllipse_test :: Spec
+modifyEllipse_test = hSpecGoatTesterWithOwlPFState emptyOwlPFState $ do
+  drawShape (1, 1, 100, 100)
+  verifyMostRecentlyCreatedEllipseHasSize (100,100)
+  canvasMouseDown (0, 0)
+  canvasMouseDown (-10, -10)
+  canvasMouseUp (-10, -10)
+  verifyMostRecentlyCreatedEllipseHasSize (110,110)
+
 spec :: Spec
 spec = do
   describe "Shape" $ do
     describe "basic" $ basic_test
     describe "basic_cancel" $ basic_cancel
+    describe "modifyEllipse_test" $ modifyEllipse_test