class TestTokenProcessor
	super MarkdownProcessor

	var test_stack: Array[String]

	redef fun token_at(input, pos) do
		var token = super
		if token isa TokenNone then return token
		var res = "{token.class_name} at {token.location or else "?"}"
		var exp = test_stack.shift
		print ""
		print "EXP {exp}"
		print "RES {res}"
		assert exp == res
		return token
	end
end