From 0a907c55940e9bfbc6656204f72fdf9d942b7ad4 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <lsp@informatik.uni-kiel.de>
Date: Wed, 1 Mar 2017 22:04:41 +0100
Subject: [PATCH] Add some pending issues testcases

---
 src-literatetests/tests.blt | 51 +++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)

diff --git a/src-literatetests/tests.blt b/src-literatetests/tests.blt
index 6a29ddf..b22afe9 100644
--- a/src-literatetests/tests.blt
+++ b/src-literatetests/tests.blt
@@ -673,3 +673,54 @@ showPackageDetailedInfo pkginfo =
               $+$ nest 4 (vcat (map disp . sort . modules $ pkginfo))
           ]
 
+
+###############################################################################
+###############################################################################
+###############################################################################
+#group pending
+###############################################################################
+###############################################################################
+###############################################################################
+
+#test issue 7a
+#pending
+
+isValidPosition :: Position -> Maybe Position
+isValidPosition position
+  | validX && validY = Just position
+  | otherwise = Nothing
+
+
+## this testcase is not about idempotency, but about _how_ the output differs
+## from the input; i cannot really express this yet with the current
+## test-suite.
+## #test ayaz
+## 
+## myManageHook =
+##   composeOne [isFullscreen -?> doFullFloat, isDialog -?> doFloat, transience]
+##     <+> composeAll
+##           [ className =? "Pidgin" --> doFloat
+##           , className =? "XCalc" --> doFloat
+##           -- plan9port's acme
+##           , className =? "acme" --> doFloat
+##           -- Acme with Vi bindings editor
+##           , title =? "ED" --> doFloat
+##           , title =? "wlc-x11" --> doFloat
+##           , className =? "Skype" --> doFloat
+##           , className =? "ffplay" --> doFloat
+##           , className =? "mpv" --> doFloat
+##           , className =? "Plugin-container" --> doFloat -- Firefox flash, etc.
+##           -- Firefox works well tiled, but it has dialog windows we want to float.
+##           , appName =? "Browser" --> doFloat
+##           ]
+##  where
+##   role = stringProperty "WM_WINDOW_ROLE"
+
+#test linebreak
+#pending
+
+foo = Reflex.runSpiderHost $ ReflexHost.hostApp $ do
+  (inputEvent :: Reflex.Event Reflex.Spider String, inputFire :: String -> IO Bool)
+    <- ReflexHost.newExternalEvent
+  liftIO . forkIO . forever $ getLine >>= inputFire
+  ReflexHost.performEvent_ $ fmap (liftIO . putStrLn) inputEvent