tcl/tk - как сделать тесты для ГУЯ

когда-то писали сами..муторно делается, но прикольно смотрится - GUI который живёт своей жизнью :-)

hint: в Tk можно перехватить/считать/сохранить все event`ы и потом самому их event generate :-)

Можете ещё посмотреть исходники библиотеки Tk. Там есть каталог tests с набором тестов для gui элементов. Может быть, найдёте что-нибудь интересное.

xdotool

Всем спасибо!

event generate - это на самом деле не то, что подразумевается под тестированием GUI, хоть вещь и полезная. тут скорее либо упоминавшийся xdotool и примкнувший к нему dogtail, либо учитывая специфичность гуя tcl/tk, sikuli и автоматизация по скриншотам

не выдумавайте лишних сущностей и не ищите черную кошку в черной комнате. event gen и инспект по фреймам более чем достаточно для топикстартера.

sikuli и автоматизация по скриншотам

А потом изменится системная тема/цвета/шрифты/хинтинг/иконки/... и давай опять генерить скриншоты для тестов.

поэтому в нормальных языках есть нормальные инструменты. но у тса tcl

Не надо ссориться, горячие финские парни! Я всё понял и знаю, из чего выбирать. Это главное.

Нормальные инструменты для тестирования гуя - это, конечно, хорошо, только вот самого гуя нормального ни у кого, кроме Tcl нету.

только вот самого гуя нормального ни у кого, кроме Tcl нету.

А в каких единицах измерения оценивается нормальность гуя*

Не скажу за термин «нормальность», но вот лёгкость построения тактикля подкупает. Обожаю такие технологии, такой софт.

Пока вот так:

## Copyright (c) Denis Budyak 2015
## Test case for bug 70
## Bug description: tcl completion: when part of namespace is given, variables not shown in completion list
## Load this file with tcsoh test/regression70.tcl

namespace eval ::autotests {
    variable NormalTime 1 # Scale of a time. In a slow computer, increase it.

    proc TimeUnits {n} {
        variable NormalTime
        return $n * $NormalTime
    }

    proc regression70 {} {
        set partial_namespace "::tkco"
        variable ::tkcon::PRIV
        set con $PRIV(console)
        event generate $con <<TkCon_Clear>>
        ::clear
        ::tkcon::Prompt
        $con insert end $partial_namespace
        event generate $con <<TkCon_ExpandTcl>>
        # Here we can afford it, as unfinished activity leads to failure of the test.
        # In general case, I don't know how to ensure that clear and prompt commands are
        # fully completed
        after [TimeUnits 0.1] [list after idle [list ::autotests::regression70continuation]]
    }

    proc regression70continuation {} {
        variable ::tkcon::PRIV
        set con $PRIV(console)
        set text [$con get 1.0 end]
        set success [string match "*::tkcon::PRIV*" $text]
        ::mprs::AssertEq $success 1 "regression70 test failed"
        }
    
    regression70
}

Кукумбером, не?

Да это уже не вопрос, это уже мой на него ответ. Ставить ещё и руби для тестов - да ну нафиг. Да и доку надо осиливать... Но всё равно спасибо за заботу!