1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
// Copyright (C) 2016 The Qt Company Ltd.
// SPDX-License-Identifier: LicenseRef-Qt-Commercial OR GPL-3.0-only WITH Qt-GPL-exception-1.0
#include <QtTest/QtTest>
#include <QAxScriptManager>
#include <QAxScript>
using namespace Qt::StringLiterals;
class tst_QAxScript : public QObject
{
Q_OBJECT
private slots:
void call();
void scriptReturnValue();
void scriptOutParameters();
};
void tst_QAxScript::call()
{
QAxScriptManager scriptManager;
const auto scriptCode_js = uR"JS(
function test1() {
return 'JScript';
}
)JS"_s;
const auto scriptCode_vb = uR"VB(
Function test2()
test2 = "VBScript"
End Function
)VB"_s;
QAxScript *jsscript = scriptManager.load(scriptCode_js, u"JS"_s, u"JScript"_s);
QVERIFY2(jsscript, "Unable to load script (CoInitializeEx() called?)");
QVERIFY(jsscript->scriptEngine()->hasIntrospection());
QAxScript *vbscript = scriptManager.load(scriptCode_vb, u"VB"_s, u"VBScript"_s);
QVERIFY2(vbscript, "Unable to load script (CoInitializeEx() called?)");
QVERIFY(vbscript->scriptEngine()->hasIntrospection());
QCOMPARE(jsscript->call("test1()"), "JScript");
QTest::ignoreMessage(QtWarningMsg, "QAxBase::dynamicCallHelper: test1(): No such method in [unknown]");
QTest::ignoreMessage(QtWarningMsg, "\tCandidates are:");
QCOMPARE(vbscript->call("test1()"), QVariant());
QCOMPARE(vbscript->call("test2()"), "VBScript");
QTest::ignoreMessage(QtWarningMsg, "QAxBase::dynamicCallHelper: test2(): No such method in [unknown]");
QTest::ignoreMessage(QtWarningMsg, "\tCandidates are:");
QCOMPARE(jsscript->call("test2()"), QVariant());
}
void tst_QAxScript::scriptReturnValue()
{
QAxScriptManager scriptManager;
const auto scriptCode = uR"JS(
function foo() {
return 'test';
}
)JS"_s; // QTBUG-42289, fails when DISPATCH_PROPERTYGET is used.
QAxScript *script = scriptManager.load(scriptCode, u"Test"_s, u"JScript"_s);
QVERIFY2(script, "Unable to load script (CoInitializeEx() called?)");
const QVariant result = script->call("foo()");
QCOMPARE(result, QVariant(u"test"_s));
}
void tst_QAxScript::scriptOutParameters()
{
QAxScriptManager scriptManager;
const auto scriptCode = uR"VB(
Function GetProductName(ByRef manufacturer, ByRef name, ByRef version)
manufacturer = "The Qt Company"
name = "ActiveQt"
version = 650
On Error Resume Next
GetProductName = 42
End Function
)VB"_s;
QAxScript *script = scriptManager.load(scriptCode, u"Test"_s, u"VBScript"_s);
QVERIFY2(script, "Unable to load script (CoInitializeEx() called?)");
QVariant returnValue;
QList<QVariant> results = {{}, {}, {}};
returnValue = script->scriptEngine()->dynamicCall("GetProductName(QVariant&,QVariant&,QVariant&)", results);
QCOMPARE(returnValue, 42);
QCOMPARE(results.size(), 3);
QCOMPARE(results.at(0), "The Qt Company");
QCOMPARE(results.at(1), "ActiveQt");
QCOMPARE(results.at(2), 650);
results = {{}, {}, {}};
returnValue = script->call("GetProductName(QVariant&,QVariant&,QVariant&)", results);
QCOMPARE(returnValue, 42);
QCOMPARE(results.size(), 3);
QCOMPARE(results.at(0), "The Qt Company");
QCOMPARE(results.at(1), "ActiveQt");
QCOMPARE(results.at(2), 650);
}
QTEST_MAIN(tst_QAxScript)
#include "tst_qaxscript.moc"
|