aboutsummaryrefslogtreecommitdiff
path: root/old-tests/parser
diff options
context:
space:
mode:
Diffstat (limited to 'old-tests/parser')
-rw-r--r--old-tests/parser/buildfile9
-rw-r--r--old-tests/parser/driver.cxx195
2 files changed, 204 insertions, 0 deletions
diff --git a/old-tests/parser/buildfile b/old-tests/parser/buildfile
new file mode 100644
index 0000000..ec158fa
--- /dev/null
+++ b/old-tests/parser/buildfile
@@ -0,0 +1,9 @@
+# file : tests/parser/buildfile
+# copyright : Copyright (c) 2014-2016 Code Synthesis Ltd
+# license : MIT; see accompanying LICENSE file
+
+import libs = libbutl%lib{butl}
+
+exe{driver}: cxx{driver ../../build/{token lexer parser scope target \
+ prerequisite variable operation rule search algorithm file module dump \
+ context diagnostics name path-io utility}} $libs
diff --git a/old-tests/parser/driver.cxx b/old-tests/parser/driver.cxx
new file mode 100644
index 0000000..7c73937
--- /dev/null
+++ b/old-tests/parser/driver.cxx
@@ -0,0 +1,195 @@
+// file : tests/build/parser/driver.cxx -*- C++ -*-
+// copyright : Copyright (c) 2014-2016 Code Synthesis Ltd
+// license : MIT; see accompanying LICENSE file
+
+#include <cassert>
+#include <sstream>
+#include <iostream>
+
+#include <build/types>
+#include <build/scope>
+#include <build/target>
+#include <build/context>
+#include <build/variable>
+
+#include <build/lexer>
+#include <build/parser>
+
+using namespace std;
+using namespace build;
+
+static bool
+parse (const char*);
+
+static names
+parse_names (const char* s, lexer_mode m, bool chunk);
+
+static names
+chunk_names (const char* s)
+{
+ return parse_names (s, lexer_mode::pairs, true);
+}
+
+int
+main ()
+{
+ ostream cnull (nullptr);
+ diag_stream = &cnull;
+
+ reset ();
+
+ global_scope->assign ("foo") = "FOO";
+ global_scope->assign ("bar") = "BAR";
+
+ // names() in chunking mode.
+ //
+ assert (chunk_names ("{}") == names ({name ()}));
+ assert (chunk_names ("foo") == names ({name ("foo")}));
+ assert (chunk_names ("foo bar") == names ({name ("foo")}));
+ assert (chunk_names ("{foo bar}") == names ({name ("foo"), name ("bar")}));
+ assert (chunk_names ("dir{foo bar}") == names ({name ("dir", "foo"),
+ name ("dir", "bar")}));
+ assert (chunk_names ("dir{foo bar} baz") == names ({name ("dir", "foo"),
+ name ("dir", "bar")}));
+ assert (chunk_names ("dir {foo bar}") == names ({name ("dir", "foo"),
+ name ("dir", "bar")}));
+ assert (chunk_names ("dir {foo bar} baz") == names ({name ("dir", "foo"),
+ name ("dir", "bar")}));
+ assert (chunk_names ("{} foo") == names ({name ()}));
+
+ // Expansion.
+ //
+ assert (chunk_names ("$foo $bar baz") == names ({name ("FOO")}));
+ assert (chunk_names ("$foo$bar baz") == names ({name ("FOOBAR")}));
+
+ assert (chunk_names ("foo(bar)") == names ({name ("foobar")}));
+ assert (chunk_names ("foo (bar)") == names ({name ("foo")}));
+
+ assert (chunk_names ("\"$foo\"(bar)") == names ({name ("FOObar")}));
+ assert (chunk_names ("\"$foo\" (bar)") == names ({name ("FOO")}));
+
+ // Quoting.
+ //
+ assert (chunk_names ("\"$foo $bar\" baz") == names ({name ("FOO BAR")}));
+
+ // Pairs.
+ //
+ assert (chunk_names ("foo=bar") == names ({name ("foo"), name ("bar")}));
+ assert (chunk_names ("foo = bar x") == names ({name ("foo"), name ("bar")}));
+
+ // General.
+ //
+ assert (parse (""));
+ assert (parse ("foo:"));
+ assert (parse ("foo bar:"));
+ assert (parse ("foo:\nbar:"));
+ assert (parse ("foo: bar"));
+ assert (parse ("foo: bar baz"));
+ assert (parse ("foo bar: baz biz"));
+
+ assert (parse ("{foo}:"));
+ assert (parse ("{foo bar}:"));
+ assert (parse ("{{foo bar}}:"));
+ assert (parse ("{{foo bar} {baz} {biz fox} fix}:"));
+
+ assert (parse ("file{foo}:"));
+ assert (parse ("file{foo bar}:"));
+ assert (parse ("{file{foo bar}}:"));
+ assert (parse ("file{{foo bar} fox}:"));
+ assert (parse ("file{foo}: file{bar baz} biz.o file{fox}"));
+
+ //assert (!parse (":"));
+ assert (!parse ("foo"));
+ assert (!parse ("{"));
+ assert (!parse ("{foo:"));
+ assert (!parse ("{foo{:"));
+ assert (!parse ("foo: bar:"));
+ assert (!parse ("file{foo:"));
+
+ // Directory prefix.
+ //
+ assert (parse ("../{foo}: ../{bar}"));
+ assert (parse ("../file{foo}: ../file{bar}"));
+ assert (!parse ("../file{file{foo}}:"));
+
+ // Directory scope.
+ //
+ assert (parse ("test/:\n{\n}"));
+ assert (parse ("test/:\n{\n}\n"));
+ assert (parse ("test/:\n{\nfoo:bar\n}"));
+ assert (parse ("test/:\n{\nfoo:bar\n}"));
+ assert (parse ("test/:\n{\nmore/:\n{\n}\n}"));
+ assert (parse ("test/:\n{\nmore/:\n{\nfoo:{bar baz}\n}\n}"));
+
+ assert (!parse ("test/:\n{"));
+ assert (!parse ("test/:\n{\n"));
+ assert (!parse ("test/:\n{\n:"));
+ assert (!parse ("test/:\n{\n} foo: bar\n"));
+ assert (!parse ("test/ foo:\n{\n}"));
+ assert (!parse ("test foo/:\n{\n}"));
+ assert (!parse ("test/ foo/:\n{\n}"));
+}
+
+struct test_parser: parser
+{
+ names_type
+ test_names (const char*, lexer_mode, bool chunk);
+};
+
+static bool
+parse (const char* s)
+{
+ reset (); // Clear the state.
+
+ // Create a minimal root scope.
+ //
+ auto i (scopes.insert (path::current (), nullptr, true, true));
+ scope& root (*i->second);
+ root.src_path_ = root.out_path_ = &i->first;
+
+ istringstream is (s);
+
+ is.exceptions (istream::failbit | istream::badbit);
+ parser p;
+
+ try
+ {
+ p.parse_buildfile (is, path (), root, root);
+ }
+ catch (const failed&)
+ {
+ return false;
+ }
+
+ return true;
+}
+
+// parser::names()
+//
+names test_parser::
+test_names (const char* s, lexer_mode m, bool chunk)
+{
+ istringstream is (s);
+ is.exceptions (istream::failbit | istream::badbit);
+ lexer l (is, "");
+
+ if (m != lexer_mode::normal)
+ l.mode (m, '=');
+
+ path_ = &l.name ();
+ lexer_ = &l;
+ target_ = nullptr;
+ scope_ = root_ = global_scope;
+
+ token t (token_type::eos, false, 0, 0);
+ token_type tt;
+ next (t, tt);
+ return names (t, tt, chunk);
+}
+
+static names
+parse_names (const char* s, lexer_mode m, bool chunk)
+{
+ test_parser p;
+ return p.test_names (s, m, chunk);
+}