Differential D19095 Diff 53588 src/backends/R/testr.cpp

Changeset View

Standalone View

src/backends/R/testr.cpp

This file was added.

1		/*
2		This program is free software; you can redistribute it and/or
3		modify it under the terms of the GNU General Public License
4		as published by the Free Software Foundation; either version 2
5		of the License, or (at your option) any later version.
6
7		This program is distributed in the hope that it will be useful,
8		but WITHOUT ANY WARRANTY; without even the implied warranty of
9		MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
10		GNU General Public License for more details.
11
12		You should have received a copy of the GNU General Public License
13		along with this program; if not, write to the Free Software
14		Foundation, Inc., 51 Franklin Street, Fifth Floor,
15		Boston, MA 02110-1301, USA.
16
17		---
18		Copyright (C) 2019 Sirgienko Nikita <warquark@gmail.com>
19		*/
20
21		#include "testr.h"
22
23		#include "session.h"
24		#include "backend.h"
25		#include "expression.h"
26		#include "result.h"
27		#include "completionobject.h"
28		#include "defaultvariablemodel.h"
29
30		#include <QDebug>
31
32
33		QString TestR::backendName()
34		{
35		return QLatin1String("R");
36		}
37
38		void TestR::testVariablesCreatingFromCode()
39		{
40		QAbstractItemModel* model = session()->variableModel();
	asemkeUnsubmitted Done whitespaces. asemke: whitespaces.
41		QVERIFY(model != nullptr);
42
43		Cantor::Expression* e=evalExp(QLatin1String("a1 = 15; b1 = 'S'; d1 = c(1,2,3)"));
44		QVERIFY(e!=nullptr);
45
46		while(session()->status() != Cantor::Session::Done)
47		waitForSignal(session(), SIGNAL(statusChanged(Cantor::Session::Status)));
48
	asemkeUnsubmitted Done whitespaces. asemke: whitespaces.
49		QCOMPARE(3, model->rowCount());
50
51		QCOMPARE(model->index(0,0).data().toString(), QLatin1String("a1"));
52		QCOMPARE(model->index(0,1).data().toString(), QLatin1String("15"));
53
54		QCOMPARE(model->index(1,0).data().toString(), QLatin1String("b1"));
55		QCOMPARE(model->index(1,1).data().toString(), QLatin1String("S"));
56
57		QCOMPARE(model->index(2,0).data().toString(), QLatin1String("d1"));
58		QCOMPARE(model->index(2,1).data().toString(), QLatin1String("1, 2, 3"));
59
60		evalExp(QLatin1String("rm(a1,b1,d1)"));
61		}
62
63		void TestR::testVariableCleanupAfterRestart()
64		{
65		Cantor::DefaultVariableModel* model = session()->variableModel();
66		QVERIFY(model != nullptr);
67
68		while(session()->status() != Cantor::Session::Done)
69		waitForSignal(session(), SIGNAL(statusChanged(Cantor::Session::Status)));
70
71		QCOMPARE(static_cast<QAbstractItemModel*>(model)->rowCount(), 0);
72
73		Cantor::Expression* e=evalExp(QLatin1String("h1 = 15; h2 = 'S';"));
74		QVERIFY(e!=nullptr);
75
76		while(session()->status() != Cantor::Session::Done)
77		waitForSignal(session(), SIGNAL(statusChanged(Cantor::Session::Status)));
78
79		QCOMPARE(static_cast<QAbstractItemModel*>(model)->rowCount(), 2);
80
81		session()->logout();
82		session()->login();
83
84		QCOMPARE(static_cast<QAbstractItemModel*>(model)->rowCount(), 0);
85		}
86
87		QTEST_MAIN( TestR )
88