Skip to content

GitLab

I
iTasks-SDK
Commit 65e21dc4 authored by Bas Lijnse's avatar Bas Lijnse
Browse files
Options

Added testcases for testing css styles

parent 7184cb3c
Pipeline #21195 passed with stage
    in 5 minutes and 27 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 18 additions and 0 deletions
    Tests/Interactive/Styling/TestChildSizing.icl 0 → 100644
    View file @ 65e21dc4
    module TestChildSizing
    import iTasks
    test :: Task ()
    test
    = (testItem "A" -&&- testItem "B") <<@ ArrangeHorizontal <<@ CSSStyle "justify-content: center"
    @! ()
    testItem label = viewInformation () [] label <<@ ApplyLayout (setUIAttributes (sizeAttr (ExactSize 100) (ExactSize 300))) <<@ InPanel False
    Start world = doTasks test world
    Tests/Interactive/Styling/TestFrameCompact.icl 0 → 100644
    View file @ 65e21dc4
    module TestFrameCompact
    import iTasks
    test :: Task Int
    test = viewInformation () [] 23 <<@ ApplyLayout frameCompact
    Start world = doTasks test world
    Markdown is supported
    0% or
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment