/*
    Copyright 2007-2008, Felspar Co Ltd. http://fost.3.felspar.com/
    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 "fost-test.hpp"
#include <fost/test.hpp>


using namespace fostlib;


namespace {


    typedef threadsafe_store< fostlib::reference_ptr< const test::suite > > suite_t;
    suite_t &g_suites() {
        static suite_t s;
        return s;
    }


    setting< bool > c_verbose( L"fost-test/testsuite.cpp", L"Tests", L"Display test names", false, true );
    setting< bool > c_continue( L"fost-test/testsuite.cpp", L"Tests", L"Continue after error", true, true );


}


/*
    fostlib::test::test
*/


fostlib::test::test::test( const suite &s, const fostlib::string &n ) {
    s.add( n, this );
}


/*
    fostlib::test::suite
*/


fostlib::test::suite::suite( const fostlib::string &name )
: m_name( name ) {
    g_suites().add( m_name, this );
}


void fostlib::test::suite::add( const fostlib::string &n, const fostlib::test::test *t ) const {
    (*g_suites().find( m_name ).begin())->m_tests.add( n, t );
}


namespace {
    bool loop( ostream *op ) {
        bool exception( false );
        suite_t::keys_t suitenames( g_suites().keys() );
        for ( suite_t::keys_t::const_iterator sn( suitenames.begin() ); sn != suitenames.end(); ++sn ) {
            //if ( op )
            //    *op << *sn << L" " << TimeStamp::now() << '\n';
            try {
                suite_t::found_t suites( g_suites().find( *sn ) );
                for ( suite_t::found_t::const_iterator s( suites.begin() ); s != suites.end(); ++s ) {
                    fostlib::test::suite::test_keys_type testnames( (*s)->test_keys() );
                    for ( fostlib::test::suite::test_keys_type::const_iterator tn( testnames.begin() ); tn != testnames.end(); ++tn ) {
                        if ( op && c_verbose.value() )
                            *op << *sn << L": " << *tn << '\n';
                        fostlib::test::suite::tests_type tests( (*s)->tests( *tn ) );
                        for ( fostlib::test::suite::tests_type::const_iterator test( tests.begin() ); test != tests.end(); ++test )
                            try {
                                (*test)->execute();
                            } catch ( fostlib::exceptions::exception &e ) {
                                exception = true;
                                e.info() << L"Test: " << *tn << std::endl;
                                throw;
                            } catch ( ... ) {
                                exception = true;
                                throw;
                            }
                    }
                }
            } catch ( fostlib::exceptions::exception &e ) {
                e.info() << L"Suite: " << *sn << std::endl;
                if ( op )
                    *op << e << std::endl;
                else if ( !c_continue.value() )
                    throw;
            }
            //if ( op )
            //    *op << *sn << L" " << TimeStamp::now() << '\n' << std::endl;
        }
        return exception;
    }
}


bool fostlib::test::suite::execute() {
    return loop( NULL );
}


bool fostlib::test::suite::execute( ostream &o ) {
    return loop( &o );
}


/*
    fostlib::exceptions::test_failure
*/


fostlib::exceptions::test_failure::test_failure( const string &cond, nliteral file, uint64_t line )
: exception( cond ) {
    info() << L"Location: " << file;
    info() << L":" << line;
    info() << std::endl;
}


const wchar_t *const fostlib::exceptions::test_failure::message() const {
    return L"Test failure";
}