/****************************************************************************

**

** Copyright (C) 2009 Nokia Corporation and/or its subsidiary(-ies).

** Contact: Nokia Corporation (qt-info@nokia.com)

**

** This file is part of the examples of the Qt Toolkit.

**

** $QT_BEGIN_LICENSE:LGPL$

** No Commercial Usage

** This file contains pre-release code and may not be distributed.

** You may use this file in accordance with the terms and conditions

** contained in the either Technology Preview License Agreement or the

** Beta Release License Agreement.

**

** GNU Lesser General Public License Usage

** Alternatively, this file may be used under the terms of the GNU Lesser

** General Public License version 2.1 as published by the Free Software

** Foundation and appearing in the file LICENSE.LGPL included in the

** packaging of this file.  Please review the following information to

** ensure the GNU Lesser General Public License version 2.1 requirements

** will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.

**

** In addition, as a special exception, Nokia gives you certain

** additional rights. These rights are described in the Nokia Qt LGPL

** Exception version 1.0, included in the file LGPL_EXCEPTION.txt in this

** package.

**

** GNU General Public License Usage

** Alternatively, this file may be used under the terms of the GNU

** General Public License version 3.0 as published by the Free Software

** Foundation and appearing in the file LICENSE.GPL included in the

** packaging of this file.  Please review the following information to

** ensure the GNU General Public License version 3.0 requirements will be

** met: http://www.gnu.org/copyleft/gpl.html.

**

** If you are unsure which license is appropriate for your use, please

** contact the sales department at http://qt.nokia.com/contact.

** $QT_END_LICENSE$

**

****************************************************************************/

#include <QDebug>

#include <QScriptEngine>

#include <QFile>

#include <QStringList>

#include "scriptrunner.h"

#include "resultlogger.h"

static const QString TestScriptName = ":/testscripts/testscript.js";

Q_DECLARE_METATYPE(ScriptRunner*)

Q_DECLARE_METATYPE(ResultLogger*)

Q_DECLARE_METATYPE(TestFunctionResult*)

Q_DECLARE_METATYPE(Benchmark*)

Q_DECLARE_METATYPE(Benchmarks*)

QScriptValue fileLoggerToScriptValue(QScriptEngine *engine, ResultLogger* const &in)

{

    return engine->newQObject(in);

}

void fileLoggerFromScriptValue(const QScriptValue &object, ResultLogger* &out)

{

    out = qobject_cast<ResultLogger*>(object.toQObject());

}

QScriptValue testFunctionResultToScriptValue(QScriptEngine *engine, TestFunctionResult* const &in)

{

    return engine->newQObject(in);

}

void testFunctionResultFromScriptValue(const QScriptValue &object, TestFunctionResult* &out)

{

    out = qobject_cast<TestFunctionResult*>(object.toQObject());

}

QScriptValue benchmarkToScriptValue(QScriptEngine *engine, Benchmark* const &in)

{

    return engine->newQObject(in);

}

void benchmarkFromScriptValue(const QScriptValue &object, Benchmark* &out)

{

    out = qobject_cast<Benchmark*>(object.toQObject());

}

QScriptValue benchmarksToScriptValue(QScriptEngine *engine, Benchmarks* const &in)

{

    return engine->newQObject(in);

}

void benchmarksFromScriptValue(const QScriptValue &object, Benchmarks* &out)

{

    out = qobject_cast<Benchmarks*>(object.toQObject());

}

QScriptValue scriptRunnerToScriptValue(QScriptEngine *engine, ScriptRunner* const &in)

{

    return engine->newQObject(in);

}

void scriptRunnerFromScriptValue(const QScriptValue &object, ScriptRunner* &out)

{

    out = qobject_cast<ScriptRunner*>(object.toQObject());

}

ScriptRunner::ScriptRunner(const QString &scriptName, TestController *ctrl, QObject *parent)

    : TestThread(ctrl, parent),

    m_engine(new QScriptEngine(this)),

    m_testScriptFileName(TestScriptName)

{

    if (scriptName.length() > 0)

        m_testScriptFileName = scriptName;

    qScriptRegisterMetaType(m_engine,

                            scriptRunnerToScriptValue,

                            scriptRunnerFromScriptValue);

    qScriptRegisterMetaType(m_engine,

                            fileLoggerToScriptValue,

                            fileLoggerFromScriptValue);

    qScriptRegisterMetaType(m_engine,

                            testFunctionResultToScriptValue,

                            testFunctionResultFromScriptValue);

    qScriptRegisterMetaType(m_engine,

                            benchmarkToScriptValue,

                            benchmarkFromScriptValue);

    qScriptRegisterMetaType(m_engine,

                            benchmarksToScriptValue,

                            benchmarksFromScriptValue);

    if (!m_resultLogger) {

        m_resultLogger = new ResultLogger();

        m_logger = m_engine->newQObject(m_resultLogger, QScriptEngine::QtOwnership);

        m_engine->globalObject().setProperty("fileLogger", m_logger);

        m_resultLogger->setResultFileInformation(controller()->resultFileName(),

                                              controller()->resultFileFormat());

    }

}

ScriptRunner::~ScriptRunner()

{

    if (m_engine->isEvaluating())

        m_engine->abortEvaluation();

}

void ScriptRunner::run()

{

    if(!controller())

        return;

    if (m_doExit) return;

    tests();

    controller()->applicationExit();

}

void ScriptRunner::tests()

{

    QFile file(m_testScriptFileName);

    if (m_doExit) return;

    TestFunctionResult *tf = m_resultLogger->getTestFunctionResult("initTestCase");

    if (!tf)

        tf = m_resultLogger->createTestFunctionResult("initTestCase");

    if(file.open(QIODevice::ReadOnly)) {

        QString scriptContent = file.readAll();

        if (scriptContent.length() <= 0) {

            tf->addError("Can't evaluate empty script from file: '" + m_testScriptFileName +"'");

            stop();

            return;

        }

        QScriptSyntaxCheckResult result = QScriptEngine::checkSyntax(scriptContent);

        if (result.state() != QScriptSyntaxCheckResult::Valid)

        {

            QString err = "Can't evaluate script content from file. Check syntax of script on file: '" + m_testScriptFileName +"'"

                       + " Error: " + result.errorMessage()

                       + " line: " + result.errorLineNumber()

                       + " column: " + result.errorColumnNumber();

            tf->addError(err);

            stop();

            return;

        }

        if (m_doExit) return;

        QScriptValue val = m_engine->evaluate(scriptContent, m_testScriptFileName);

        if(m_engine->hasUncaughtException()) {

            QString err = "Can't evaluate script content from file. Check syntax of script on file: '" + m_testScriptFileName + "'"

                       + " Error: " + m_engine->uncaughtExceptionBacktrace().join(" ")

                       + " at line " + m_engine->uncaughtExceptionLineNumber();

            tf->addError(err);

            stop();

            return;

        }

    }

    else {

        stop();

        tf->addError("Failed to read script from file '" + m_testScriptFileName +"'");

        return;

    }

    if (m_doExit) return;

    QScriptValue ctor = m_engine->evaluate("Tests");

    QScriptValue script = m_engine->newQObject(this, QScriptEngine::QtOwnership);

    QScriptValue scripttests = ctor.construct(QScriptValueList() << script);

    if(m_engine->hasUncaughtException()) {

        QString err = "Can't evaluate script content from file. Check syntax of script on file: '" + m_testScriptFileName +"'"

                 + " Error: " + m_engine->uncaughtExceptionBacktrace().join(" ");

        tf->addError(err);

        stop();

        return;

    }

}