b06dbfb · reflex-dom · git.iko.soy

29import Data.Constraint.Extras.TH

30import Data.Dependent.Map (DMap)

31import Data.Dependent.Sum (DSum(..), (==>), EqTag(..), ShowTag(..))

32−--import Data.Foldable (traverse_)

33import Data.Functor.Identity

32import Data.Functor.Identity

34import Data.Functor.Misc

33import Data.Functor.Misc

35import Data.GADT.Compare.TH

34import Data.GADT.Compare.TH

411 e <- inputElement def

410 e <- inputElement def

412 performEvent_ $ liftIO . writeRef focusRef <$> updated (_inputElement_hasFocus e)

411 performEvent_ $ liftIO . writeRef focusRef <$> updated (_inputElement_hasFocus e)

413 it "sets value appropriately" $ runWD $ do

412 it "sets value appropriately" $ runWD $ do

414− putStrLnDebug "sets value appropriately"

415 valueByUIRef :: IORef Text <- newRef ""

413 valueByUIRef :: IORef Text <- newRef ""

416 valueRef :: IORef Text <- newRef ""

414 valueRef :: IORef Text <- newRef ""

417 setValueChan :: Chan Text <- liftIO newChan

415 setValueChan :: Chan Text <- liftIO newChan

432 performEvent_ $ liftIO . writeRef valueByUIRef <$> _inputElement_input e

430 performEvent_ $ liftIO . writeRef valueByUIRef <$> _inputElement_input e

433 performEvent_ $ liftIO . writeRef valueRef <$> updated (value e)

431 performEvent_ $ liftIO . writeRef valueRef <$> updated (value e)

434 it "sets checked appropriately" $ runWD $ do

432 it "sets checked appropriately" $ runWD $ do

435− putStrLnDebug "sets checked appropriately"

436 checkedByUIRef <- newRef False

433 checkedByUIRef <- newRef False

437 checkedRef <- newRef False

434 checkedRef <- newRef False

438 setCheckedChan <- liftIO newChan

435 setCheckedChan <- liftIO newChan

439 let checkValue = do

436 let checkValue = do

440− putStrLnDebug "1"

441 readRef checkedByUIRef `shouldBeWithRetryM` False

437 readRef checkedByUIRef `shouldBeWithRetryM` False

442− putStrLnDebug "2"

443 readRef checkedRef `shouldBeWithRetryM` False

438 readRef checkedRef `shouldBeWithRetryM` False

444− putStrLnDebug "3"

445 e <- findElemWithRetry $ WD.ByTag "input"

439 e <- findElemWithRetry $ WD.ByTag "input"

446− putStrLnDebug "4"

447 WD.moveToCenter e

440 WD.moveToCenter e

448− putStrLnDebug "5"

449 WD.click e

441 WD.click e

450− putStrLnDebug "6"

451 readRef checkedByUIRef `shouldBeWithRetryM` True

442 readRef checkedByUIRef `shouldBeWithRetryM` True

452− putStrLnDebug "7"

453 readRef checkedRef `shouldBeWithRetryM` True

443 readRef checkedRef `shouldBeWithRetryM` True

454− putStrLnDebug "8"

455 liftIO $ writeChan setCheckedChan False

444 liftIO $ writeChan setCheckedChan False

456− putStrLnDebug "9"

457 readRef checkedByUIRef `shouldBeWithRetryM` True

445 readRef checkedByUIRef `shouldBeWithRetryM` True

458− putStrLnDebug "10"

459 readRef checkedRef `shouldBeWithRetryM` False

446 readRef checkedRef `shouldBeWithRetryM` False

460− putStrLnDebug "11"

461 testWidget (pure ()) checkValue $ do

447 testWidget (pure ()) checkValue $ do

462− putStrLnDebug "12"

463 setChecked <- triggerEventWithChan setCheckedChan

448 setChecked <- triggerEventWithChan setCheckedChan

464− putStrLnDebug "13"

465 prerender_ (pure ()) $ do

449 prerender_ (pure ()) $ do

466− putStrLnDebug "14"

467 e <- inputElement $ def

450 e <- inputElement $ def

468 & initialAttributes .~ "type" =: "checkbox"

451 & initialAttributes .~ "type" =: "checkbox"

469 & inputElementConfig_setChecked .~ setChecked

452 & inputElementConfig_setChecked .~ setChecked

470− putStrLnDebug "15"

471 performEvent_ $ liftIO . writeRef checkedByUIRef <$> _inputElement_checkedChange e

453 performEvent_ $ liftIO . writeRef checkedByUIRef <$> _inputElement_checkedChange e

472− putStrLnDebug "16"

473 performEvent_ $ liftIO . writeRef checkedRef <$> updated (_inputElement_checked e)

454 performEvent_ $ liftIO . writeRef checkedRef <$> updated (_inputElement_checked e)

474− putStrLnDebug "17"

475 it "captures file uploads" $ runWD $ do

455 it "captures file uploads" $ runWD $ do

476 filesRef :: IORef [Text] <- newRef []

456 filesRef :: IORef [Text] <- newRef []

477 let uploadFile = do

457 let uploadFile = do

478− putStrLnDebug "1"

479 e <- findElemWithRetry $ WD.ByTag "input"

458 e <- findElemWithRetry $ WD.ByTag "input"

480− putStrLnDebug "2"

481 path <- liftIO $ writeSystemTempFile "testFile" "file contents"

459 path <- liftIO $ writeSystemTempFile "testFile" "file contents"

482− putStrLnDebug "3"

483 WD.sendKeys (T.pack path) e

460 WD.sendKeys (T.pack path) e

484− putStrLnDebug "4"

485 WD.click =<< (findElemWithRetry $ WD.ByTag "button")

461 WD.click =<< (findElemWithRetry $ WD.ByTag "button")

486− putStrLnDebug "5"

487 liftIO $ removeFile path

462 liftIO $ removeFile path

488− putStrLnDebug "6"

489 readRef filesRef `shouldBeWithRetryM` [T.pack $ FilePath.takeFileName path]

463 readRef filesRef `shouldBeWithRetryM` [T.pack $ FilePath.takeFileName path]

490− putStrLnDebug "7"

491 testWidget (pure ()) uploadFile $ prerender_ (pure ()) $ do

464 testWidget (pure ()) uploadFile $ prerender_ (pure ()) $ do

492− putStrLnDebug "8"

493 e <- inputElement $ def & initialAttributes .~ "type" =: "file"

465 e <- inputElement $ def & initialAttributes .~ "type" =: "file"

494− putStrLnDebug "9"

495 click <- button "save"

466 click <- button "save"

496− putStrLnDebug "10"

497 performEvent_ $ ffor (tag (current (_inputElement_files e)) click) $ \fs -> do

467 performEvent_ $ ffor (tag (current (_inputElement_files e)) click) $ \fs -> do

498− putStrLnDebug "11"

499 names <- liftJSM $ traverse File.getName fs

468 names <- liftJSM $ traverse File.getName fs

500− putStrLnDebug "12"

501 liftIO $ writeRef filesRef names

469 liftIO $ writeRef filesRef names

502− putStrLnDebug "13"

503

470

504 describe "textAreaElement" $ do

471 describe "textAreaElement" $ do

505 describe "hydration" $ session' $ do

472 describe "hydration" $ session' $ do