--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test_tsv.lua	Sat Oct 31 16:28:42 2009 +0000
@@ -0,0 +1,19 @@
+dofile "test_data.lua"
+
+local tsv = require "tsv"
+
+local row = 0;
+for line in io.lines("test_data.tsv") do
+	row = row + 1;
+	local col = 0;
+	tsv.read_record(line, function (v) 
+		col = col + 1;
+		if data[row][col] ~= v then
+			print(("MISMATCH at row %d, column %d: %s is not %s")
+				:format(row, col, v, tostring(data[row][col])))
+			bad = true;
+		end
+	end);
+end
+
+os.exit(bad and 1 or 0);