orthanc: UnitTestsSources/LuaTests.cpp annotate

annotate UnitTestsSources/LuaTests.cpp @ 997:1b1d51e9f1a2 lua-scripting

return Json from Lua

author	Sebastien Jodogne <s.jodogne@gmail.com>
date	Thu, 03 Jul 2014 18:12:50 +0200
parents	dfc076546821
children	92f4bf2c5d73

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
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	3 * Copyright (C) 2012-2014 Medical Physics Department, CHU of Liege,
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	4 * Belgium
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	5 *
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	6 * 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	7 * 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	8 * 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	9 * License, or (at your option) any later version.
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	10 *
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	11 * 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	12 * 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	13 * 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	14 * 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	15 * 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	16 * 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	17 * 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	18 * 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	19 * 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	20 * 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	21 * in the program, then also delete it here.
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	22 *
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	23 * 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	24 * 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	25 * 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	26 * General Public License for more details.
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	27 *
3d6f9b7d0add precompiled headers in unit tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 712 diff changeset	28 * 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	29 * 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	30 **/
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
831 84513f2ee1f3 pch for unit tests and server Sebastien Jodogne <s.jodogne@gmail.com> parents: 827 diff changeset	33 #include "PrecompiledHeadersUnitTests.h"
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	34 #include "gtest/gtest.h"
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	35
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	36 #include "../Core/Lua/LuaFunctionCall.h"
7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	37
997 1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	38 #include <boost/lexical_cast.hpp>
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	39
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	40
712 9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	41 TEST(Lua, Json)
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	42 {
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	43 Orthanc::LuaContext lua;
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	44 lua.Execute(Orthanc::EmbeddedResources::LUA_TOOLBOX);
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	45 lua.Execute("a={}");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	46 lua.Execute("a['x'] = 10");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	47 lua.Execute("a['y'] = {}");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	48 lua.Execute("a['y'][1] = 20");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	49 lua.Execute("a['y'][2] = 20");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	50 lua.Execute("PrintRecursive(a)");
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 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	53
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	54 Json::Value v, vv, o;
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	55 //v["a"] = "b";
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	56 v.append("hello");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	57 v.append("world");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	58 v.append("42");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	59 vv.append("sub");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	60 vv.append("set");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	61 v.append(vv);
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	62 o = Json::objectValue;
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	63 o["x"] = 10;
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	64 o["y"] = 20;
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	65 o["z"] = 20.5f;
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	66 v.append(o);
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 {
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	69 Orthanc::LuaFunctionCall f(lua, "PrintRecursive");
997 1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	70 f.PushJson(v);
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	71 f.Execute();
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	72 }
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	73
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	74 {
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	75 Orthanc::LuaFunctionCall f(lua, "f");
997 1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	76 f.PushJson(o);
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	77 ASSERT_THROW(f.ExecutePredicate(), Orthanc::LuaException);
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	78 }
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	79
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	80 o["bool"] = false;
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, "f");
997 1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	84 f.PushJson(o);
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	85 ASSERT_FALSE(f.ExecutePredicate());
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 o["bool"] = true;
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	89
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	90 {
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	91 Orthanc::LuaFunctionCall f(lua, "f");
997 1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	92 f.PushJson(o);
397 941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	93 ASSERT_TRUE(f.ExecutePredicate());
386 7dec4f3c922c lua wrapper Sebastien Jodogne <s.jodogne@gmail.com> parents: diff changeset	94 }
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
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	98 TEST(Lua, Existing)
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	99 {
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	100 Orthanc::LuaContext lua;
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	101 lua.Execute("a={}");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	102 lua.Execute("function f() end");
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	103
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	104 ASSERT_TRUE(lua.IsExistingFunction("f"));
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	105 ASSERT_FALSE(lua.IsExistingFunction("a"));
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	106 ASSERT_FALSE(lua.IsExistingFunction("Dummy"));
941ea46e9e26 lua filter of new instances Sebastien Jodogne <s.jodogne@gmail.com> parents: 386 diff changeset	107 }
712 9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	108
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	109
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	110 TEST(Lua, Simple)
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	111 {
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	112 Orthanc::LuaContext lua;
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	113 lua.Execute(Orthanc::EmbeddedResources::LUA_TOOLBOX);
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	114
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	115 {
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	116 Orthanc::LuaFunctionCall f(lua, "PrintRecursive");
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	117 f.PushString("hello");
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	118 f.Execute();
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	119 }
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	120
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 Orthanc::LuaFunctionCall f(lua, "PrintRecursive");
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	123 f.PushBoolean(true);
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	124 f.Execute();
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	125 }
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 Orthanc::LuaFunctionCall f(lua, "PrintRecursive");
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	129 f.PushInteger(42);
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	130 f.Execute();
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	131 }
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 Orthanc::LuaFunctionCall f(lua, "PrintRecursive");
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	135 f.PushDouble(3.1415);
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	136 f.Execute();
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	137 }
9e3f21441903 lua tests Sebastien Jodogne <s.jodogne@gmail.com> parents: 632 diff changeset	138 }
997 1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	139
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	140
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	141 TEST(Lua, ReturnJson)
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	142 {
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	143 Json::Value b = Json::objectValue;
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	144 b["a"] = 42;
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	145 b["b"] = 44;
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	146 b["c"] = 43;
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	147
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	148 Json::Value c = Json::arrayValue;
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	149 c.append("test3");
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	150 c.append("test1");
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	151 c.append("test2");
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	152
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	153 Json::Value a = Json::objectValue;
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	154 a["Hello"] = "World";
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	155 a["List"] = Json::arrayValue;
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	156 a["List"].append(b);
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	157 a["List"].append(c);
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	158
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	159 Orthanc::LuaContext lua;
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	160
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	161 // This is the identity function (it simply returns its input)
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	162 lua.Execute("function identity(a) return a end");
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	163
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	164 {
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	165 Orthanc::LuaFunctionCall f(lua, "identity");
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	166 f.PushJson("hello");
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	167 Json::Value v;
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	168 f.ExecuteToJson(v);
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	169 ASSERT_EQ("hello", v.asString());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	170 }
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	171
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	172 {
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	173 Orthanc::LuaFunctionCall f(lua, "identity");
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	174 f.PushJson(42.25);
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	175 Json::Value v;
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	176 f.ExecuteToJson(v);
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	177 ASSERT_FLOAT_EQ(42.25f, v.asFloat());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	178 }
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	179
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	180 {
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	181 Orthanc::LuaFunctionCall f(lua, "identity");
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	182 Json::Value vv = Json::arrayValue;
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	183 f.PushJson(vv);
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	184 Json::Value v;
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	185 f.ExecuteToJson(v);
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	186 ASSERT_EQ(Json::arrayValue, v.type());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	187 }
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	188
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	189 {
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	190 Orthanc::LuaFunctionCall f(lua, "identity");
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	191 Json::Value vv = Json::objectValue;
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	192 f.PushJson(vv);
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	193 Json::Value v;
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	194 f.ExecuteToJson(v);
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	195 // Lua does not make the distinction between empty lists and empty objects
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	196 ASSERT_EQ(Json::arrayValue, v.type());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	197 }
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	198
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	199 {
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	200 Orthanc::LuaFunctionCall f(lua, "identity");
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	201 f.PushJson(b);
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	202 Json::Value v;
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	203 f.ExecuteToJson(v);
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	204 ASSERT_EQ(Json::objectValue, v.type());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	205 ASSERT_FLOAT_EQ(42.0f, v["a"].asFloat());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	206 ASSERT_FLOAT_EQ(44.0f, v["b"].asFloat());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	207 ASSERT_FLOAT_EQ(43.0f, v["c"].asFloat());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	208 }
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	209
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	210 {
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	211 Orthanc::LuaFunctionCall f(lua, "identity");
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	212 f.PushJson(c);
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	213 Json::Value v;
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	214 f.ExecuteToJson(v);
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	215 ASSERT_EQ(Json::arrayValue, v.type());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	216 ASSERT_EQ("test3", v[0].asString());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	217 ASSERT_EQ("test1", v[1].asString());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	218 ASSERT_EQ("test2", v[2].asString());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	219 }
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	220
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	221 {
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	222 Orthanc::LuaFunctionCall f(lua, "identity");
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	223 f.PushJson(a);
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	224 Json::Value v;
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	225 f.ExecuteToJson(v);
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	226 ASSERT_EQ("World", v["Hello"].asString());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	227 ASSERT_EQ(42, v["List"][0]["a"].asInt());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	228 ASSERT_EQ(44, v["List"][0]["b"].asInt());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	229 ASSERT_EQ(43, v["List"][0]["c"].asInt());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	230 ASSERT_EQ("test3", v["List"][1][0].asString());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	231 ASSERT_EQ("test1", v["List"][1][1].asString());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	232 ASSERT_EQ("test2", v["List"][1][2].asString());
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	233 }
1b1d51e9f1a2 return Json from Lua Sebastien Jodogne <s.jodogne@gmail.com> parents: 967 diff changeset	234 }

Mercurial > hg > orthanc

annotate UnitTestsSources/LuaTests.cpp @ 997:1b1d51e9f1a2 lua-scripting