Alessandro Bonazzi
8c43d5cf2f
Files correlati : cg0.exe cg0700a.msk cg0700b.msk cg3.exe cg4.exe Bug : Commento: Merge 1.0 libraries
280 lines
11 KiB
C++
280 lines
11 KiB
C++
/****************************************************************************
|
|
**
|
|
** Copyright (C) 2015 The Qt Company Ltd.
|
|
** Contact: http://www.qt.io/licensing/
|
|
**
|
|
** This file is part of the test suite of the Qt Toolkit.
|
|
**
|
|
** $QT_BEGIN_LICENSE:LGPL$
|
|
** Commercial License Usage
|
|
** Licensees holding valid commercial Qt licenses may use this file in
|
|
** accordance with the commercial license agreement provided with the
|
|
** Software or, alternatively, in accordance with the terms contained in
|
|
** a written agreement between you and The Qt Company. For licensing terms
|
|
** and conditions see http://www.qt.io/terms-conditions. For further
|
|
** information use the contact form at http://www.qt.io/contact-us.
|
|
**
|
|
** 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 or version 3 as published by the Free
|
|
** Software Foundation and appearing in the file LICENSE.LGPLv21 and
|
|
** LICENSE.LGPLv3 included in the packaging of this file. Please review the
|
|
** following information to ensure the GNU Lesser General Public License
|
|
** requirements will be met: https://www.gnu.org/licenses/lgpl.html and
|
|
** http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.
|
|
**
|
|
** As a special exception, The Qt Company gives you certain additional
|
|
** rights. These rights are described in The Qt Company LGPL Exception
|
|
** version 1.1, 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.
|
|
**
|
|
** $QT_END_LICENSE$
|
|
**
|
|
****************************************************************************/
|
|
|
|
|
|
#include "abstracttestsuite.h"
|
|
#include <QtTest/QtTest>
|
|
#include <QtScript>
|
|
|
|
//TESTED_CLASS=
|
|
//TESTED_FILES=
|
|
|
|
class tst_QScriptV8TestSuite : public AbstractTestSuite
|
|
{
|
|
public:
|
|
tst_QScriptV8TestSuite();
|
|
virtual ~tst_QScriptV8TestSuite();
|
|
|
|
protected:
|
|
struct ExpectedFailure
|
|
{
|
|
ExpectedFailure(const QString &name, const QString &act,
|
|
const QString &exp, const QString &msg)
|
|
: testName(name), actual(act), expected(exp), message(msg)
|
|
{ }
|
|
|
|
QString testName;
|
|
QString actual;
|
|
QString expected;
|
|
QString message;
|
|
};
|
|
|
|
void addExpectedFailure(const QString &testName, const QString &actual,
|
|
const QString &expected, const QString &message);
|
|
bool isExpectedFailure(const QString &testName, const QString &actual,
|
|
const QString &expected, QString *message) const;
|
|
void addTestExclusion(const QString &testName, const QString &message);
|
|
void addTestExclusion(const QRegExp &rx, const QString &message);
|
|
bool isExcludedTest(const QString &testName, QString *message) const;
|
|
|
|
virtual void initTestCase();
|
|
virtual void configData(TestConfig::Mode mode, const QStringList &parts);
|
|
virtual void writeSkipConfigFile(QTextStream &);
|
|
virtual void writeExpectFailConfigFile(QTextStream &);
|
|
virtual void runTestFunction(int testIndex);
|
|
|
|
QStringList testNames;
|
|
QList<ExpectedFailure> expectedFailures;
|
|
QList<QPair<QRegExp, QString> > testExclusions;
|
|
QString mjsunitContents;
|
|
};
|
|
|
|
// We expect failing tests to call the fail() function (defined in
|
|
// mjsunit.js) with arguments expected, actual, message_opt. This
|
|
// function intercepts the call, calls the real fail() function (which
|
|
// will throw an exception), and sets the original arguments on the
|
|
// exception object so that we can process them later.
|
|
static QScriptValue qscript_fail(QScriptContext *ctx, QScriptEngine *eng)
|
|
{
|
|
QScriptValue realFail = ctx->callee().data();
|
|
if (!realFail.isFunction())
|
|
qFatal("%s: realFail must be a function", Q_FUNC_INFO);
|
|
QScriptValue ret = realFail.call(ctx->thisObject(), ctx->argumentsObject());
|
|
if (!eng->hasUncaughtException())
|
|
qFatal("%s: realFail function did not throw an exception", Q_FUNC_INFO);
|
|
ret.setProperty("expected", ctx->argument(0));
|
|
ret.setProperty("actual", ctx->argument(1));
|
|
ret.setProperty("message", ctx->argument(2));
|
|
QScriptContextInfo info(ctx->parentContext()->parentContext());
|
|
ret.setProperty("lineNumber", info.lineNumber());
|
|
return ret;
|
|
}
|
|
|
|
void tst_QScriptV8TestSuite::writeSkipConfigFile(QTextStream &stream)
|
|
{
|
|
stream << QString::fromLatin1("# testcase | message") << endl;
|
|
}
|
|
|
|
void tst_QScriptV8TestSuite::writeExpectFailConfigFile(QTextStream &stream)
|
|
{
|
|
stream << QString::fromLatin1("# testcase | actual | expected | message") << endl;
|
|
for (int i = 0; i < expectedFailures.size(); ++i) {
|
|
const ExpectedFailure &fail = expectedFailures.at(i);
|
|
stream << QString::fromLatin1("%0 | %1 | %2")
|
|
.arg(fail.testName)
|
|
.arg(escape(fail.actual))
|
|
.arg(escape(fail.expected));
|
|
if (!fail.message.isEmpty())
|
|
stream << QString::fromLatin1(" | %0").arg(escape(fail.message));
|
|
stream << endl;
|
|
}
|
|
}
|
|
|
|
void tst_QScriptV8TestSuite::runTestFunction(int testIndex)
|
|
{
|
|
QString name = testNames.at(testIndex);
|
|
QString path = testsDir.absoluteFilePath(name + ".js");
|
|
|
|
QString excludeMessage;
|
|
if (isExcludedTest(name, &excludeMessage)) {
|
|
QTest::qSkip(excludeMessage.toLatin1(), QTest::SkipAll, path.toLatin1(), -1);
|
|
return;
|
|
}
|
|
|
|
QScriptEngine engine;
|
|
engine.evaluate(mjsunitContents);
|
|
if (engine.hasUncaughtException()) {
|
|
QStringList bt = engine.uncaughtExceptionBacktrace();
|
|
QString err = engine.uncaughtException().toString();
|
|
qWarning("%s\n%s", qPrintable(err), qPrintable(bt.join("\n")));
|
|
} else {
|
|
// Prepare to intercept calls to mjsunit's fail() function.
|
|
QScriptValue fakeFail = engine.newFunction(qscript_fail);
|
|
fakeFail.setData(engine.globalObject().property("fail"));
|
|
engine.globalObject().setProperty("fail", fakeFail);
|
|
|
|
QString contents = readFile(path);
|
|
QScriptValue ret = engine.evaluate(contents);
|
|
if (engine.hasUncaughtException()) {
|
|
if (!ret.isError()) {
|
|
int lineNumber = ret.property("lineNumber").toInt32();
|
|
QTest::qVerify(ret.instanceOf(engine.globalObject().property("MjsUnitAssertionError")),
|
|
ret.toString().toLatin1(),
|
|
"",
|
|
path.toLatin1(),
|
|
lineNumber);
|
|
QString actual = ret.property("actual").toString();
|
|
QString expected = ret.property("expected").toString();
|
|
QString failMessage;
|
|
if (shouldGenerateExpectedFailures) {
|
|
if (ret.property("message").isString())
|
|
failMessage = ret.property("message").toString();
|
|
addExpectedFailure(name, actual, expected, failMessage);
|
|
} else if (isExpectedFailure(name, actual, expected, &failMessage)) {
|
|
QTest::qExpectFail("", failMessage.toLatin1(),
|
|
QTest::Continue, path.toLatin1(),
|
|
lineNumber);
|
|
}
|
|
QTest::qCompare(actual, expected, "actual", "expect",
|
|
path.toLatin1(), lineNumber);
|
|
} else {
|
|
int lineNumber = ret.property("lineNumber").toInt32();
|
|
QTest::qExpectFail("", ret.toString().toLatin1(),
|
|
QTest::Continue, path.toLatin1(), lineNumber);
|
|
QTest::qVerify(false, ret.toString().toLatin1(), "", path.toLatin1(), lineNumber);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
tst_QScriptV8TestSuite::tst_QScriptV8TestSuite()
|
|
: AbstractTestSuite("tst_QScriptV8TestSuite",
|
|
":/tests", ":/")
|
|
{
|
|
// One test function per test file.
|
|
QFileInfoList testFileInfos;
|
|
testFileInfos = testsDir.entryInfoList(QStringList() << "*.js", QDir::Files);
|
|
foreach (QFileInfo tfi, testFileInfos) {
|
|
QString name = tfi.baseName();
|
|
addTestFunction(name);
|
|
testNames.append(name);
|
|
}
|
|
|
|
finalizeMetaObject();
|
|
}
|
|
|
|
tst_QScriptV8TestSuite::~tst_QScriptV8TestSuite()
|
|
{
|
|
}
|
|
|
|
void tst_QScriptV8TestSuite::initTestCase()
|
|
{
|
|
AbstractTestSuite::initTestCase();
|
|
|
|
// FIXME: These warnings should be QFAIL, but that would make the
|
|
// test fail right now.
|
|
if (!testsDir.exists("mjsunit.js"))
|
|
qWarning("*** no tests/mjsunit.js file!");
|
|
else {
|
|
mjsunitContents = readFile(testsDir.absoluteFilePath("mjsunit.js"));
|
|
if (mjsunitContents.isEmpty())
|
|
qWarning("*** tests/mjsunit.js is empty!");
|
|
}
|
|
}
|
|
|
|
void tst_QScriptV8TestSuite::configData(TestConfig::Mode mode, const QStringList &parts)
|
|
{
|
|
switch (mode) {
|
|
case TestConfig::Skip:
|
|
addTestExclusion(parts.at(0), parts.value(1));
|
|
break;
|
|
|
|
case TestConfig::ExpectFail:
|
|
addExpectedFailure(parts.at(0), parts.value(1),
|
|
parts.value(2), parts.value(3));
|
|
break;
|
|
}
|
|
}
|
|
|
|
void tst_QScriptV8TestSuite::addExpectedFailure(const QString &testName, const QString &actual,
|
|
const QString &expected, const QString &message)
|
|
{
|
|
expectedFailures.append(ExpectedFailure(testName, actual, expected, message));
|
|
}
|
|
|
|
bool tst_QScriptV8TestSuite::isExpectedFailure(const QString &testName, const QString &actual,
|
|
const QString &expected, QString *message) const
|
|
{
|
|
for (int i = 0; i < expectedFailures.size(); ++i) {
|
|
const ExpectedFailure &ef = expectedFailures.at(i);
|
|
if ((testName == ef.testName) && (actual == ef.actual) && (expected == ef.expected)) {
|
|
if (message)
|
|
*message = ef.message;
|
|
return true;
|
|
}
|
|
}
|
|
return false;
|
|
}
|
|
|
|
void tst_QScriptV8TestSuite::addTestExclusion(const QString &testName, const QString &message)
|
|
{
|
|
testExclusions.append(qMakePair(QRegExp(testName), message));
|
|
}
|
|
|
|
void tst_QScriptV8TestSuite::addTestExclusion(const QRegExp &rx, const QString &message)
|
|
{
|
|
testExclusions.append(qMakePair(rx, message));
|
|
}
|
|
|
|
bool tst_QScriptV8TestSuite::isExcludedTest(const QString &testName, QString *message) const
|
|
{
|
|
for (int i = 0; i < testExclusions.size(); ++i) {
|
|
if (testExclusions.at(i).first.indexIn(testName) != -1) {
|
|
if (message)
|
|
*message = testExclusions.at(i).second;
|
|
return true;
|
|
}
|
|
}
|
|
return false;
|
|
}
|
|
|
|
QTEST_MAIN(tst_QScriptV8TestSuite)
|