#!/usr/local/bin/tclsh

# small test harness for tcllex

# workhorse
proc test { case } {
	exec ./tcllex -C $case.l
	exec ./run < $case > out
	puts stdout "$case differences:"
	exec diff $case.exp out
	exec rm out
}

# do the actual tests
test tests/a
test tests/b
test tests/c
test tests/d
test tests/e
test tests/f
test tests/g
test tests/h
test tests/i

# clean up
exec rm yylex.tcl

exit 0
