def testParserTypeCheck
verifyTypeMismatch(:plus, '1st', Parser, String) do
char('a').plus('a')
end
verifyTypeMismatch(:seq, '1st', Parser, String) do
char('a').seq('a')
end
verifyTypeMismatch(:followed, '1st', Parser, String) do
char('a') << 'a'
end
verifyTypeMismatch(:sequence, '2nd', Parser, Fixnum) do
sequence(char('a'), 1, 2)
end
verifyTypeMismatch(:sum, '2nd', Parser, Fixnum) do
sum(char('a'), 1, 2)
end
verifyTypeMismatch(:longest, '2nd', Parser, Fixnum) do
longest(char('a'), 1, 2)
end
verifyTypeMismatch(:shortest, '2nd', Parser, Fixnum) do
shortest(char('a'), 1, 2)
end
end