do_request "file://$TESTHOME/forms.html"


# this file segfaults (or at least it dit at 1.11.2001)

field find ~i 5

set counter 0
foreach field [field all] {

    # here. if replaced by debug "$field" then works. hmm.
    debug $field

    array set aField $field

    #debug $aField(name)
    debug $aField(index)
    eval "field find ~i $aField(index)"
    debug [field get_name]


    incr counter
    if { $counter > 100 } {
        assertion_failed "too many loops"
    }
}
