/***************************************************************************
 *   Copyright (C) 2004 by Intra2net AG                                    *
 *   info@intra2net.com                                                    *
 *                                                                         *
 ***************************************************************************/

#include <sys/types.h>
#include <unistd.h>
#include <errno.h>
#include <signal.h>
#include <stdio.h>

#include <iostream>
#include <string>
#include <sstream>
#include <stdexcept>

#include <cppunit/extensions/TestFactoryRegistry.h>
#include <cppunit/ui/text/TestRunner.h>
#include <cppunit/extensions/HelperMacros.h>

#include <boost/archive/binary_oarchive.hpp>
#include <boost/archive/binary_iarchive.hpp>
#include <boost/archive/xml_oarchive.hpp>
#include <boost/archive/xml_iarchive.hpp>
#include <boost/serialization/serialization.hpp>

#include <container.hxx>
#include <socket_client.hxx>
#include <socket_server.hxx>
#include <command_client.hxx>
#include <command_server.hxx>

using namespace std;
using namespace CppUnit;

int newserver_func(int i)
{

    return 1;
}

class newserver_res : public libt2n::result
{
    private:
        int res;

        friend class boost::serialization::access;
        template<class Archive>
        void serialize(Archive & ar, const unsigned int version)
        {
            ar & BOOST_SERIALIZATION_BASE_OBJECT_NVP(libt2n::result);
            ar & BOOST_SERIALIZATION_NVP(res);
        }

    public:
        newserver_res()
            { }

        newserver_res(int i)
        {
            res=i;
        }

        int get_data()
        {
            return res;
        }
};


class newserver_cmd : public libt2n::command
{
    private:
        int param;

        friend class boost::serialization::access;
        template<class Archive>
        void serialize(Archive & ar, const unsigned int version)
        {
            ar & BOOST_SERIALIZATION_BASE_OBJECT_NVP(libt2n::command);
            ar & BOOST_SERIALIZATION_NVP(param);
        }

    public:
        newserver_cmd()
            { }

        newserver_cmd(int i)
        {
            param=i;
        }

        libt2n::result* operator()()
        {
            return new newserver_res(newserver_func(param));
        }
};

#include <boost/serialization/export.hpp>

BOOST_CLASS_EXPORT(newserver_cmd)
BOOST_CLASS_EXPORT(newserver_res)

using namespace libt2n;

class test_newserver : public TestFixture
{
    CPPUNIT_TEST_SUITE(test_newserver);

    CPPUNIT_TEST(NewServerSocket);

    CPPUNIT_TEST_SUITE_END();

    pid_t child_pid;

    public:

    void setUp()
    { }

    void tearDown()
    {
        // make sure the server-child is dead before the next test runs
        kill(child_pid,SIGKILL);
        sleep(1);
    }

    void NewServerSocket()
    {
        switch(child_pid=fork())
        {
            case -1:
            {
                CPPUNIT_FAIL("fork error");
                break;
            }
            case 0:
            // child
            {
                try
                {
                    {
                        socket_server ss("./socket");
                        command_server cs(ss);

                        // handle new connection and just one command
                        cs.handle(10000000);
                        cs.handle(10000000);
                    }
                    // close socket, create new one
                    {
                        socket_server ss("./socket");
                        ss.set_logging(&cerr,debug);
                        command_server cs(ss);

                        // max 30 sec
                        for (int i=0; i < 30; i++)
                            cs.handle(1000000);
                    }
                } catch(...)
                {
                    std::cerr << "exception in child. ignoring\n";
                }

                // don't call atexit and stuff
                _exit(0);
            }

            default:
            // parent
            {
                // don't kill us on broken pipe
                signal(SIGPIPE, SIG_IGN);

                // wait till server is up
                sleep(1);
                socket_client_connection sc("./socket");
                sc.set_logging(&cerr,debug);
                command_client cc(&sc);

                result_container rc;
                cc.send_command(new newserver_cmd(1),rc);

                // very short sleep to make sure new server socket is up
                usleep(10000);

                // still has connection to the old server-socket
                string errormsg;

                try
                {
                    sc.write("some stuff");
                }
                catch(t2n_transfer_error &e)
                    { errormsg=e.what(); }
                catch(...)
                    { throw; }

                CPPUNIT_ASSERT_EQUAL(string("write() returned Bad file descriptor"),errormsg);
            }
        }
    }
};

CPPUNIT_TEST_SUITE_REGISTRATION(test_newserver);