98 lines
3.6 KiB
Text
98 lines
3.6 KiB
Text
TESTING "Test support and helpers" ./test-suite --group=common
|
||
|
||
|
||
|
||
TEST "Test support functions" TestHelper_test <<END
|
||
out: [a-z0-9]{80}$
|
||
out-lit: Displaying types and sizes....
|
||
out-lit: sizeof( just a char ) = 1
|
||
out-lit: sizeof( test::Murpf ) = 1
|
||
out-lit: sizeof( test::Wrmrmpft<test::Murpf> ) = 1
|
||
out-lit: sizeof( test::Wrmrmpft<char [2]> ) = 2
|
||
out-lit: sizeof( test::Wrmrmpft<char [3]> ) = 3
|
||
out-lit: sizeof( Universe ) = 42
|
||
out-lit: sizeof( test::Wrmrmpft<test::Murpf> ) = 1
|
||
out-lit: sizeof( test::Wrmrmpft<test::Murpf> ) = 1
|
||
out-lit: sizeof( test::Wrmrmpft<test::Murpf> ) = 1
|
||
out-lit: sizeof( test::Wrmrmpft<test::Murpf> ) = 1
|
||
out-lit: sizeof( test::Wrmrmpft<test::Murpf> ) = 1
|
||
return: 0
|
||
END
|
||
|
||
|
||
TEST "Helper for event registration and verification" TestEventLog_test <<END
|
||
err-lit: __Log_condition_violated__
|
||
err-lit: FAILED to match("γ")
|
||
err: ..after HEAD TestEventLog_test.+
|
||
err-lit: __Log_condition_violated__
|
||
err-lit: FAILED to match("α")
|
||
err-lit: ..after match("β") @ Rec(event|{β})
|
||
err: ..after HEAD TestEventLog_test.+
|
||
err-lit: __Log_condition_violated__
|
||
err-lit: FAILED to match("ham")
|
||
err-lit: ..before match("beans") @ Rec(EventLogHeader| this = baked beans )
|
||
err-lit: ..before match("spam") @ Rec(event|{spam})
|
||
err-lit: ..after HEAD baked beans
|
||
err-lit: __Log_condition_violated__
|
||
err-lit: FAILED to match("spam")
|
||
err-lit: ..before match("spam") @ Rec(event|{spam})
|
||
err-lit: ..before match("ham") @ Rec(event|{ham})
|
||
err-lit: ..before match("beans") @ Rec(EventLogHeader| this = baked beans )
|
||
err-lit: ..after HEAD baked beans
|
||
err-lit: __Log_condition_violated__
|
||
err-lit: FOUND at least match("ham") @ Rec(event|{ham})
|
||
err-lit: ..after match("eggs") @ Rec(EventLogHeader| this = eggs )
|
||
err-lit: ..before match("spam") @ Rec(event|{spam})
|
||
err-lit: ..after match("spam") @ Rec(event|{spam})
|
||
err-lit: ..after HEAD eggs
|
||
err-lit: __Log_condition_violated__
|
||
err-lit: FAILED to match("some")
|
||
err-lit: ..before match-event("fun") @ Rec(event| ID = no |{fun})
|
||
err-lit: ..after HEAD event trace
|
||
err-lit: __Log_condition_violated__
|
||
err-lit: FAILED to match-event("stuff")
|
||
err-lit: ..after HEAD theHog
|
||
err-lit: __Log_condition_violated__
|
||
err-lit: FAILED to match-event("danger")
|
||
err-lit: ..after HEAD theHog
|
||
return: 0
|
||
END
|
||
|
||
|
||
TEST "Testsuite option handling" TestOption_test <<END
|
||
out: Testing invocation with cmdline: ...
|
||
out: --> Testgroup=ALL
|
||
out: --> Test-ID =--missing--
|
||
out: --> remaining=
|
||
out: Testing invocation with cmdline: --help...
|
||
out: --> Testgroup=ALL
|
||
out: --> Test-ID =--missing--
|
||
out: --> remaining=
|
||
out: Testing invocation with cmdline: --group TestGroupID...
|
||
out: --> Testgroup=TestGroupID
|
||
out: --> Test-ID =--missing--
|
||
out: --> remaining=
|
||
out: Testing invocation with cmdline: SingleTestID...
|
||
out: --> Testgroup=ALL
|
||
out: --> Test-ID =SingleTestID
|
||
out: --> remaining=SingleTestID
|
||
out: Testing invocation with cmdline: SingleTestID --group TestGroupID...
|
||
out: --> Testgroup=TestGroupID
|
||
out: --> Test-ID =SingleTestID
|
||
out: --> remaining=SingleTestID
|
||
out: Testing invocation with cmdline: --group TestGroupID SingleTestID ...
|
||
out: --> Testgroup=TestGroupID
|
||
out: --> Test-ID =SingleTestID
|
||
out: --> remaining=SingleTestID
|
||
out: Testing invocation with cmdline: --group TestGroupID SingleTestID spam eggs...
|
||
out: --> Testgroup=TestGroupID
|
||
out: --> Test-ID =SingleTestID
|
||
out: --> remaining=SingleTestID spam eggs
|
||
out: Testing invocation with cmdline: SingleTestID spam --group TestGroupID --eggs...
|
||
out: --> Testgroup=TestGroupID
|
||
out: --> Test-ID =SingleTestID
|
||
out: --> remaining=SingleTestID spam --eggs
|
||
return: 0
|
||
END
|
||
|
||
|