# Test for chord length resrictions.
#
# If the chord length is too small (< DBLE_EPSILON) return an error,
# otherwise no error.
package require Tk

wm withdraw .

puts -nonewline "Checking chord-length restrictions ... "

if {$tcl_version < 8.7} {
    puts "FAILED: -height option for canvas arcs not supported in version $tcl_version"
    exit 1
}

# Create the canvas and its duplicate
set c [canvas .c -width 700 -height 700 -bg grey]

# An arc that's too small is invisibly ignored
$c create arc 300 200 300 200 -height 50 -outline red -style arc

# An ordinary arc
$c create arc 400 200 300 200 -height 50 -outline red -style arc

# Everything is okay
puts "passed"

exit 0
