pikascript/port/linux/test/object-test.cpp

#include "gtest/gtest.h"
extern "C" {
#include "BaseObj.h"
#include "PikaStdLib_SysObj.h"
#include "TinyObj.h"
}

void testFloat(PikaObj* obj, Args* args) {
    float val1 = args_getFloat(args, (char*)"val1");
    float val2 = args_getFloat(args, (char*)"val2");
    int32_t isShow = args_getInt(args, (char*)"isShow");
    if (isShow) {
        printf("the float val1 is: %f\r\n", val1);
        printf("the float val2 is: %f\r\n", val2);
    }
    method_returnFloat(args, val1 + val2);
}

void hello2(PikaObj* obj, Args* args) {
    char* name1 = args_getStr(args, (char*)"name1");
    char* name2 = args_getStr(args, (char*)"name2");
    char* name3 = args_getStr(args, (char*)"name3");
    char* myName = obj_getStr(obj, (char*)"_n");
    int32_t isShow = args_getInt(args, (char*)"isShow");
    if (isShow) {
        printf("hello, %s, %s and %s!\r\n", name1, name2, name3);
        printf("my name is %s.\r\n", myName);
    }
}

void hello(PikaObj* obj, Args* args) {
    char* name = args_getStr(args, (char*)"name");
    int32_t isShow = args_getInt(args, (char*)"isShow");
    if (isShow) {
        printf("hello, %s!\r\n", name);
    }
}

void add(PikaObj* obj, Args* args) {
    int32_t val1 = args_getInt(args, (char*)"val1");
    int32_t val2 = args_getInt(args, (char*)"val2");
    method_returnInt(args, val1 + val2);
}

PikaObj* New_PikaObj_test(Args* args) {
    PikaObj* self = PikaStdLib_SysObj(args);
    class_defineMethod(self, (char*)"hello(name:str, isShow:int)", hello);
    class_defineMethod(
        self, (char*)"hello2(name1:str, name2:str, name3:str, isShow:int)",
        hello2);
    class_defineMethod(
        self, (char*)"testFloat(val1:float, val2:float, isShow:int)->float",
        testFloat);
    class_defineMethod(self, (char*)"add(val1:int, val2:int)->int", add);
    return self;
}

void sendMethod(PikaObj* self, Args* args) {
    char* data = args_getStr(args, (char*)"data");
    /* send to com1 */
    printf("[com1]: %s\r\n", data);
}

PikaObj* New_USART(Args* args) {
    /*  Derive from the tiny object class.
        Tiny object can not import sub object.
        Tiny object is the smallest object. */
    PikaObj* self = TinyObj(args);

    /* bind the method */
    class_defineMethod(self, (char*)"send(data:str)", sendMethod);

    /* return the object */
    return self;
}

PikaObj* New_MYROOT1(Args* args) {
    /*  Derive from the base object class .
        BaseObj is the smallest object that can
        import sub object.      */
    PikaObj* self = BaseObj(args);

    /* new led object bellow root object */
    obj_newObj(self, (char*)"usart", (char*)"USART", (NewFun)New_USART);

    /* return the object */
    return self;
}

TEST(object_test, test10) {
    PikaObj* root = newRootObj((char*)"root", New_MYROOT1);
    PikaObj* usart = obj_getObj(root, (char*)"usart", 0);
    PikaObj* context = obj_getContext(usart);
    EXPECT_EQ(context, root);
    obj_run(root, (char*)"usart.send('hello world')");
    obj_deinit(root);
    EXPECT_EQ(pikaMemNow(), 0);
}

TEST(object_test, test1) {
    PikaObj* process = newRootObj((char*)"sys", PikaStdLib_SysObj);
    float floatTest = 12.231;
    obj_bindFloat(process, (char*)"testFloatBind", &floatTest);
    EXPECT_TRUE(
        strEqu((char*)"12.231000", obj_print(process, (char*)"testFloatBind")));
    obj_deinit(process);
    EXPECT_EQ(pikaMemNow(), 0);
}

TEST(object_test, test2) {
    int isShow = 1;
    PikaObj* obj = newRootObj((char*)"test", New_PikaObj_test);
    obj_setInt(obj, (char*)"isShow", isShow);
    obj_run(obj, (char*)"hello(name = 'world', isShow = isShow)");
    obj_deinit(obj);
    EXPECT_EQ(pikaMemNow(), 0);
}

TEST(object_test, test3) {
    int isShow = 1;
    PikaObj* obj = newRootObj((char*)"test", New_PikaObj_test);
    obj_setInt(obj, (char*)"isShow", isShow);
    obj_run(
      obj,
      (char*)"hello2(name2='tom', name1='john', name3='cat', isShow=isShow) ");
    obj_deinit(obj);
    EXPECT_EQ(pikaMemNow(), 0);
}

// TEST(object_test, test4) {
//     int isShow = 1;
//     PikaObj* obj = newRootObj((char*)"test", New_PikaObj_test);
//     obj_setInt(obj, (char*)"isShow", isShow);
//     obj_setFloat(obj, (char*)"val2", 3.11);
//     obj_run(obj,
//             (char*)"res = testFloat(val1 = 3.22,val2 = val2,isShow =
//             isShow)");
//     float res = obj_getFloat(obj, (char*)"res");
//     EXPECT_FLOAT_EQ(res, 6.33);
//     obj_deinit(obj);
//     EXPECT_EQ(pikaMemNow(), 0);
// }

// TEST(object_test, test5) {
//     PikaObj* obj = newRootObj((char*)"test", New_PikaObj_test);
//     obj_run(obj, (char*)"res = add(val1 = 1, val2 = 2)");
//     int32_t res = obj_getInt(obj, (char*)"res");
//     EXPECT_EQ(3, res);
//     obj_deinit(obj);
//     EXPECT_EQ(pikaMemNow(), 0);
// }

TEST(object_test, test6) {
    PikaObj* obj = newRootObj((char*)"test", New_PikaObj_test);
    obj_run(obj, (char*)"res = add(1, 2)");
    int32_t res = obj_getInt(obj, (char*)"res");
    EXPECT_EQ(3, res);
    obj_deinit(obj);
    EXPECT_EQ(pikaMemNow(), 0);
}

TEST(object_test, test8) {
    PikaObj* sys = newRootObj((char*)"sys", PikaStdLib_SysObj);
    obj_run(sys, (char*)"a=1");
    obj_run(sys, (char*)"remove('a')");
    obj_deinit(sys);
    EXPECT_EQ(pikaMemNow(), 0);
}

TEST(object_test, test9) {
    PikaObj* sys = newRootObj((char*)"sys", PikaStdLib_SysObj);
    obj_run(sys, (char*)"ls()");
    obj_setPtr(sys, (char*)"baseClass", (void*)TinyObj);
    obj_run(sys, (char*)"ls()");
    obj_deinit(sys);
    EXPECT_EQ(pikaMemNow(), 0);
}

TEST(object_test, noMethod) {
    PikaObj* root = newRootObj((char*)"root", New_MYROOT1);
    obj_runNoRes(root, (char*)"noDefindMethod()");
    obj_deinit(root);
    EXPECT_EQ(pikaMemNow(), 0);
}

TEST(object_test, a_b) {
    PikaObj* root = newRootObj((char*)"root", New_MYROOT1);
    obj_runNoRes(root, (char*)"b=1");
    obj_runNoRes(root, (char*)"a=b");
    obj_deinit(root);
    EXPECT_EQ(pikaMemNow(), 0);
}

TEST(object_test, voidRun) {
    PikaObj* root = newRootObj((char*)"root", New_MYROOT1);
    obj_run(root, (char*)"");
    obj_deinit(root);
    EXPECT_EQ(pikaMemNow(), 0);
}

TEST(object_test, printa) {
    PikaObj* root = newRootObj((char*)"root", BaseObj);
    obj_run(root, (char*)"a = 2");
    obj_run(root, (char*)"print(a)");
    char* sysOut = obj_getSysOut(root);
    ASSERT_STREQ(sysOut, "2");
    obj_deinit(root);
    EXPECT_EQ(pikaMemNow(), 0);
}

TEST(object_test, copyArg) {
    PikaObj* root = newRootObj((char*)"root", BaseObj);
    Arg* arg = New_arg(NULL);
    arg = arg_setInt(arg, (char*)"a", 1);
    obj_setArg(root, (char*)"a", arg);
    arg_deinit(arg);
    Arg* argOut = obj_getArg(root, (char*)"a");
    int argOutInt = arg_getInt(argOut);
    ASSERT_EQ(argOutInt, 1);
    obj_deinit(root);
    EXPECT_EQ(pikaMemNow(), 0);
}

TEST(object_test, mem) {
    EXPECT_EQ(pikaMemNow(), 0);
    EXPECT_EQ(pikaMemNow(), 0);
}