mirror of
https://github.com/QuantumLeaps/qpcpp.git
synced 2025-01-28 06:02:56 +08:00
21 lines
321 B
Tcl
21 lines
321 B
Tcl
# QUTEST test for 'command'
|
|
|
|
# preamble...
|
|
proc on_setup {} {
|
|
expect "%timestamp ON_TEST_SETUP"
|
|
}
|
|
proc on_teardown {} {
|
|
expect "%timestamp ON_TEST_TEARDOWN"
|
|
}
|
|
|
|
# tests...
|
|
|
|
#----------
|
|
test "Command"
|
|
command COMMAND_X 1 2 3
|
|
expect "%timestamp COMMAND_X 0"
|
|
expect "%timestamp Trg-Done QS_RX_COMMAND"
|
|
|
|
# the end
|
|
end
|