// Copyright (C) 2008-2018 Lorenzo Caminiti
// Distributed under the Boost Software License, Version 1.0 (see accompanying
// file LICENSE_1_0.txt or a copy at http://www.boost.org/LICENSE_1_0.txt).
// See: http://www.boost.org/doc/libs/release/libs/contract/doc/html/index.html

// Test virtual public member function body throws with subcontracting.

#include "smoke.hpp"
#include <boost/optional.hpp>
#include <boost/preprocessor/control/iif.hpp>
#include <boost/detail/lightweight_test.hpp>
#include <sstream>

int main() {
    std::ostringstream ok;
    
    a aa; // Test call to derived out-most leaf.
    c& ca = aa; // Test polymorphic virtual call (via reference to base c).
    s_type s; s.value = "X"; // So body will throw.
    out.str("");
    boost::optional<result_type&> r;
    try {
        r = ca.f(s);
        BOOST_TEST(false);
    } catch(except_error const&) {
        ok.str(""); ok
            #ifndef BOOST_CONTRACT_NO_ENTRY_INVARIANTS
                << "d::static_inv" << std::endl
                << "d::inv" << std::endl
                << "e::static_inv" << std::endl
                << "e::inv" << std::endl
                << "c::static_inv" << std::endl
                << "c::inv" << std::endl
                << "a::static_inv" << std::endl
                << "a::inv" << std::endl
            #endif
            #ifndef BOOST_CONTRACT_NO_PRECONDITIONS
                << "d::f::pre" << std::endl
            #endif
            #ifndef BOOST_CONTRACT_NO_OLDS
                << "d::f::old" << std::endl
                << "e::f::old" << std::endl
                << "c::f::old" << std::endl
                << "a::f::old" << std::endl
            #endif
            << "a::f::body" << std::endl
            #ifndef BOOST_CONTRACT_NO_EXIT_INVARIANTS
                << "d::static_inv" << std::endl
                << "d::inv" << std::endl
                << "e::static_inv" << std::endl
                << "e::inv" << std::endl
                << "c::static_inv" << std::endl
                << "c::inv" << std::endl
                << "a::static_inv" << std::endl
                << "a::inv" << std::endl
            #endif
            #ifndef BOOST_CONTRACT_NO_EXCEPTS
                << "d::f::old" << std::endl
                << "d::f::except" << std::endl
                << "e::f::old" << std::endl
                << "e::f::except" << std::endl
                << "c::f::old" << std::endl
                << "c::f::except" << std::endl
                // No old call here because not a base object.
                << "a::f::except" << std::endl
            #endif
        ;
        BOOST_TEST(out.eq(ok.str()));

        #ifndef BOOST_CONTRACT_NO_OLDS
            #define BOOST_CONTRACT_TEST_old 1u
        #else
            #define BOOST_CONTRACT_TEST_old 0u
        #endif
        
        BOOST_TEST(!r); // Boost.Optional result not init (as body threw).
        BOOST_TEST_EQ(s.value, "X");
        BOOST_TEST_EQ(s.copies(), BOOST_CONTRACT_TEST_old * 4);
        BOOST_TEST_EQ(s.evals(), BOOST_CONTRACT_TEST_old * 4);
        BOOST_TEST_EQ(s.ctors(), s.dtors() + 1); // 1 for local var.

        // Cannot access x via ca, but only via aa.
        BOOST_TEST_EQ(aa.x.value, "a");
        BOOST_TEST_EQ(aa.x.copies(), BOOST_CONTRACT_TEST_old);
        BOOST_TEST_EQ(aa.x.evals(), BOOST_CONTRACT_TEST_old);
        BOOST_TEST_EQ(aa.x.ctors(), aa.x.dtors() + 1); // 1 for member var.

        BOOST_TEST_EQ(ca.y.value, "c");
        BOOST_TEST_EQ(ca.y.copies(), BOOST_CONTRACT_TEST_old);
        BOOST_TEST_EQ(ca.y.evals(), BOOST_CONTRACT_TEST_old);
        BOOST_TEST_EQ(ca.y.ctors(), aa.y.dtors() + 1); // 1 for member var.
        
        BOOST_TEST_EQ(ca.t<'d'>::z.value, "d");
        BOOST_TEST_EQ(ca.t<'d'>::z.copies(), BOOST_CONTRACT_TEST_old);
        BOOST_TEST_EQ(ca.t<'d'>::z.evals(), BOOST_CONTRACT_TEST_old);
        BOOST_TEST_EQ(ca.t<'d'>::z.ctors(), aa.t<'d'>::z.dtors() + 1); // 1 mem.

        BOOST_TEST_EQ(ca.t<'e'>::z.value, "e");
        BOOST_TEST_EQ(ca.t<'e'>::z.copies(), BOOST_CONTRACT_TEST_old);
        BOOST_TEST_EQ(ca.t<'e'>::z.evals(), BOOST_CONTRACT_TEST_old);
        BOOST_TEST_EQ(ca.t<'e'>::z.ctors(), aa.t<'e'>::z.dtors() + 1); // 1 mem.

        #undef BOOST_CONTRACT_TEST_old
    }
    return boost::report_errors();
}