From 0ed86c76239d4f2904ea4ae1a77902a9e0db2a6d Mon Sep 17 00:00:00 2001 From: Boris Kolpackov Date: Thu, 1 Dec 2016 12:07:18 +0200 Subject: Move old tests to old-tests/ --- tests/parser/buildfile | 9 --- tests/parser/driver.cxx | 195 ------------------------------------------------ 2 files changed, 204 deletions(-) delete mode 100644 tests/parser/buildfile delete mode 100644 tests/parser/driver.cxx (limited to 'tests/parser') diff --git a/tests/parser/buildfile b/tests/parser/buildfile deleted file mode 100644 index ec158fa..0000000 --- a/tests/parser/buildfile +++ /dev/null @@ -1,9 +0,0 @@ -# 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/tests/parser/driver.cxx b/tests/parser/driver.cxx deleted file mode 100644 index 7c73937..0000000 --- a/tests/parser/driver.cxx +++ /dev/null @@ -1,195 +0,0 @@ -// file : tests/build/parser/driver.cxx -*- C++ -*- -// copyright : Copyright (c) 2014-2016 Code Synthesis Ltd -// license : MIT; see accompanying LICENSE file - -#include -#include -#include - -#include -#include -#include -#include -#include - -#include -#include - -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); -} -- cgit v1.1