# Description: Tests for various polyline functions.

test polyline-1.1 {polyline coords} \
-setup ::tkp_setup \
-result {12.0 20.0 34.0 5.0 90.0 56.0} \
-body { 
    .c coords [.c create polyline 12 20 34 5 90 56] 
}

test polygon-1.1 {polygon coords} \
-setup ::tkp_setup \
-result {12.0 20.0 34.0 5.0 90.0 56.0} \
-body { 
    .c coords [.c create ppolygon 12 20 34 5 90 56 -fill red] 
}

# cleanup
::tkp_cleanup
return

