suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added more channel end tests, involving abbreviations before use

Browse Source
This commit is contained in:
Neil Brown 2009-01-20 23:50:02 +00:00
parent 1adca155dd
commit 16d8468b08
1 changed files with 91 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

91
testcases/automatic/chan-ends.occ.test
View File

@ -81,5 +81,96 @@ PROC main()
%M
foo(c!)
%PASS Output body abbrev, with no direction
CHAN INT d IS c:
d ! 3
%M
foo(c)
%FAIL Output body abbrev, with input direction
CHAN INT d IS c:
d ! 3
%M
foo(c?)
%PASS Output body abbrev, with output direction
CHAN INT d IS c:
d ! 3
%M
foo(c!)
%PASS Output body abbrev dir, with no direction
CHAN INT d! IS c:
d ! 3
%M
foo(c)
%FAIL Output body abbrev dir, with input direction
CHAN INT d! IS c:
d ! 3
%M
foo(c?)
%PASS Output body abbrev dir, with output direction
CHAN INT d! IS c:
d ! 3
%M
foo(c!)
%PASS Output body abbrev array, with no direction
[]CHAN INT d IS [c]:
d[0] ! 3
%M
foo(c)
%FAIL Output body abbrev array, with input direction
[]CHAN INT d IS [c]:
d[0] ! 3
%M
foo(c?)
%PASS Output body abbrev array, with output direction
[]CHAN INT d IS [c]:
d[0] ! 3
%M
foo(c!)
%PASS Output body abbrev array B, with no direction
[]CHAN INT d! IS [c]:
d[0] ! 3
%M
foo(c)
%FAIL Output body abbrev array B, with input direction
[]CHAN INT d! IS [c]:
d[0] ! 3
%M
foo(c?)
%PASS Output body abbrev array B, with output direction
[]CHAN INT d! IS [c]:
d[0] ! 3
%M
foo(c!)
%PASS Output body abbrev array C, with no direction
[]CHAN INT d! IS [c!]:
d[0] ! 3
%M
foo(c)
%FAIL Output body abbrev array C, with input direction
[]CHAN INT d! IS [c!]:
d[0] ! 3
%M
foo(c?)
%PASS Output body abbrev array C, with output direction
[]CHAN INT d! IS [c!]:
d[0] ! 3
%M
foo(c!)
%