//OpenSCADA module Special.SystemTests file: test_xml.h
/***************************************************************************
 *   Copyright (C) 2005-2022 by Roman Savochenko, <roman@oscada.org>       *
 *                                                                         *
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; version 2 of the License.               *
 *                                                                         *
 *   This program is distributed in the hope that it will be useful,       *
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
 *   GNU General Public License for more details.                          *
 *                                                                         *
 *   You should have received a copy of the GNU General Public License     *
 *   along with this program; if not, write to the                         *
 *   Free Software Foundation, Inc.,                                       *
 *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
 ***************************************************************************/

#ifndef TEST_XML_H
#define TEST_XML_H

#include <errno.h>

#include <tfunction.h>

namespace KernelTest
{

//*************************************************
//* TestXML: XML file parsing test.               *
//*************************************************
class TestXML : public TFunction
{
    public:
	TestXML( ) : TFunction("XML",SSPC_ID)
	{
	    ioAdd( new IO("rez",trS("Result"),IO::String,IO::Return) );
	    ioAdd( new IO("file",trS("XML file"),IO::String,IO::Default) );
	}

	string name( )	{ return _("XML parsing"); }
	string descr( )	{ return _("Test for XML file parsing. Disassembles and displays the structure of the specified file."); }

	void calc( TValFunc *val )
	{
	    int hd = -1;
	    try
	    {
		mod->mess(id(),_("Test: Start"));
		if((hd=open(val->getS(1).c_str(),O_RDONLY)) < 0)
		    throw TError(nodePath().c_str(),_("Error opening the file '%s'."),val->getS(1).c_str());
		int cf_sz = lseek(hd, 0, SEEK_END);
		lseek(hd, 0, SEEK_SET);
		char *buf = (char*)malloc(cf_sz);
		ssize_t rRez = read(hd, buf, cf_sz);
		if(rRez < 0) throw TError(nodePath().c_str(), _("Error reading the file '%s': %s."),val->getS(1).c_str(),strerror(errno));
		else if(rRez != cf_sz) throw TError(nodePath().c_str(), _("Read the file '%s' only %d from %d."), val->getS(1).c_str(), rRez, cf_sz);
		string s_buf(buf, cf_sz);
		free(buf);
		XMLNode node;
		int64_t st_cnt = TSYS::curTime();
		node.load(s_buf);
		int64_t end_cnt = TSYS::curTime();
		mod->prXMLNode(id(), &node);
		mod->mess(id(),_("Test: Passed: %f ms."),1e-3*(end_cnt-st_cnt));
		val->setS(0,_("Passed"));
	    }
	    catch(TError err)
	    {
		mod->mess(id(), _("Test: Failed: %s"), err.mess.c_str());
		val->setS(0, TSYS::strMess(_("Failed: %s"), err.mess.c_str()));
	    }
	    if(hd >= 0) close(hd);
	}
};

}

#endif //TEST_XML_H