/**
 *   Copyright (C) 2024 T. Zachary Laine
 *
 *   Distributed under the Boost Software License, Version 1.0. (See
 *   accompanying file LICENSE_1_0.txt or copy at
 *   http://www.boost.org/LICENSE_1_0.txt)
 */

#include <boost/parser/parser.hpp>

#include <boost/core/lightweight_test.hpp>


namespace bp = boost::parser;
using namespace std::literals;

int main()
{
    {
        constexpr auto parser = bp::int_ || bp::string("foo");

        {
            auto result = bp::parse("42 foo", parser, bp::ws);
            BOOST_TEST(result);
            BOOST_TEST(*result == (bp::tuple<int, std::string>(42, "foo"s)));
        }
        {
            auto result = bp::parse("42foo", parser, bp::ws);
            BOOST_TEST(result);
            BOOST_TEST(*result == (bp::tuple<int, std::string>(42, "foo"s)));
        }
        {
            auto result = bp::parse("foo 42", parser, bp::ws);
            BOOST_TEST(result);
            BOOST_TEST(*result == (bp::tuple<int, std::string>(42, "foo"s)));
        }
        {
            auto result = bp::parse("foo42", parser, bp::ws);
            BOOST_TEST(result);
            BOOST_TEST(*result == (bp::tuple<int, std::string>(42, "foo"s)));
        }
    }

    {
        constexpr auto parser = bp::int_ || bp::string("foo") || bp::char_('g');

        {
            auto result = bp::parse("42 foo g", parser, bp::ws);
            BOOST_TEST(result);
            BOOST_TEST(
                *result ==
                (bp::tuple<int, std::string, double>(42, "foo"s, 'g')));
        }
        {
            auto result = bp::parse("42 g foo", parser, bp::ws);
            BOOST_TEST(result);
            BOOST_TEST(
                *result ==
                (bp::tuple<int, std::string, double>(42, "foo"s, 'g')));
        }
        {
            auto result = bp::parse("foo 42 g", parser, bp::ws);
            BOOST_TEST(result);
            BOOST_TEST(
                *result ==
                (bp::tuple<int, std::string, double>(42, "foo"s, 'g')));
        }
        {
            auto result = bp::parse("foo g 42", parser, bp::ws);
            BOOST_TEST(result);
            BOOST_TEST(
                *result ==
                (bp::tuple<int, std::string, double>(42, "foo"s, 'g')));
        }
        {
            auto result = bp::parse("g foo 42", parser, bp::ws);
            BOOST_TEST(result);
            BOOST_TEST(
                *result ==
                (bp::tuple<int, std::string, double>(42, "foo"s, 'g')));
        }
        {
            auto result = bp::parse("g 42 foo", parser, bp::ws);
            BOOST_TEST(result);
            BOOST_TEST(
                *result ==
                (bp::tuple<int, std::string, double>(42, "foo"s, 'g')));
        }
    }

    {
        using namespace bp::literals;
        constexpr auto parser =
            bp::delimiter(','_l)[bp::int_ || bp::string("foo") || bp::char_('g')];

        {
            auto result = bp::parse("42 foo g", parser, bp::ws);
            BOOST_TEST(!result);
            result = bp::parse("42, foo ,g", parser, bp::ws);
            BOOST_TEST(result);
            BOOST_TEST(
                *result ==
                (bp::tuple<int, std::string, double>(42, "foo"s, 'g')));
        }
        {
            auto result = bp::parse(",42, g, foo", parser, bp::ws);
            BOOST_TEST(!result);
            result = bp::parse("42, g , foo", parser, bp::ws);
            BOOST_TEST(result);
            BOOST_TEST(
                *result ==
                (bp::tuple<int, std::string, double>(42, "foo"s, 'g')));
        }
        {
            auto result = bp::parse("foo, 42, g,", parser, bp::ws);
            BOOST_TEST(!result);
            result = bp::parse("foo, 42, g", parser, bp::ws);
            BOOST_TEST(result);
            BOOST_TEST(
                *result ==
                (bp::tuple<int, std::string, double>(42, "foo"s, 'g')));
        }
        {
            auto result = bp::parse("foo g 42", parser, bp::ws);
            BOOST_TEST(!result);
            result = bp::parse("foo, g, 42", parser, bp::ws);
            BOOST_TEST(result);
            BOOST_TEST(
                *result ==
                (bp::tuple<int, std::string, double>(42, "foo"s, 'g')));
        }
        {
            auto result = bp::parse("g foo 42", parser, bp::ws);
            BOOST_TEST(!result);
            result = bp::parse("g ,foo ,42", parser, bp::ws);
            BOOST_TEST(result);
            BOOST_TEST(
                *result ==
                (bp::tuple<int, std::string, double>(42, "foo"s, 'g')));
        }
        {
            auto result = bp::parse("g 42 foo", parser, bp::ws);
            BOOST_TEST(!result);
            result = bp::parse("g , 42 , foo", parser, bp::ws);
            BOOST_TEST(result);
            BOOST_TEST(
                *result ==
                (bp::tuple<int, std::string, double>(42, "foo"s, 'g')));
        }
    }

    return boost::report_errors();
}