# Test for gradient spanning slave interps.

test gradientslave-1.1 {Destroy slave} \
-result {} \
-body {
    interp create slavei
    slavei eval {
        package require Tk
        package require tkpath
    }
    interp delete slavei
}

test gradientslave-1.2 {Shared gradients inside slave} \
-result 0 \
-body {
    set masterg [tkp::gradient create radial \
                -stops [list \
                           {0 white 0.9}  [list 1 red4 0.4]] \
                -radialtransition {
                    0.477551020408 0.540983606557
                    1.00918367347 0.898979591837
                    0.139344262295}]
    interp create slavei
    slavei eval {
        package require Tk
        package require tkpath
    }
    set myRet [string compare [tkp::gradient names] $masterg]
    interp delete slavei
    set myRet
}

# cleanup
::tkp_cleanup
return
