mirror of
https://github.com/QuantumLeaps/qpcpp.git
synced 2025-01-28 06:02:56 +08:00
46 lines
1.0 KiB
Tcl
46 lines
1.0 KiB
Tcl
# QUTEST for 'Test-Probes'
|
|
|
|
# preamble...
|
|
proc on_setup {} {
|
|
expect "%timestamp ON_TEST_SETUP"
|
|
}
|
|
proc on_teardown {} {
|
|
expect "%timestamp ON_TEST_TEARDOWN"
|
|
}
|
|
|
|
# tests...
|
|
|
|
#----------
|
|
test "Single Test Probe"
|
|
command COMMAND_X
|
|
expect "%timestamp COMMAND_X 0"
|
|
expect "%timestamp Trg-Done QS_RX_COMMAND"
|
|
probe myFun 1
|
|
command COMMAND_X
|
|
expect "%timestamp TstProbe Fun=myFun,Data=1"
|
|
expect "%timestamp COMMAND_X 1"
|
|
expect "%timestamp Trg-Done QS_RX_COMMAND"
|
|
command COMMAND_X
|
|
expect "%timestamp COMMAND_X 0"
|
|
expect "%timestamp Trg-Done QS_RX_COMMAND"
|
|
|
|
#----------
|
|
test "Multiple Test Probes" -noreset
|
|
probe myFun 100022
|
|
probe myFun 200033
|
|
command COMMAND_X
|
|
expect "%timestamp TstProbe Fun=myFun,Data=100022"
|
|
expect "%timestamp COMMAND_X 100022"
|
|
expect "%timestamp Trg-Done QS_RX_COMMAND"
|
|
command COMMAND_X
|
|
expect "%timestamp TstProbe Fun=myFun,Data=200033"
|
|
expect "%timestamp COMMAND_X 200033"
|
|
expect "%timestamp Trg-Done QS_RX_COMMAND"
|
|
command COMMAND_X
|
|
expect "%timestamp COMMAND_X 0"
|
|
expect "%timestamp Trg-Done QS_RX_COMMAND"
|
|
|
|
# the end
|
|
end
|
|
|