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

**

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

** All rights reserved.

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

**

** This file is part of the test suite 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 Technology Preview License Agreement accompanying

** this package.

**

** 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.1, included in the file LGPL_EXCEPTION.txt in this package.

**

** If you have questions regarding the use of this file, please contact

** Nokia at qt-info@nokia.com.

**

**

**

**

**

**

**

**

** $QT_END_LICENSE$

**

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

#include <qtest.h>

#include <QtDeclarative/qdeclarativecomponent.h>

#include <QtDeclarative/qdeclarativeengine.h>

#include <QtDeclarative/qdeclarativeexpression.h>

#include <QtDeclarative/qdeclarativecontext.h>

#include <QtCore/qfileinfo.h>

#include <QtCore/qdebug.h>

#include <QtDeclarative/private/qdeclarativeguard_p.h>

#include <QtCore/qdir.h>

#include <QtCore/qnumeric.h>

#include <private/qdeclarativeengine_p.h>

#include <private/qdeclarativeglobalscriptclass_p.h>

#include "testtypes.h"

#include "testhttpserver.h"

/*

This test covers evaluation of ECMAScript expressions and bindings from within

QML.  This does not include static QML language issues.

Static QML language issues are covered in qmllanguage

*/

inline QUrl TEST_FILE(const QString &filename)

{

    QFileInfo fileInfo(__FILE__);

    return QUrl::fromLocalFile(fileInfo.absoluteDir().filePath("data/" + filename));

}

inline QUrl TEST_FILE(const char *filename)

{

    return TEST_FILE(QLatin1String(filename));

}

class tst_qdeclarativeecmascript : public QObject

{

    Q_OBJECT

public:

    tst_qdeclarativeecmascript() {}

private slots:

    void initTestCase();

    void assignBasicTypes();

    void idShortcutInvalidates();

    void boolPropertiesEvaluateAsBool();

    void methods();

    void signalAssignment();

    void bindingLoop();

    void basicExpressions();

    void basicExpressions_data();

    void arrayExpressions();

    void contextPropertiesTriggerReeval();

    void objectPropertiesTriggerReeval();

    void deferredProperties();

    void deferredPropertiesErrors();

    void extensionObjects();

    void overrideExtensionProperties();

    void attachedProperties();

    void enums();

    void valueTypeFunctions();

    void constantsOverrideBindings();

    void outerBindingOverridesInnerBinding();

    void aliasPropertyAndBinding();

    void nonExistantAttachedObject();

    void scope();

    void signalParameterTypes();

    void objectsCompareAsEqual();

    void dynamicCreation_data();

    void dynamicCreation();

    void dynamicDestruction();

    void objectToString();

    void selfDeletingBinding();

    void extendedObjectPropertyLookup();

    void scriptErrors();

    void functionErrors();

    void propertyAssignmentErrors();

    void signalTriggeredBindings();

    void listProperties();

    void exceptionClearsOnReeval();

    void exceptionSlotProducesWarning();

    void exceptionBindingProducesWarning();

    void transientErrors();

    void shutdownErrors();

    void compositePropertyType();

    void jsObject();

    void undefinedResetsProperty();

    void listToVariant();

    void multiEngineObject();

    void deletedObject();

    void attachedPropertyScope();

    void scriptConnect();

    void scriptDisconnect();

    void ownership();

    void qlistqobjectMethods();

    void strictlyEquals();

    void compiled();

    void numberAssignment();

    void bug1();

    void bug2();

    void dynamicCreationCrash();

    void regExpBug();

    void nullObjectBinding();

    void deletedEngine();

    void libraryScriptAssert();

    void variantsAssignedUndefined();

    void qtbug_9792();

    void qtcreatorbug_1289();

    void noSpuriousWarningsAtShutdown();

    void canAssignNullToQObject();

    void functionAssignment();

    void eval();

    void function();

    void qtbug_10696();

    void include();

    void callQtInvokables();

private:

    QDeclarativeEngine engine;

};

void tst_qdeclarativeecmascript::initTestCase() { registerTypes(); }

void tst_qdeclarativeecmascript::assignBasicTypes()

{

    {

    QDeclarativeComponent component(&engine, TEST_FILE("assignBasicTypes.qml"));

    MyTypeObject *object = qobject_cast<MyTypeObject *>(component.create());

    QVERIFY(object != 0);

    QCOMPARE(object->flagProperty(), MyTypeObject::FlagVal1 | MyTypeObject::FlagVal3);

    QCOMPARE(object->enumProperty(), MyTypeObject::EnumVal2);

    QCOMPARE(object->stringProperty(), QString("Hello World!"));

    QCOMPARE(object->uintProperty(), uint(10));

    QCOMPARE(object->intProperty(), -19);

    QCOMPARE((float)object->realProperty(), float(23.2));

    QCOMPARE((float)object->doubleProperty(), float(-19.7));

    QCOMPARE((float)object->floatProperty(), float(8.5));

    QCOMPARE(object->colorProperty(), QColor("red"));

    QCOMPARE(object->dateProperty(), QDate(1982, 11, 25));

    QCOMPARE(object->timeProperty(), QTime(11, 11, 32));

    QCOMPARE(object->dateTimeProperty(), QDateTime(QDate(2009, 5, 12), QTime(13, 22, 1)));

    QCOMPARE(object->pointProperty(), QPoint(99,13));

    QCOMPARE(object->pointFProperty(), QPointF(-10.1, 12.3));

    QCOMPARE(object->sizeProperty(), QSize(99, 13));

    QCOMPARE(object->sizeFProperty(), QSizeF(0.1, 0.2));

    QCOMPARE(object->rectProperty(), QRect(9, 7, 100, 200));

    QCOMPARE(object->rectFProperty(), QRectF(1000.1, -10.9, 400, 90.99));

    QCOMPARE(object->boolProperty(), true);

    QCOMPARE(object->variantProperty(), QVariant("Hello World!"));

    QCOMPARE(object->vectorProperty(), QVector3D(10, 1, 2.2));

    QCOMPARE(object->urlProperty(), component.url().resolved(QUrl("main.qml")));

    delete object;

    }

    {

    QDeclarativeComponent component(&engine, TEST_FILE("assignBasicTypes.2.qml"));

    MyTypeObject *object = qobject_cast<MyTypeObject *>(component.create());

    QVERIFY(object != 0);

    QCOMPARE(object->flagProperty(), MyTypeObject::FlagVal1 | MyTypeObject::FlagVal3);

    QCOMPARE(object->enumProperty(), MyTypeObject::EnumVal2);

    QCOMPARE(object->stringProperty(), QString("Hello World!"));

    QCOMPARE(object->uintProperty(), uint(10));

    QCOMPARE(object->intProperty(), -19);

    QCOMPARE((float)object->realProperty(), float(23.2));

    QCOMPARE((float)object->doubleProperty(), float(-19.7));

    QCOMPARE((float)object->floatProperty(), float(8.5));

    QCOMPARE(object->colorProperty(), QColor("red"));

    QCOMPARE(object->dateProperty(), QDate(1982, 11, 25));

    QCOMPARE(object->timeProperty(), QTime(11, 11, 32));

    QCOMPARE(object->dateTimeProperty(), QDateTime(QDate(2009, 5, 12), QTime(13, 22, 1)));

    QCOMPARE(object->pointProperty(), QPoint(99,13));

    QCOMPARE(object->pointFProperty(), QPointF(-10.1, 12.3));

    QCOMPARE(object->sizeProperty(), QSize(99, 13));

    QCOMPARE(object->sizeFProperty(), QSizeF(0.1, 0.2));

    QCOMPARE(object->rectProperty(), QRect(9, 7, 100, 200));

    QCOMPARE(object->rectFProperty(), QRectF(1000.1, -10.9, 400, 90.99));

    QCOMPARE(object->boolProperty(), true);

    QCOMPARE(object->variantProperty(), QVariant("Hello World!"));

    QCOMPARE(object->vectorProperty(), QVector3D(10, 1, 2.2));

    QCOMPARE(object->urlProperty(), component.url().resolved(QUrl("main.qml")));

    delete object;

    }

}

void tst_qdeclarativeecmascript::idShortcutInvalidates()

{

    {

        QDeclarativeComponent component(&engine, TEST_FILE("idShortcutInvalidates.qml"));

        MyQmlObject *object = qobject_cast<MyQmlObject *>(component.create());

        QVERIFY(object != 0);

        QVERIFY(object->objectProperty() != 0);

        delete object->objectProperty();

        QVERIFY(object->objectProperty() == 0);

    }

    {

        QDeclarativeComponent component(&engine, TEST_FILE("idShortcutInvalidates.1.qml"));

        MyQmlObject *object = qobject_cast<MyQmlObject *>(component.create());

        QVERIFY(object != 0);

        QVERIFY(object->objectProperty() != 0);

        delete object->objectProperty();

        QVERIFY(object->objectProperty() == 0);

    }

}

void tst_qdeclarativeecmascript::boolPropertiesEvaluateAsBool()

{

    {

        QDeclarativeComponent component(&engine, TEST_FILE("boolPropertiesEvaluateAsBool.1.qml"));

        MyQmlObject *object = qobject_cast<MyQmlObject *>(component.create());

        QVERIFY(object != 0);

        QCOMPARE(object->stringProperty(), QLatin1String("pass"));

    }

    {

        QDeclarativeComponent component(&engine, TEST_FILE("boolPropertiesEvaluateAsBool.2.qml"));

        MyQmlObject *object = qobject_cast<MyQmlObject *>(component.create());

        QVERIFY(object != 0);

        QCOMPARE(object->stringProperty(), QLatin1String("pass"));

    }

}

void tst_qdeclarativeecmascript::signalAssignment()

{

    {

        QDeclarativeComponent component(&engine, TEST_FILE("signalAssignment.1.qml"));

        MyQmlObject *object = qobject_cast<MyQmlObject *>(component.create());

        QVERIFY(object != 0);

        QCOMPARE(object->string(), QString());

        emit object->basicSignal();

        QCOMPARE(object->string(), QString("pass"));

    }

    {

        QDeclarativeComponent component(&engine, TEST_FILE("signalAssignment.2.qml"));

        MyQmlObject *object = qobject_cast<MyQmlObject *>(component.create());

        QVERIFY(object != 0);

        QCOMPARE(object->string(), QString());

        emit object->argumentSignal(19, "Hello world!", 10.3);

        QCOMPARE(object->string(), QString("pass 19 Hello world! 10.3"));

    }

}

void tst_qdeclarativeecmascript::methods()

{

    {

        QDeclarativeComponent component(&engine, TEST_FILE("methods.1.qml"));

        MyQmlObject *object = qobject_cast<MyQmlObject *>(component.create());

        QVERIFY(object != 0);

        QCOMPARE(object->methodCalled(), false);

        QCOMPARE(object->methodIntCalled(), false);

        emit object->basicSignal();

        QCOMPARE(object->methodCalled(), true);

        QCOMPARE(object->methodIntCalled(), false);

    }

    {

        QDeclarativeComponent component(&engine, TEST_FILE("methods.2.qml"));

        MyQmlObject *object = qobject_cast<MyQmlObject *>(component.create());

        QVERIFY(object != 0);

        QCOMPARE(object->methodCalled(), false);

        QCOMPARE(object->methodIntCalled(), false);

        emit object->basicSignal();

        QCOMPARE(object->methodCalled(), false);

        QCOMPARE(object->methodIntCalled(), true);

    }

    {

        QDeclarativeComponent component(&engine, TEST_FILE("methods.3.qml"));

        QObject *object = component.create();

        QVERIFY(object != 0);

        QCOMPARE(object->property("test").toInt(), 19);

    }

    {

        QDeclarativeComponent component(&engine, TEST_FILE("methods.4.qml"));

        QObject *object = component.create();

        QVERIFY(object != 0);

        QCOMPARE(object->property("test").toInt(), 19);

        QCOMPARE(object->property("test2").toInt(), 17);

        QCOMPARE(object->property("test3").toInt(), 16);

    }

    {

        QDeclarativeComponent component(&engine, TEST_FILE("methods.5.qml"));

        QObject *object = component.create();

        QVERIFY(object != 0);

        QCOMPARE(object->property("test").toInt(), 9);

    }

}

void tst_qdeclarativeecmascript::bindingLoop()

{

    QDeclarativeComponent component(&engine, TEST_FILE("bindingLoop.qml"));

    QString warning = component.url().toString() + ":9:9: QML MyQmlObject: Binding loop detected for property \"stringProperty\"";

    QTest::ignoreMessage(QtWarningMsg, warning.toLatin1().constData());

    QObject *object = component.create();

    QVERIFY(object != 0);

}

void tst_qdeclarativeecmascript::basicExpressions_data()

{

    QTest::addColumn<QString>("expression");

    QTest::addColumn<QVariant>("result");

    QTest::addColumn<bool>("nest");

    QTest::newRow("Syntax error (self test)") << "{console.log({'a':1'}.a)}" << QVariant() << false;

    QTest::newRow("Context property") << "a" << QVariant(1944) << false;

    QTest::newRow("Context property") << "a" << QVariant(1944) << true;

    QTest::newRow("Context property expression") << "a * 2" << QVariant(3888) << false;

    QTest::newRow("Context property expression") << "a * 2" << QVariant(3888) << true;

    QTest::newRow("Overridden context property") << "b" << QVariant("Milk") << false;

    QTest::newRow("Overridden context property") << "b" << QVariant("Cow") << true;

    QTest::newRow("Object property") << "object.stringProperty" << QVariant("Object1") << false;

    QTest::newRow("Object property") << "object.stringProperty" << QVariant("Object1") << true;

    QTest::newRow("Overridden object property") << "objectOverride.stringProperty" << QVariant("Object2") << false;

    QTest::newRow("Overridden object property") << "objectOverride.stringProperty" << QVariant("Object3") << true;

    QTest::newRow("Default object property") << "horseLegs" << QVariant(4) << false;

    QTest::newRow("Default object property") << "antLegs" << QVariant(6) << false;

    QTest::newRow("Default object property") << "emuLegs" << QVariant(2) << false;

    QTest::newRow("Nested default object property") << "horseLegs" << QVariant(4) << true;

    QTest::newRow("Nested default object property") << "antLegs" << QVariant(7) << true;

    QTest::newRow("Nested default object property") << "emuLegs" << QVariant(2) << true;

    QTest::newRow("Nested default object property") << "humanLegs" << QVariant(2) << true;

    QTest::newRow("Context property override default object property") << "millipedeLegs" << QVariant(100) << true;

}

void tst_qdeclarativeecmascript::basicExpressions()

{

    QFETCH(QString, expression);

    QFETCH(QVariant, result);

    QFETCH(bool, nest);

    MyQmlObject object1;

    MyQmlObject object2;

    MyQmlObject object3;

    MyDefaultObject1 default1;

    MyDefaultObject3 default3;

    object1.setStringProperty("Object1");

    object2.setStringProperty("Object2");

    object3.setStringProperty("Object3");

    QDeclarativeContext context(engine.rootContext());

    QDeclarativeContext nestedContext(&context);

    context.setContextObject(&default1);

    context.setContextProperty("a", QVariant(1944));

    context.setContextProperty("b", QVariant("Milk"));

    context.setContextProperty("object", &object1);

    context.setContextProperty("objectOverride", &object2);

    nestedContext.setContextObject(&default3);

    nestedContext.setContextProperty("b", QVariant("Cow"));

    nestedContext.setContextProperty("objectOverride", &object3);

    nestedContext.setContextProperty("millipedeLegs", QVariant(100));

    MyExpression expr(nest?&nestedContext:&context, expression);

    QCOMPARE(expr.evaluate(), result);

}

void tst_qdeclarativeecmascript::arrayExpressions()

{

    QObject obj1;

    QObject obj2;

    QObject obj3;

    QDeclarativeContext context(engine.rootContext());

    context.setContextProperty("a", &obj1);

    context.setContextProperty("b", &obj2);

    context.setContextProperty("c", &obj3);

    MyExpression expr(&context, "[a, b, c, 10]");

    QVariant result = expr.evaluate();

    QCOMPARE(result.userType(), qMetaTypeId<QList<QObject *> >());

    QList<QObject *> list = qvariant_cast<QList<QObject *> >(result);

    QCOMPARE(list.count(), 4);

    QCOMPARE(list.at(0), &obj1);

    QCOMPARE(list.at(1), &obj2);

    QCOMPARE(list.at(2), &obj3);

    QCOMPARE(list.at(3), (QObject *)0);

}

// Tests that modifying a context property will reevaluate expressions

void tst_qdeclarativeecmascript::contextPropertiesTriggerReeval()

{

    QDeclarativeContext context(engine.rootContext());

    MyQmlObject object1;

    MyQmlObject object2;

    MyQmlObject *object3 = new MyQmlObject;

    object1.setStringProperty("Hello");

    object2.setStringProperty("World");

    context.setContextProperty("testProp", QVariant(1));

    context.setContextProperty("testObj", &object1);

    context.setContextProperty("testObj2", object3);

    { 

        MyExpression expr(&context, "testProp + 1");

        QCOMPARE(expr.changed, false);

        QCOMPARE(expr.evaluate(), QVariant(2));

        context.setContextProperty("testProp", QVariant(2));

        QCOMPARE(expr.changed, true);

        QCOMPARE(expr.evaluate(), QVariant(3));

    }

    { 

        MyExpression expr(&context, "testProp + testProp + testProp");

        QCOMPARE(expr.changed, false);

        QCOMPARE(expr.evaluate(), QVariant(6));

        context.setContextProperty("testProp", QVariant(4));

        QCOMPARE(expr.changed, true);

        QCOMPARE(expr.evaluate(), QVariant(12));

    }

    { 

        MyExpression expr(&context, "testObj.stringProperty");

        QCOMPARE(expr.changed, false);

        QCOMPARE(expr.evaluate(), QVariant("Hello"));

        context.setContextProperty("testObj", &object2);

        QCOMPARE(expr.changed, true);

        QCOMPARE(expr.evaluate(), QVariant("World"));

    }

    { 

        MyExpression expr(&context, "testObj.stringProperty /**/");

        QCOMPARE(expr.changed, false);

        QCOMPARE(expr.evaluate(), QVariant("World"));

        context.setContextProperty("testObj", &object1);

        QCOMPARE(expr.changed, true);

        QCOMPARE(expr.evaluate(), QVariant("Hello"));

    }

    { 

        MyExpression expr(&context, "testObj2");

        QCOMPARE(expr.changed, false);

        QCOMPARE(expr.evaluate(), QVariant::fromValue((QObject *)object3));

    }

}

void tst_qdeclarativeecmascript::objectPropertiesTriggerReeval()

{

    QDeclarativeContext context(engine.rootContext());

    MyQmlObject object1;

    MyQmlObject object2;

    MyQmlObject object3;

    context.setContextProperty("testObj", &object1);

    object1.setStringProperty(QLatin1String("Hello"));

    object2.setStringProperty(QLatin1String("Dog"));

    object3.setStringProperty(QLatin1String("Cat"));

    { 

        MyExpression expr(&context, "testObj.stringProperty");

        QCOMPARE(expr.changed, false);

        QCOMPARE(expr.evaluate(), QVariant("Hello"));

        object1.setStringProperty(QLatin1String("World"));

        QCOMPARE(expr.changed, true);

        QCOMPARE(expr.evaluate(), QVariant("World"));

    }

    { 

        MyExpression expr(&context, "testObj.objectProperty.stringProperty");

        QCOMPARE(expr.changed, false);

        QCOMPARE(expr.evaluate(), QVariant());

        object1.setObjectProperty(&object2);

        QCOMPARE(expr.changed, true);

        expr.changed = false;

        QCOMPARE(expr.evaluate(), QVariant("Dog"));

        object1.setObjectProperty(&object3);

        QCOMPARE(expr.changed, true);

        expr.changed = false;

        QCOMPARE(expr.evaluate(), QVariant("Cat"));

        object1.setObjectProperty(0);

        QCOMPARE(expr.changed, true);

        expr.changed = false;

        QCOMPARE(expr.evaluate(), QVariant());

        object1.setObjectProperty(&object3);

        QCOMPARE(expr.changed, true);

        expr.changed = false;

        QCOMPARE(expr.evaluate(), QVariant("Cat"));