TLP testcases
This commit is contained in:
parent
5120b2e112
commit
a1bf1d351a
3
fco2/testcases/_bad_tlp.occ
Normal file
3
fco2/testcases/_bad_tlp.occ
Normal file
|
@ -0,0 +1,3 @@
|
|||
PROC foo (INT x)
|
||||
SKIP
|
||||
:
|
3
fco2/testcases/_bad_tlp2.occ
Normal file
3
fco2/testcases/_bad_tlp2.occ
Normal file
|
@ -0,0 +1,3 @@
|
|||
PROC foo (CHAN OF BYTE blah)
|
||||
SKIP
|
||||
:
|
3
fco2/testcases/_bad_tlp3.occ
Normal file
3
fco2/testcases/_bad_tlp3.occ
Normal file
|
@ -0,0 +1,3 @@
|
|||
PROC P (CHAN OF BYTE in, keyboard, out)
|
||||
SKIP
|
||||
:
|
8
fco2/testcases/tlp.occ
Normal file
8
fco2/testcases/tlp.occ
Normal file
|
@ -0,0 +1,8 @@
|
|||
PROC tlp (CHAN OF BYTE err, out, keyboard)
|
||||
WHILE TRUE
|
||||
BYTE b:
|
||||
SEQ
|
||||
keyboard ? b
|
||||
err ! b
|
||||
out ! (b + 1)
|
||||
:
|
Loading…
Reference in New Issue
Block a user