Mercurial > hg > orthanc
view UnitTestsSources/Lua.cpp @ 947:c2c28dd17e87 query-retrieve
integration mainline -> query-retrieve
author | Sebastien Jodogne <s.jodogne@gmail.com> |
---|---|
date | Wed, 25 Jun 2014 12:09:38 +0200 |
parents | 84513f2ee1f3 |
children |
line wrap: on
line source
/** * Orthanc - A Lightweight, RESTful DICOM Store * Copyright (C) 2012-2014 Medical Physics Department, CHU of Liege, * 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. * * In addition, as a special exception, the copyright holders of this * program give permission to link the code of its release with the * OpenSSL project's "OpenSSL" library (or with modified versions of it * that use the same license as the "OpenSSL" library), and distribute * the linked executables. You must obey the GNU General Public License * in all respects for all of the code used other than "OpenSSL". If you * modify file(s) with this exception, you may extend this exception to * your version of the file(s), but you are not obligated to do so. If * you do not wish to do so, delete this exception statement from your * version. If you delete this exception statement from all source files * in the program, then also delete it here. * * 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 "../Core/Lua/LuaFunctionCall.h" TEST(Lua, Json) { Orthanc::LuaContext lua; lua.Execute(Orthanc::EmbeddedResources::LUA_TOOLBOX); 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::LuaException); } 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, Existing) { Orthanc::LuaContext lua; lua.Execute("a={}"); lua.Execute("function f() end"); ASSERT_TRUE(lua.IsExistingFunction("f")); ASSERT_FALSE(lua.IsExistingFunction("a")); ASSERT_FALSE(lua.IsExistingFunction("Dummy")); } TEST(Lua, Simple) { Orthanc::LuaContext lua; lua.Execute(Orthanc::EmbeddedResources::LUA_TOOLBOX); { 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(); } }