@@ -29,7 +29,6 @@ import Data.Constraint.Extras
2929import Data.Constraint.Extras.TH
3030import Data.Dependent.Map (DMap)
3131import Data.Dependent.Sum (DSum(..), (==>), EqTag(..), ShowTag(..))
32−--import Data.Foldable (traverse_)
3332import Data.Functor.Identity
3433import Data.Functor.Misc
3534import Data.GADT.Compare.TH
@@ -411,7 +410,6 @@ tests withDebugging wdConfig caps _selenium = do
411410 e <- inputElement def
412411 performEvent_ $ liftIO . writeRef focusRef <$> updated (_inputElement_hasFocus e)
413412 it "sets value appropriately" $ runWD $ do
414− putStrLnDebug "sets value appropriately"
415413 valueByUIRef :: IORef Text <- newRef ""
416414 valueRef :: IORef Text <- newRef ""
417415 setValueChan :: Chan Text <- liftIO newChan
@@ -432,74 +430,43 @@ tests withDebugging wdConfig caps _selenium = do
432430 performEvent_ $ liftIO . writeRef valueByUIRef <$> _inputElement_input e
433431 performEvent_ $ liftIO . writeRef valueRef <$> updated (value e)
434432 it "sets checked appropriately" $ runWD $ do
435− putStrLnDebug "sets checked appropriately"
436433 checkedByUIRef <- newRef False
437434 checkedRef <- newRef False
438435 setCheckedChan <- liftIO newChan
439436 let checkValue = do
440− putStrLnDebug "1"
441437 readRef checkedByUIRef `shouldBeWithRetryM` False
442− putStrLnDebug "2"
443438 readRef checkedRef `shouldBeWithRetryM` False
444− putStrLnDebug "3"
445439 e <- findElemWithRetry $ WD.ByTag "input"
446− putStrLnDebug "4"
447440 WD.moveToCenter e
448− putStrLnDebug "5"
449441 WD.click e
450− putStrLnDebug "6"
451442 readRef checkedByUIRef `shouldBeWithRetryM` True
452− putStrLnDebug "7"
453443 readRef checkedRef `shouldBeWithRetryM` True
454− putStrLnDebug "8"
455444 liftIO $ writeChan setCheckedChan False
456− putStrLnDebug "9"
457445 readRef checkedByUIRef `shouldBeWithRetryM` True
458− putStrLnDebug "10"
459446 readRef checkedRef `shouldBeWithRetryM` False
460− putStrLnDebug "11"
461447 testWidget (pure ()) checkValue $ do
462− putStrLnDebug "12"
463448 setChecked <- triggerEventWithChan setCheckedChan
464− putStrLnDebug "13"
465449 prerender_ (pure ()) $ do
466− putStrLnDebug "14"
467450 e <- inputElement $ def
468451 & initialAttributes .~ "type" =: "checkbox"
469452 & inputElementConfig_setChecked .~ setChecked
470− putStrLnDebug "15"
471453 performEvent_ $ liftIO . writeRef checkedByUIRef <$> _inputElement_checkedChange e
472− putStrLnDebug "16"
473454 performEvent_ $ liftIO . writeRef checkedRef <$> updated (_inputElement_checked e)
474− putStrLnDebug "17"
475455 it "captures file uploads" $ runWD $ do
476456 filesRef :: IORef [Text] <- newRef []
477457 let uploadFile = do
478− putStrLnDebug "1"
479458 e <- findElemWithRetry $ WD.ByTag "input"
480− putStrLnDebug "2"
481459 path <- liftIO $ writeSystemTempFile "testFile" "file contents"
482− putStrLnDebug "3"
483460 WD.sendKeys (T.pack path) e
484− putStrLnDebug "4"
485461 WD.click =<< (findElemWithRetry $ WD.ByTag "button")
486− putStrLnDebug "5"
487462 liftIO $ removeFile path
488− putStrLnDebug "6"
489463 readRef filesRef `shouldBeWithRetryM` [T.pack $ FilePath.takeFileName path]
490− putStrLnDebug "7"
491464 testWidget (pure ()) uploadFile $ prerender_ (pure ()) $ do
492− putStrLnDebug "8"
493465 e <- inputElement $ def & initialAttributes .~ "type" =: "file"
494− putStrLnDebug "9"
495466 click <- button "save"
496− putStrLnDebug "10"
497467 performEvent_ $ ffor (tag (current (_inputElement_files e)) click) $ \fs -> do
498− putStrLnDebug "11"
499468 names <- liftJSM $ traverse File.getName fs
500− putStrLnDebug "12"
501469 liftIO $ writeRef filesRef names
502− putStrLnDebug "13"
503470
504471 describe "textAreaElement" $ do
505472 describe "hydration" $ session' $ do