head	1.1;
access;
symbols;
locks
	root:1.1; strict;
comment	@# @;


1.1
date	94.12.14.16.14.56;	author root;	state Exp;
branches;
next	;


desc
@test harness for tcllex
@


1.1
log
@Initial revision
@
text
@#!/usr/local/bin/tclsh

# small test harness for tcllex

# workhorse
proc test { case } {
	exec ./tcllex $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

# clean up
exec rm yylex.tcl

exit 0
@
