Mercurial > hg > orthanc
view OrthancServer/UnitTestsSources/LuaServerTests.cpp @ 5102:071e1faee1c1
added orthanc framework 1.11.2
author | Sebastien Jodogne <s.jodogne@gmail.com> |
---|---|
date | Thu, 27 Oct 2022 10:48:41 +0200 |
parents | 6eff25f70121 |
children | 0ea402b4d901 |
line wrap: on
line source
/** * Orthanc - A Lightweight, RESTful DICOM Store * Copyright (C) 2012-2016 Sebastien Jodogne, Medical Physics * Department, University Hospital of Liege, Belgium * Copyright (C) 2017-2022 Osimis S.A., Belgium * Copyright (C) 2021-2022 Sebastien Jodogne, ICTEAM UCLouvain, Belgium * * This program is free software: you can redistribute it and/or * modify it under the terms of the GNU General Public License as * published by the Free Software Foundation, either version 3 of the * License, or (at your option) any later version. * * This program is distributed in the hope that it will be useful, but * WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see <http://www.gnu.org/licenses/>. **/ #include "PrecompiledHeadersUnitTests.h" #include <gtest/gtest.h> #include "../../OrthancFramework/Sources/OrthancException.h" #include "../../OrthancFramework/Sources/Toolbox.h" #include "../../OrthancFramework/Sources/Lua/LuaFunctionCall.h" #include <OrthancServerResources.h> #include <boost/lexical_cast.hpp> #if !defined(UNIT_TESTS_WITH_HTTP_CONNEXIONS) # error "Please set UNIT_TESTS_WITH_HTTP_CONNEXIONS to 0 or 1" #endif TEST(Lua, Json) { Orthanc::LuaContext lua; { std::string command; Orthanc::ServerResources::GetFileResource(command, Orthanc::ServerResources::LUA_TOOLBOX); lua.Execute(command); } lua.Execute("a={}"); lua.Execute("a['x'] = 10"); lua.Execute("a['y'] = {}"); lua.Execute("a['y'][1] = 20"); lua.Execute("a['y'][2] = 20"); lua.Execute("PrintRecursive(a)"); lua.Execute("function f(a) print(a.bool) return a.bool,20,30,40,50,60 end"); Json::Value v, vv, o; //v["a"] = "b"; v.append("hello"); v.append("world"); v.append("42"); vv.append("sub"); vv.append("set"); v.append(vv); o = Json::objectValue; o["x"] = 10; o["y"] = 20; o["z"] = 20.5f; v.append(o); { Orthanc::LuaFunctionCall f(lua, "PrintRecursive"); f.PushJson(v); f.Execute(); } { Orthanc::LuaFunctionCall f(lua, "f"); f.PushJson(o); ASSERT_THROW(f.ExecutePredicate(), Orthanc::OrthancException); } o["bool"] = false; { Orthanc::LuaFunctionCall f(lua, "f"); f.PushJson(o); ASSERT_FALSE(f.ExecutePredicate()); } o["bool"] = true; { Orthanc::LuaFunctionCall f(lua, "f"); f.PushJson(o); ASSERT_TRUE(f.ExecutePredicate()); } } TEST(Lua, Simple) { Orthanc::LuaContext lua; { std::string command; Orthanc::ServerResources::GetFileResource(command, Orthanc::ServerResources::LUA_TOOLBOX); lua.Execute(command); } { Orthanc::LuaFunctionCall f(lua, "PrintRecursive"); f.PushString("hello"); f.Execute(); } { Orthanc::LuaFunctionCall f(lua, "PrintRecursive"); f.PushBoolean(true); f.Execute(); } { Orthanc::LuaFunctionCall f(lua, "PrintRecursive"); f.PushInteger(42); f.Execute(); } { Orthanc::LuaFunctionCall f(lua, "PrintRecursive"); f.PushDouble(3.1415); f.Execute(); } } TEST(Lua, Http) { Orthanc::LuaContext lua; #if UNIT_TESTS_WITH_HTTP_CONNEXIONS == 1 // The "http://www.orthanc-server.com/downloads/third-party/" does // not automatically redirect to HTTPS, so we use it even if the // OpenSSL/HTTPS support is disabled in curl const std::string BASE = "http://www.orthanc-server.com/downloads/third-party/"; #if LUA_VERSION_NUM >= 502 // Since Lua >= 5.2.0, the function "loadstring" has been replaced by "load" lua.Execute("JSON = load(HttpGet('" + BASE + "JSON.lua')) ()"); #else lua.Execute("JSON = loadstring(HttpGet('" + BASE + "JSON.lua')) ()"); #endif const std::string url(BASE + "Product.json"); #endif std::string s; lua.Execute(s, "print(HttpGet({}))"); ASSERT_EQ("nil", Orthanc::Toolbox::StripSpaces(s)); #if UNIT_TESTS_WITH_HTTP_CONNEXIONS == 1 lua.Execute(s, "print(string.len(HttpGet(\"" + url + "\")))"); ASSERT_LE(100, boost::lexical_cast<int>(Orthanc::Toolbox::StripSpaces(s))); // Parse a JSON file lua.Execute(s, "print(JSON:decode(HttpGet(\"" + url + "\")) ['Product'])"); ASSERT_EQ("OrthancClient", Orthanc::Toolbox::StripSpaces(s)); #if 0 // This part of the test can only be executed if one instance of // Orthanc is running on the localhost lua.Execute("modality = {}"); lua.Execute("table.insert(modality, 'ORTHANC')"); lua.Execute("table.insert(modality, 'localhost')"); lua.Execute("table.insert(modality, 4242)"); lua.Execute(s, "print(HttpPost(\"http://localhost:8042/tools/execute-script\", \"print('hello world')\"))"); ASSERT_EQ("hello world", Orthanc::Toolbox::StripSpaces(s)); lua.Execute(s, "print(JSON:decode(HttpPost(\"http://localhost:8042/tools/execute-script\", \"print('[10,42,1000]')\")) [2])"); ASSERT_EQ("42", Orthanc::Toolbox::StripSpaces(s)); // Add/remove a modality with Lua Json::Value v; lua.Execute(s, "print(HttpGet('http://localhost:8042/modalities/lua'))"); ASSERT_EQ(0, Orthanc::Toolbox::StripSpaces(s).size()); lua.Execute(s, "print(HttpPut('http://localhost:8042/modalities/lua', JSON:encode(modality)))"); lua.Execute(v, "print(HttpGet('http://localhost:8042/modalities/lua'))"); ASSERT_TRUE(v.type() == Json::arrayValue); lua.Execute(s, "print(HttpDelete('http://localhost:8042/modalities/lua'))"); lua.Execute(s, "print(HttpGet('http://localhost:8042/modalities/lua'))"); ASSERT_EQ(0, Orthanc::Toolbox::StripSpaces(s).size()); #endif #endif }