parser: add necessary checks to operator() to stop accepting nonsense.

[ginac.git] / check / parser_bugs.cpp

diff --git a/check/parser_bugs.cpp b/check/parser_bugs.cpp
index 340fe20fb2cc4da5b038172e0e5d8204e8bbb16c..af32c5ef89c81548eea433f16d9bd7ab882ed046 100644 (file)
--- a/check/parser_bugs.cpp
+++ b/check/parser_bugs.cpp
@@ -41,6 +41,39 @@ static int check2(std::ostream& err_str)
        return 0;
 }
 
+/// parse_literal_expr forget to consume the token, so parser get
+/// very confused.
+static int check3(std::ostream& err_str)
+{
+       const std::string srep("5-(2*I)/3");
+       parser reader;
+       ex e = reader(srep);
+       ex g = numeric(5) - (numeric(2)*I)/3;
+       ex d = (e - g).expand();
+       if (!d.is_zero()) {
+               err_str << "\"" << srep << "\" was misparsed as \""
+                       << e << "\"" << std::endl;
+               return 1;
+       }
+       return 0;
+}
+
+/// parser happily accepted various junk like 'x^2()+1'
+static int check4(std::ostream& err_str)
+{
+       const std::string junk("x^2()+1");
+       parser reader;
+       ex e;
+       try {
+               e = reader(junk);
+               err_str << "parser accepts junk: \"" << junk << "\"" << std::endl;
+               return 1;
+       } catch (parse_error& err) {
+               // Ok, parser rejects the nonsense.
+               return 0;
+       }
+}
+
 int main(int argc, char** argv)
 {
        std::cout << "checking for parser bugs. " << std::flush;
@@ -48,6 +81,8 @@ int main(int argc, char** argv)
        int errors = 0;
        errors += check1(err_str);
        errors += check2(err_str);
+       errors += check3(err_str);
+       errors += check4(err_str);
        if (errors) {
                std::cout << "Yes, unfortunately:" << std::endl;
                std::cout << err_str.str();