1 files changed, 195 insertions, 0 deletions
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);
+}