1# regression tests for the tsort utilitiy
2
3KEEP "*.dat"
4
5TEST 01 'basics'
6	EXEC
7		INPUT - $'a a'
8		OUTPUT - $'a'
9	EXEC
10		INPUT - $'a a b b'
11		OUTPUT - $'a\nb'
12	EXEC
13		INPUT - $'a c\na b\nb c'
14		OUTPUT - $'a\nb\nc'
15	EXEC
16		INPUT - $'a b\nb c\nc a'
17		OUTPUT - $'a\nb\nc'
18		ERROR - $'tsort: warning: cycle in data\ntsort:  a\ntsort:  b\ntsort:  c'
19		EXIT 1
20	EXEC
21		INPUT - $'a'
22		OUTPUT -
23		ERROR - $'tsort: odd data'
24
25TEST 02 'how did this slip through?'
26	EXEC
27		INPUT - $'b c\na c\na b'
28		OUTPUT - $'a\nb\nc'
29