// file      : libbuild2/name.test.cxx -*- C++ -*-
// license   : MIT; see accompanying LICENSE file

#include <sstream>

#include <iostream>

#include <libbuild2/types.hxx>   // Includes name.
#include <libbuild2/utility.hxx>

#include <libbuild2/diagnostics.hxx>

#undef NDEBUG
#include <cassert>

using namespace std;

namespace build2
{
  int
  main (int, char*[])
  {
    using dir = dir_path;

    // Test string representation.
    //
    {
      auto ts = [] (const name& n) {return to_string (n);};

      assert (ts (name ()) == "");

      assert (ts (name ("foo")) == "foo");

      assert (ts (name (dir ("bar/")))     == "bar/");
      assert (ts (name (dir ("bar/baz/"))) == "bar/baz/");

      assert (ts (name (dir ("bar/"),     "dir", "")) == "dir{bar/}");
      assert (ts (name (dir ("bar/baz/"), "dir", "")) == "bar/dir{baz/}");

      assert (ts (name (dir ("bar/"), "foo")) == "bar/foo");

      assert (ts (name (dir ("bar/"),     "dir", "foo")) == "bar/dir{foo}");
      assert (ts (name (dir ("bar/baz/"), "dir", "foo")) == "bar/baz/dir{foo}");
    }

    // Test stream representation.
    //
    {
      auto ts = [] (const name& n, quote_mode quote = quote_mode::normal)
      {
        ostringstream os;
        stream_verb (os, stream_verbosity (0, 1));
        to_stream (os, n, quote);
        return os.str ();
      };

      assert (ts (name ())                   == "''");
      assert (ts (name (), quote_mode::none) == "{}");

      assert (ts (name ("foo")) == "foo");

      assert (ts (name (dir ("bar/")))     == "bar/");
      assert (ts (name (dir ("bar/baz/"))) == "bar/baz/");

      assert (ts (name (dir ("bar/"),     "dir", "")) == "dir{bar/}");
      assert (ts (name (dir ("bar/baz/"), "dir", "")) == "bar/dir{baz/}");

      assert (ts (name (dir ("bar/"), "foo")) == "bar/foo");

      assert (ts (name (dir ("bar/"),     "dir", "foo")) == "bar/dir{foo}");
      assert (ts (name (dir ("bar/baz/"), "dir", "foo")) == "bar/baz/dir{foo}");

      // Normal quoting.
      //
      assert (ts (name (dir ("bar baz/"), "dir", "foo fox")) == "'bar baz/'dir{'foo fox'}");
      assert (ts (name (dir ("bar baz/"), "",    "foo fox")) == "'bar baz/foo fox'");

      // Effective quoting.
      //
      assert (ts (name ("bar\\baz"),   quote_mode::effective) == "bar\\baz");
      assert (ts (name ("bar[baz]"),   quote_mode::effective) == "bar[baz]");
      assert (ts (name ("bar$baz"),    quote_mode::effective) == "'bar$baz'");
      assert (ts (name ("bar\\\\baz"), quote_mode::effective) == "'bar\\\\baz'");
      assert (ts (name ("bar\\$baz"),  quote_mode::effective) == "'bar\\$baz'");

      // Relative logic.
      //
#ifndef _WIN32
      dir rb ("/bar/");
      relative_base = &rb;

      assert (ts (name (dir ("/bar/"),     "dir", ""))    == "dir{./}");
      assert (ts (name (dir ("/bar/"),     "",    "foo")) == "foo");
      assert (ts (name (dir ("/bar/baz/"), "dir", ""))    == "dir{baz/}");
      assert (ts (name (dir ("/bar/b az"), "",    "foo")) == "'b az/foo'");
#endif
    }

    return 0;
  }
}

int
main (int argc, char* argv[])
{
  return build2::main (argc, argv);
}
