# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1245622796 -3600
# Node ID d6f0c12c152a599d92ab6797791a4024f991fc02
# Parent  3a76729438955f989f85e92b7754081afc8881ef
tests: Add support for checking the consumed part of the input

diff -r 3a7672943895 -r d6f0c12c152a tests.lua
--- a/tests.lua	Sun Jun 21 23:12:23 2009 +0100
+++ b/tests.lua	Sun Jun 21 23:19:56 2009 +0100
@@ -6,12 +6,16 @@
 
 local all_ok = true;
 
-local function check(input, output)
-	local ret = when(input, 0);
+local function check(input, output, e_start, e_finish)
+	local ret, start, finish = when(input, 0);
 	if ret ~= output then
 		print("FAIL: "..input.." [produces "..ret.."/"..os.date("!%c", ret).."]");
 		all_ok = false;
 		return false;
+	elseif (e_start and e_finish) and (start ~= e_start or finish ~= e_finish) then
+		print("FAIL: "..input.." [uses "..start..","..finish.." instead of "..e_start..","..e_finish.."]");
+		all_ok = false;
+		return false;
 	end
 end