mirror of
https://github.com/QuantumLeaps/qpcpp.git
synced 2025-01-28 06:02:56 +08:00
39 lines
794 B
Tcl
39 lines
794 B
Tcl
# QUTEST test script corresponding to the test_evt_par.c test fixture.
|
|
|
|
# preamble...
|
|
proc on_reset {} {
|
|
expect_pause
|
|
glb_filter UA
|
|
current_obj SM_AO AO_MyAO
|
|
continue
|
|
}
|
|
|
|
# tests...
|
|
#----------
|
|
test "EVT0"
|
|
dispatch MY_EVT0_SIG
|
|
expect "%timestamp MY_EVT0"
|
|
expect "%timestamp Trg-Done QS_RX_EVENT"
|
|
|
|
#----------
|
|
test "EVT1"
|
|
dispatch MY_EVT1_SIG [binary format i 12345]
|
|
expect "%timestamp MY_EVT1 12345"
|
|
expect "%timestamp Trg-Done QS_RX_EVENT"
|
|
|
|
#----------
|
|
test "EVT2"
|
|
dispatch MY_EVT2_SIG [binary format is 0x1234 678]
|
|
expect "%timestamp MY_EVT2 4660 678"
|
|
expect "%timestamp Trg-Done QS_RX_EVENT"
|
|
|
|
#----------
|
|
test "EVT2"
|
|
dispatch MY_EVT3_SIG [binary format isc 87654 0xdead 123]
|
|
expect "%timestamp MY_EVT3 87654 57005 123"
|
|
expect "%timestamp Trg-Done QS_RX_EVENT"
|
|
|
|
# the end
|
|
end
|
|
|