orthanc: OrthancServer/UnitTestsSources/LuaServerTests.cpp annotate

annotate OrthancServer/UnitTestsSources/LuaServerTests.cpp @ 4520:f5cb0c0ffbed

added unit test OrthancFramework.SizeOf to dump sizeof all the public classes in the Orthanc framework

author	Sebastien Jodogne <s.jodogne@gmail.com>
date	Mon, 22 Feb 2021 18:30:31 +0100
parents	97d103b57cd1
children	f0038043fb97 7053502fbf97

rev	line source
827 3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	1 /**
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	2 * Orthanc - A Lightweight, RESTful DICOM Store
1900 b1291df2f780 2016 Sebastien Jodogne <s.jodogne@gmail.com> parents: 1659 diff changeset	3 * Copyright (C) 2012-2016 Sebastien Jodogne, Medical Physics
1288 6e7e5ed91c2d upgrade to year 2015 Sebastien Jodogne <s.jodogne@gmail.com> parents: 1056 diff changeset	4 * Department, University Hospital of Liege, Belgium
4437 d9473bd5ed43 upgrade to year 2021 Sebastien Jodogne <s.jodogne@gmail.com> parents: 4062 diff changeset	5 * Copyright (C) 2017-2021 Osimis S.A., Belgium
827 3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	6 *
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	7 * This program is free software: you can redistribute it and/or
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	8 * modify it under the terms of the GNU General Public License as
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	9 * published by the Free Software Foundation, either version 3 of the
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	10 * License, or (at your option) any later version.
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	11 *
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	12 * In addition, as a special exception, the copyright holders of this
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	13 * program give permission to link the code of its release with the
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	14 * OpenSSL project's "OpenSSL" library (or with modified versions of it
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	15 * that use the same license as the "OpenSSL" library), and distribute
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	16 * the linked executables. You must obey the GNU General Public License
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	17 * in all respects for all of the code used other than "OpenSSL". If you
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	18 * modify file(s) with this exception, you may extend this exception to
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	19 * your version of the file(s), but you are not obligated to do so. If
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	20 * you do not wish to do so, delete this exception statement from your
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	21 * version. If you delete this exception statement from all source files
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	22 * in the program, then also delete it here.
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	23 *
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	24 * This program is distributed in the hope that it will be useful, but
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	25 * WITHOUT ANY WARRANTY; without even the implied warranty of
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	26 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	27 * General Public License for more details.
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	28 *
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	29 * You should have received a copy of the GNU General Public License
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	30 * along with this program. If not, see <http://www.gnu.org/licenses/>.
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	31 **/
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	32
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	33
831 84513f2ee1f3 pch for unit tests and server Sebastien Jodogne <s.jodogne@gmail.com> parents: 827 diff changeset	34 #include "PrecompiledHeadersUnitTests.h"
4062 0953b3dc3261 pretty-printing Sebastien Jodogne <s.jodogne@gmail.com> parents: 4059 diff changeset	35 #include <gtest/gtest.h>
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	36
4045 05b8fd21089c fix path Sebastien Jodogne <s.jodogne@gmail.com> parents: 4044 diff changeset	37 #include "../../OrthancFramework/Sources/OrthancException.h"
05b8fd21089c fix path Sebastien Jodogne <s.jodogne@gmail.com> parents: 4044 diff changeset	38 #include "../../OrthancFramework/Sources/Toolbox.h"
05b8fd21089c fix path Sebastien Jodogne <s.jodogne@gmail.com> parents: 4044 diff changeset	39 #include "../../OrthancFramework/Sources/Lua/LuaFunctionCall.h"
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	40
4032 058b5ade8acd renaming embedded resources Sebastien Jodogne <s.jodogne@gmail.com> parents: 4031 diff changeset	41 #include <OrthancServerResources.h>
4031 e3b3af80732d ServerResources, and moving EmbeddedResourceHttpHandler from Core to OrthancServer Sebastien Jodogne <s.jodogne@gmail.com> parents: 4014 diff changeset	42
997 1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	43 #include <boost/lexical_cast.hpp>
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	44
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 997 diff changeset	45 #if !defined(UNIT_TESTS_WITH_HTTP_CONNEXIONS)
4059 e241e5f3f088 moved LuaTests and MemoryCacheTests from OrthancServer to OrthancFramework Sebastien Jodogne <s.jodogne@gmail.com> parents: 4045 diff changeset	46 # error "Please set UNIT_TESTS_WITH_HTTP_CONNEXIONS to 0 or 1"
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 997 diff changeset	47 #endif
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 997 diff changeset	48
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	49
712 9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	50 TEST(Lua, Json)
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	51 {
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	52 Orthanc::LuaContext lua;
3992 f9863630ec7f working on the shared library for Orthanc framework Sebastien Jodogne <s.jodogne@gmail.com> parents: 3640 diff changeset	53
4031 e3b3af80732d ServerResources, and moving EmbeddedResourceHttpHandler from Core to OrthancServer Sebastien Jodogne <s.jodogne@gmail.com> parents: 4014 diff changeset	54 {
e3b3af80732d ServerResources, and moving EmbeddedResourceHttpHandler from Core to OrthancServer Sebastien Jodogne <s.jodogne@gmail.com> parents: 4014 diff changeset	55 std::string command;
e3b3af80732d ServerResources, and moving EmbeddedResourceHttpHandler from Core to OrthancServer Sebastien Jodogne <s.jodogne@gmail.com> parents: 4014 diff changeset	56 Orthanc::ServerResources::GetFileResource(command, Orthanc::ServerResources::LUA_TOOLBOX);
e3b3af80732d ServerResources, and moving EmbeddedResourceHttpHandler from Core to OrthancServer Sebastien Jodogne <s.jodogne@gmail.com> parents: 4014 diff changeset	57 lua.Execute(command);
e3b3af80732d ServerResources, and moving EmbeddedResourceHttpHandler from Core to OrthancServer Sebastien Jodogne <s.jodogne@gmail.com> parents: 4014 diff changeset	58 }
e3b3af80732d ServerResources, and moving EmbeddedResourceHttpHandler from Core to OrthancServer Sebastien Jodogne <s.jodogne@gmail.com> parents: 4014 diff changeset	59
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	60 lua.Execute("a={}");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	61 lua.Execute("a['x'] = 10");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	62 lua.Execute("a['y'] = {}");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	63 lua.Execute("a['y'][1] = 20");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	64 lua.Execute("a['y'][2] = 20");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	65 lua.Execute("PrintRecursive(a)");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	66 lua.Execute("function f(a) print(a.bool) return a.bool,20,30,40,50,60 end");
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	67
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	68 Json::Value v, vv, o;
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	69 //v["a"] = "b";
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	70 v.append("hello");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	71 v.append("world");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	72 v.append("42");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	73 vv.append("sub");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	74 vv.append("set");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	75 v.append(vv);
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	76 o = Json::objectValue;
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	77 o["x"] = 10;
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	78 o["y"] = 20;
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	79 o["z"] = 20.5f;
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	80 v.append(o);
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	81
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	82 {
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	83 Orthanc::LuaFunctionCall f(lua, "PrintRecursive");
997 1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	84 f.PushJson(v);
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	85 f.Execute();
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	86 }
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	87
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	88 {
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	89 Orthanc::LuaFunctionCall f(lua, "f");
997 1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	90 f.PushJson(o);
1583 9ea3d082b064 got rid of custom exceptions Sebastien Jodogne <s.jodogne@gmail.com> parents: 1532 diff changeset	91 ASSERT_THROW(f.ExecutePredicate(), Orthanc::OrthancException);
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	92 }
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	93
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	94 o["bool"] = false;
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	95
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	96 {
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	97 Orthanc::LuaFunctionCall f(lua, "f");
997 1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	98 f.PushJson(o);
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	99 ASSERT_FALSE(f.ExecutePredicate());
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	100 }
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	101
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	102 o["bool"] = true;
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	103
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	104 {
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	105 Orthanc::LuaFunctionCall f(lua, "f");
997 1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	106 f.PushJson(o);
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	107 ASSERT_TRUE(f.ExecutePredicate());
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	108 }
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	109 }
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	110
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	111
712 9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	112 TEST(Lua, Simple)
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	113 {
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	114 Orthanc::LuaContext lua;
4031 e3b3af80732d ServerResources, and moving EmbeddedResourceHttpHandler from Core to OrthancServer Sebastien Jodogne <s.jodogne@gmail.com> parents: 4014 diff changeset	115
e3b3af80732d ServerResources, and moving EmbeddedResourceHttpHandler from Core to OrthancServer Sebastien Jodogne <s.jodogne@gmail.com> parents: 4014 diff changeset	116 {
e3b3af80732d ServerResources, and moving EmbeddedResourceHttpHandler from Core to OrthancServer Sebastien Jodogne <s.jodogne@gmail.com> parents: 4014 diff changeset	117 std::string command;
e3b3af80732d ServerResources, and moving EmbeddedResourceHttpHandler from Core to OrthancServer Sebastien Jodogne <s.jodogne@gmail.com> parents: 4014 diff changeset	118 Orthanc::ServerResources::GetFileResource(command, Orthanc::ServerResources::LUA_TOOLBOX);
e3b3af80732d ServerResources, and moving EmbeddedResourceHttpHandler from Core to OrthancServer Sebastien Jodogne <s.jodogne@gmail.com> parents: 4014 diff changeset	119 lua.Execute(command);
e3b3af80732d ServerResources, and moving EmbeddedResourceHttpHandler from Core to OrthancServer Sebastien Jodogne <s.jodogne@gmail.com> parents: 4014 diff changeset	120 }
712 9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	121
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	122 {
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	123 Orthanc::LuaFunctionCall f(lua, "PrintRecursive");
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	124 f.PushString("hello");
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	125 f.Execute();
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	126 }
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	127
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	128 {
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	129 Orthanc::LuaFunctionCall f(lua, "PrintRecursive");
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	130 f.PushBoolean(true);
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	131 f.Execute();
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	132 }
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	133
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	134 {
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	135 Orthanc::LuaFunctionCall f(lua, "PrintRecursive");
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	136 f.PushInteger(42);
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	137 f.Execute();
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	138 }
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	139
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	140 {
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	141 Orthanc::LuaFunctionCall f(lua, "PrintRecursive");
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	142 f.PushDouble(3.1415);
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	143 f.Execute();
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	144 }
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	145 }
1448 3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1439 diff changeset	146
3f7722179467 refactoring: GetJson in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1439 diff changeset	147
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 997 diff changeset	148 TEST(Lua, Http)
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 997 diff changeset	149 {
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	150 Orthanc::LuaContext lua;
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 997 diff changeset	151
2363 f8ef157f2d73 fix unit tests given www.orthanc-server.com now mandatory uses HTTPS Sebastien Jodogne <s.jodogne@gmail.com> parents: 2244 diff changeset	152 #if UNIT_TESTS_WITH_HTTP_CONNEXIONS == 1
2386 883387e2b379 remove dependendy upon ULg Montefiore Web server Sebastien Jodogne <s.jodogne@gmail.com> parents: 2363 diff changeset	153 // The "http://www.orthanc-server.com/downloads/third-party/" does
4505 97d103b57cd1 removed cached dicom summary from DicomInstanceToStore Sebastien Jodogne <s.jodogne@gmail.com> parents: 4437 diff changeset	154 // not automatically redirect to HTTPS, so we use it even if the
2386 883387e2b379 remove dependendy upon ULg Montefiore Web server Sebastien Jodogne <s.jodogne@gmail.com> parents: 2363 diff changeset	155 // OpenSSL/HTTPS support is disabled in curl
883387e2b379 remove dependendy upon ULg Montefiore Web server Sebastien Jodogne <s.jodogne@gmail.com> parents: 2363 diff changeset	156 const std::string BASE = "http://www.orthanc-server.com/downloads/third-party/";
2363 f8ef157f2d73 fix unit tests given www.orthanc-server.com now mandatory uses HTTPS Sebastien Jodogne <s.jodogne@gmail.com> parents: 2244 diff changeset	157
2947 11f8d72f366f Lua 5.3.5 Sebastien Jodogne <s.jodogne@gmail.com> parents: 2447 diff changeset	158 #if LUA_VERSION_NUM >= 502
11f8d72f366f Lua 5.3.5 Sebastien Jodogne <s.jodogne@gmail.com> parents: 2447 diff changeset	159 // Since Lua >= 5.2.0, the function "loadstring" has been replaced by "load"
11f8d72f366f Lua 5.3.5 Sebastien Jodogne <s.jodogne@gmail.com> parents: 2447 diff changeset	160 lua.Execute("JSON = load(HttpGet('" + BASE + "JSON.lua')) ()");
11f8d72f366f Lua 5.3.5 Sebastien Jodogne <s.jodogne@gmail.com> parents: 2447 diff changeset	161 #else
2363 f8ef157f2d73 fix unit tests given www.orthanc-server.com now mandatory uses HTTPS Sebastien Jodogne <s.jodogne@gmail.com> parents: 2244 diff changeset	162 lua.Execute("JSON = loadstring(HttpGet('" + BASE + "JSON.lua')) ()");
2947 11f8d72f366f Lua 5.3.5 Sebastien Jodogne <s.jodogne@gmail.com> parents: 2447 diff changeset	163 #endif
11f8d72f366f Lua 5.3.5 Sebastien Jodogne <s.jodogne@gmail.com> parents: 2447 diff changeset	164
2363 f8ef157f2d73 fix unit tests given www.orthanc-server.com now mandatory uses HTTPS Sebastien Jodogne <s.jodogne@gmail.com> parents: 2244 diff changeset	165 const std::string url(BASE + "Product.json");
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	166 #endif
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	167
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 997 diff changeset	168 std::string s;
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 997 diff changeset	169 lua.Execute(s, "print(HttpGet({}))");
1439 354640db5a7f fix Sebastien Jodogne <s.jodogne@gmail.com> parents: 1396 diff changeset	170 ASSERT_EQ("nil", Orthanc::Toolbox::StripSpaces(s));
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 997 diff changeset	171
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 997 diff changeset	172 #if UNIT_TESTS_WITH_HTTP_CONNEXIONS == 1
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 997 diff changeset	173 lua.Execute(s, "print(string.len(HttpGet(\"" + url + "\")))");
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	174 ASSERT_LE(100, boost::lexical_cast<int>(Orthanc::Toolbox::StripSpaces(s)));
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 997 diff changeset	175
92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 997 diff changeset	176 // Parse a JSON file
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	177 lua.Execute(s, "print(JSON:decode(HttpGet(\"" + url + "\")) ['Product'])");
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	178 ASSERT_EQ("OrthancClient", Orthanc::Toolbox::StripSpaces(s));
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 997 diff changeset	179
1056 03c738276a04 oups Sebastien Jodogne <s.jodogne@gmail.com> parents: 1055 diff changeset	180 #if 0
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	181 // This part of the test can only be executed if one instance of
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	182 // Orthanc is running on the localhost
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	183
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	184 lua.Execute("modality = {}");
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	185 lua.Execute("table.insert(modality, 'ORTHANC')");
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	186 lua.Execute("table.insert(modality, 'localhost')");
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	187 lua.Execute("table.insert(modality, 4242)");
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	188
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	189 lua.Execute(s, "print(HttpPost(\"http://localhost:8042/tools/execute-script\", \"print('hello world')\"))");
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	190 ASSERT_EQ("hello world", Orthanc::Toolbox::StripSpaces(s));
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	191
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	192 lua.Execute(s, "print(JSON:decode(HttpPost(\"http://localhost:8042/tools/execute-script\", \"print('[10,42,1000]')\")) [2])");
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	193 ASSERT_EQ("42", Orthanc::Toolbox::StripSpaces(s));
1055 6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	194
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	195 // Add/remove a modality with Lua
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	196 Json::Value v;
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	197 lua.Execute(s, "print(HttpGet('http://localhost:8042/modalities/lua'))");
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	198 ASSERT_EQ(0, Orthanc::Toolbox::StripSpaces(s).size());
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	199 lua.Execute(s, "print(HttpPut('http://localhost:8042/modalities/lua', JSON:encode(modality)))");
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	200 lua.Execute(v, "print(HttpGet('http://localhost:8042/modalities/lua'))");
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	201 ASSERT_TRUE(v.type() == Json::arrayValue);
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	202 lua.Execute(s, "print(HttpDelete('http://localhost:8042/modalities/lua'))");
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	203 lua.Execute(s, "print(HttpGet('http://localhost:8042/modalities/lua'))");
6f923d52a46c call Web services from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1053 diff changeset	204 ASSERT_EQ(0, Orthanc::Toolbox::StripSpaces(s).size());
1052 cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	205 #endif
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	206
cc4ff680e2a0 http requests in lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 1051 diff changeset	207 #endif
1051 92f4bf2c5d73 HTTP GET in Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 997 diff changeset	208 }

Mercurial > hg > orthanc

annotate OrthancServer/UnitTestsSources/LuaServerTests.cpp @ 4520:f5cb0c0ffbed