factor/basis/ui/gadgets/tracks/tracks-tests.factor

USING: kernel ui.gadgets ui.gadgets.tracks tools.test
math.rectangles accessors sequences namespaces ;
IN: ui.gadgets.tracks.tests

[ { 100 100 } ] [
    vertical <track>
        <gadget> { 100 100 } >>dim 1 track-add
    pref-dim    
] unit-test

[ { 100 110 } ] [
    vertical <track>
        <gadget> { 10 10 } >>dim f track-add
        <gadget> { 100 100 } >>dim 1 track-add
    pref-dim
] unit-test

[ { 10 10 } ] [
    vertical <track>
        <gadget> { 10 10 } >>dim 1 track-add
        <gadget> { 10 10 } >>dim 0 track-add
    pref-dim
] unit-test

[ { 10 30 } ] [
    vertical <track>
        <gadget> { 10 10 } >>dim f track-add
        <gadget> { 10 10 } >>dim f track-add
        <gadget> { 10 10 } >>dim f track-add
    pref-dim
] unit-test

[ { 10 40 } ] [
    vertical <track>
        { 5 5 } >>gap
        <gadget> { 10 10 } >>dim f track-add
        <gadget> { 10 10 } >>dim f track-add
        <gadget> { 10 10 } >>dim f track-add
    pref-dim
] unit-test

[ V{ { 10 10 } { 10 80 } { 10 10 } } ] [
    vertical <track>
        0 >>fill
        <gadget> { 10 10 } >>dim f track-add
        <gadget> { 10 10 } >>dim 1 track-add
        <gadget> { 10 10 } >>dim f track-add
    { 10 100 } >>dim
    [ layout ] [ children>> [ dim>> ] map ] bi
] unit-test

[ ] [
    vertical <track>
        0 >>fill
        <gadget> { 10 10 } >>dim f track-add
        <gadget> { 10 10 } >>dim dup "g1" set 1/2 track-add
        <gadget> { 10 10 } >>dim dup "g2" set f track-add
        <gadget> { 10 10 } >>dim 1/2 track-add
        <gadget> { 10 10 } >>dim f track-add
    { 10 100 } >>dim
    "track" set
] unit-test

[ V{ { 10 10 } { 10 35 } { 10 10 } { 10 35 } { 10 10 } } ]
[ "track" get [ layout ] [ children>> [ dim>> ] map ] bi ] unit-test

[ V{ { 10 10 } { 10 80 } { 10 10 } } ] [
    "g1" get unparent
    "g2" get unparent
    "track" get [ layout ] [ children>> [ dim>> ] map ] bi
] unit-test

[ 3 ] [ "track" get sizes>> length ] unit-test