Mercurial > hg > webserver / file revision

/*
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
 *
 * Copyright 2022 Olaf Wintermann. All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *
 *   1. Redistributions of source code must retain the above copyright
 *      notice, this list of conditions and the following disclaimer.
 *
 *   2. Redistributions in binary form must reproduce the above copyright
 *      notice, this list of conditions and the following disclaimer in the
 *      documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */

#include "object.h"

#include "../util/object.h"

#include <cx/linked_list.h>
#include <cx/compare.h>

#include "object.h"


CX_TEST(test_expr_parse_expr_value) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("123");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == 1);
        CX_TEST_ASSERT(expr);
        CX_TEST_ASSERT(expr->type == NSAPI_EXPRESSION_INT);
    
    }
    
    pool_destroy(pool);
}

CX_TEST(test_expr_parse_expr_neg_value) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("-123");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == 1);
        CX_TEST_ASSERT(expr);
        CX_TEST_ASSERT(expr->type == NSAPI_EXPRESSION_INT);
        CX_TEST_ASSERT(expr->value.i == -123);
    
    }
    
    pool_destroy(pool);
}

CX_TEST(test_expr_parse_expr_value_str) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("\"hello world\"");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == 1);
        CX_TEST_ASSERT(expr);
        CX_TEST_ASSERT(expr->type == NSAPI_EXPRESSION_STRING);
        CX_TEST_ASSERT(!cx_strcmp(expr->value.str, cx_str("hello world")));
    
    }
    
    pool_destroy(pool);
}

CX_TEST(test_expr_parse_expr_value_bool) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("true");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == 1);
        CX_TEST_ASSERT(expr);
        CX_TEST_ASSERT(expr->type == NSAPI_EXPRESSION_BOOL);
        CX_TEST_ASSERT(expr->value.b == 1);
    
    }
    
    pool_destroy(pool);
}

CX_TEST(test_expr_parse_expr_value_var) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("$test");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == 1);
        CX_TEST_ASSERT(expr);
        CX_TEST_ASSERT(expr->type == NSAPI_EXPRESSION_VARIABLE);
        CX_TEST_ASSERT(!cx_strcmp(expr->value.var, cx_str("test")));
    
    }
    
    pool_destroy(pool);
}

CX_TEST(test_expr_parse_expr_not_value) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("not");
    cxListAdd(tokens, &token);
    token = cx_str("true");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == 2);
        CX_TEST_ASSERT(expr);

        CX_TEST_ASSERT(expr->type == NSAPI_EXPRESSION_UNARY);
        CX_TEST_ASSERT(expr->left);
        CX_TEST_ASSERT(!expr->right);
        CX_TEST_ASSERT(expr->left->type == NSAPI_EXPRESSION_BOOL);
        CX_TEST_ASSERT(expr->left->value.b == 1);
    
    }
    
    pool_destroy(pool);
}

CX_TEST(test_expr_parse_expr_sign_value) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens1 = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("+");
    cxListAdd(tokens1, &token);
    token = cx_str("123");
    cxListAdd(tokens1, &token);
    
    CxList *tokens2 = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    token = cx_str("-");
    cxListAdd(tokens2, &token);
    token = cx_str("123");
    cxListAdd(tokens2, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens1, &pos);

        CX_TEST_ASSERT(pos == 2);
        CX_TEST_ASSERT(expr);

        pos = 0;
        expr = expr_parse_logical_expr(pool, tokens2, &pos);

        CX_TEST_ASSERT(pos == 2);
        CX_TEST_ASSERT(expr);

        CX_TEST_ASSERT(expr->type == NSAPI_EXPRESSION_UNARY);
        CX_TEST_ASSERT(expr->operator == NSAPI_EXPRESSION_SUB);
        CX_TEST_ASSERT(expr->left);
        CX_TEST_ASSERT(expr->left->type == NSAPI_EXPRESSION_INT);
        CX_TEST_ASSERT(expr->left->value.i == 123);
    
    }
    
    pool_destroy(pool);
}



CX_TEST(test_expr_parse_expr_compare2values) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("2");
    cxListAdd(tokens, &token);
    token = cx_str("==");
    cxListAdd(tokens, &token);
    token = cx_str("2");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == 3);
        CX_TEST_ASSERT(expr);

        CX_TEST_ASSERT(expr->type == NSAPI_EXPRESSION_BINARY);
        CX_TEST_ASSERT(expr->left);
        CX_TEST_ASSERT(expr->right);

        CX_TEST_ASSERT(expr->left->operator == NSAPI_EXPRESSION_NOOP);
        CX_TEST_ASSERT(expr->right->operator == NSAPI_EXPRESSION_NOOP);
    
    }
    
    pool_destroy(pool);
}

CX_TEST(test_expr_parse_expr_compare2value_expr) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("2");
    cxListAdd(tokens, &token);
    token = cx_str("==");
    cxListAdd(tokens, &token);
    token = cx_str("1");
    cxListAdd(tokens, &token);
    token = cx_str("+");
    cxListAdd(tokens, &token);
    token = cx_str("1");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == 5);
        CX_TEST_ASSERT(expr);

        CX_TEST_ASSERT(expr->type == NSAPI_EXPRESSION_BINARY);
        CX_TEST_ASSERT(expr->left);
        CX_TEST_ASSERT(expr->right);

        CX_TEST_ASSERT(expr->left->operator == NSAPI_EXPRESSION_NOOP);
        CX_TEST_ASSERT(expr->right->operator == NSAPI_EXPRESSION_ADD);
    
    }
    
    pool_destroy(pool);
}

CX_TEST(test_expr_parse_expr_compare2expr_value) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("1");
    cxListAdd(tokens, &token);
    token = cx_str("+");
    cxListAdd(tokens, &token);
    token = cx_str("1");
    cxListAdd(tokens, &token);
    token = cx_str("==");
    cxListAdd(tokens, &token);
    token = cx_str("2");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == 5);
        CX_TEST_ASSERT(expr);

        CX_TEST_ASSERT(expr->type == NSAPI_EXPRESSION_BINARY);
        CX_TEST_ASSERT(expr->left);
        CX_TEST_ASSERT(expr->right);
        CX_TEST_ASSERT(expr->right->value.i == 2);

        CX_TEST_ASSERT(expr->left->operator == NSAPI_EXPRESSION_ADD);
        CX_TEST_ASSERT(expr->right->operator == NSAPI_EXPRESSION_NOOP);
        CX_TEST_ASSERT(expr->left->left);
        CX_TEST_ASSERT(expr->left->right);
        CX_TEST_ASSERT(expr->left->left->value.i == 1);
        CX_TEST_ASSERT(expr->left->right->value.i == 1);
    
    }
    
    pool_destroy(pool);
}

CX_TEST(test_expr_parse_expr_bracket) {
    pool_handle_t *pool = pool_create();
    
    // expression: 2 * (1 + 2) == 6
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("2");
    cxListAdd(tokens, &token);
    token = cx_str("*");
    cxListAdd(tokens, &token);
    token = cx_str("(");
    cxListAdd(tokens, &token);
    token = cx_str("1");
    cxListAdd(tokens, &token);
    token = cx_str("+");
    cxListAdd(tokens, &token);
    token = cx_str("2");
    cxListAdd(tokens, &token);
    token = cx_str(")");
    cxListAdd(tokens, &token);
    token = cx_str("==");
    cxListAdd(tokens, &token);
    token = cx_str("6");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == 9);
        CX_TEST_ASSERT(expr);
        CX_TEST_ASSERT(expr->operator == NSAPI_EXPRESSION_EQ);
        CX_TEST_ASSERT(expr->left);
        CX_TEST_ASSERT(expr->right);
        CX_TEST_ASSERT(expr->right->type == NSAPI_EXPRESSION_INT);
        CX_TEST_ASSERT(expr->left->operator == NSAPI_EXPRESSION_MUL);
        CX_TEST_ASSERT(expr->left->left);
        CX_TEST_ASSERT(expr->left->right);
        CX_TEST_ASSERT(expr->left->right->operator == NSAPI_EXPRESSION_ADD);
        CX_TEST_ASSERT(expr->left->right->left);
        CX_TEST_ASSERT(expr->left->right->left);
    
    }
    
    pool_destroy(pool);
}

CX_TEST(test_expr_op_defined_simple) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("defined");
    cxListAdd(tokens, &token);
    
    token = cx_str("$testvar1");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == 2);
        CX_TEST_ASSERT(expr);
        CX_TEST_ASSERT(expr->type == NSAPI_EXPRESSION_UNARY);
        CX_TEST_ASSERT(expr->operator == NSAPI_EXPRESSION_VALUE_DEFINED);
        CX_TEST_ASSERT(expr->left);
        CX_TEST_ASSERT(expr->left->type == NSAPI_EXPRESSION_VARIABLE);
    
    }
    
    pool_destroy(pool);
}

CX_TEST(test_expr_op_defined) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("true");
    cxListAdd(tokens, &token);
    
    token = cx_str("==");
    cxListAdd(tokens, &token);
    
    token = cx_str("not");
    cxListAdd(tokens, &token);
    
    token = cx_str("defined");
    cxListAdd(tokens, &token);
    
    token = cx_str("$var");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == 5);
        CX_TEST_ASSERT(expr);
        CX_TEST_ASSERT(expr->operator == NSAPI_EXPRESSION_EQ);
        CX_TEST_ASSERT(expr->left);
        CX_TEST_ASSERT(expr->right);
        CX_TEST_ASSERT(expr->left->type == NSAPI_EXPRESSION_BOOL);
        CX_TEST_ASSERT(expr->right->operator == NSAPI_EXPRESSION_NOT);
        CX_TEST_ASSERT(expr->right->left);
        CX_TEST_ASSERT(expr->right->left->operator == NSAPI_EXPRESSION_VALUE_DEFINED);
    
    }
    
    pool_destroy(pool);
}

CX_TEST(test_expr_op_file_exists_simple) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("-e");
    cxListAdd(tokens, &token);
    
    token = cx_str("\"/path/file\"");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == 2);
        CX_TEST_ASSERT(expr);
        CX_TEST_ASSERT(expr->type == NSAPI_EXPRESSION_UNARY);
        CX_TEST_ASSERT(expr->operator == NSAPI_EXPRESSION_FILE_DIR_EXISTS);
        CX_TEST_ASSERT(expr->left);
        CX_TEST_ASSERT(expr->left->type == NSAPI_EXPRESSION_STRING);
        CX_TEST_ASSERT(!cx_strcmp(expr->left->value.str, cx_str("/path/file")));
    
    }
    
    pool_destroy(pool);
}

CX_TEST(test_expr_parse_expr_func_arg0) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("test");
    cxListAdd(tokens, &token);
    token = cx_str("(");
    cxListAdd(tokens, &token);
    token = cx_str(")");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == 3);
        CX_TEST_ASSERT(expr);
        CX_TEST_ASSERT(expr->type == NSAPI_EXPRESSION_IDENTIFIER);
        CX_TEST_ASSERT(expr->operator == NSAPI_EXPRESSION_CALL);
        CX_TEST_ASSERT(!expr->left);
        CX_TEST_ASSERT(!expr->right);
    
    }
    
    pool_destroy(pool);
}


int test_get_args(NSAPIExpression *arglist, size_t maxArgs, size_t *numArgs, NSAPIExpression *arg) {
    if(!arg) {
        return 0;
    }
    if(arg->operator == NSAPI_EXPRESSION_ARG) {
        if(arg->left) {
            if(test_get_args(arglist, maxArgs, numArgs, arg->left)) {
                return 1;
            }
        }
        if(arg->right) {
            if(test_get_args(arglist, maxArgs, numArgs, arg->right)) {
                return 1;
            }
        }
    } else {
        if(*numArgs >= maxArgs) {
            return 1;
        }
        arglist[*numArgs] = *arg;
        (*numArgs)++;
    } 
    
    return 0;
}


CX_TEST(test_expr_parse_expr_func_arg1) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("test");
    cxListAdd(tokens, &token);
    token = cx_str("(");
    cxListAdd(tokens, &token);
    token = cx_str("1");
    cxListAdd(tokens, &token);
    token = cx_str(")");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == cxListSize(tokens));
        CX_TEST_ASSERT(expr);
        CX_TEST_ASSERT(expr->type == NSAPI_EXPRESSION_IDENTIFIER);
        CX_TEST_ASSERT(expr->operator == NSAPI_EXPRESSION_CALL);

        size_t numArgs = 0;
        NSAPIExpression args[8];
        int err = test_get_args(args, 8, &numArgs, expr->left);
        CX_TEST_ASSERT(err == 0);
        CX_TEST_ASSERT(numArgs == 1);
        CX_TEST_ASSERT(args[0].value.i == 1);
    
    }
    
    pool_destroy(pool);
}

CX_TEST(test_expr_parse_expr_func_arg3) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("test");
    cxListAdd(tokens, &token);
    token = cx_str("(");
    cxListAdd(tokens, &token);
    token = cx_str("1");
    cxListAdd(tokens, &token);
    token = cx_str(",");
    cxListAdd(tokens, &token);
    token = cx_str("2");
    cxListAdd(tokens, &token);
    token = cx_str(",");
    cxListAdd(tokens, &token);
    token = cx_str("3");
    cxListAdd(tokens, &token);
    token = cx_str(")");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == cxListSize(tokens));
        CX_TEST_ASSERT(expr);
        CX_TEST_ASSERT(expr->type == NSAPI_EXPRESSION_IDENTIFIER);
        CX_TEST_ASSERT(expr->operator == NSAPI_EXPRESSION_CALL);

        size_t numArgs = 0;
        NSAPIExpression args[8];
        int err = test_get_args(args, 8, &numArgs, expr->left);
        CX_TEST_ASSERT(err == 0);
        CX_TEST_ASSERT(numArgs == 3);
        CX_TEST_ASSERT(args[0].value.i == 1);
        CX_TEST_ASSERT(args[1].value.i == 2);
        CX_TEST_ASSERT(args[2].value.i == 3);
    
    }
    
    pool_destroy(pool);
}

CX_TEST(test_expr_parse_expr_func_expr1) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("test");
    cxListAdd(tokens, &token);
    token = cx_str("(");
    cxListAdd(tokens, &token);
    token = cx_str("1");
    cxListAdd(tokens, &token);
    token = cx_str(",");
    cxListAdd(tokens, &token);
    token = cx_str("2");
    cxListAdd(tokens, &token);
    token = cx_str("+");
    cxListAdd(tokens, &token);
    token = cx_str("3");
    cxListAdd(tokens, &token);
    token = cx_str(")");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == cxListSize(tokens));
        CX_TEST_ASSERT(expr);
        CX_TEST_ASSERT(expr->type == NSAPI_EXPRESSION_IDENTIFIER);
        CX_TEST_ASSERT(expr->operator == NSAPI_EXPRESSION_CALL);

        size_t numArgs = 0;
        NSAPIExpression args[8];
        int err = test_get_args(args, 8, &numArgs, expr->left);
        CX_TEST_ASSERT(err == 0);
        CX_TEST_ASSERT(numArgs == 2);
        CX_TEST_ASSERT(args[0].value.i == 1);
        CX_TEST_ASSERT(args[1].operator == NSAPI_EXPRESSION_ADD);
        CX_TEST_ASSERT(args[1].left && args[1].right);
        CX_TEST_ASSERT(args[1].left->value.i == 2 && args[1].right->value.i == 3);
    
    }
    
    pool_destroy(pool);
}

CX_TEST(test_expr_parse_expr_func_expr2) {
    pool_handle_t *pool = pool_create();
    
    CxList *tokens = cxLinkedListCreate(pool_allocator(pool), NULL, sizeof(cxstring));
    cxstring token = cx_str("test");
    cxListAdd(tokens, &token);
    token = cx_str("(");
    cxListAdd(tokens, &token);
    token = cx_str("2");
    cxListAdd(tokens, &token);
    token = cx_str("+");
    cxListAdd(tokens, &token);
    token = cx_str("3");
    cxListAdd(tokens, &token);
    token = cx_str(",");
    cxListAdd(tokens, &token);
    token = cx_str("sub");
    cxListAdd(tokens, &token);
    token = cx_str("(");
    cxListAdd(tokens, &token);
    token = cx_str("4");
    cxListAdd(tokens, &token);
    token = cx_str(")");
    cxListAdd(tokens, &token);
    token = cx_str(",");
    cxListAdd(tokens, &token);
    token = cx_str("6");
    cxListAdd(tokens, &token);
    token = cx_str(")");
    cxListAdd(tokens, &token);
    
    CX_TEST_DO {
    
        size_t pos = 0;
        NSAPIExpression *expr = expr_parse_logical_expr(pool, tokens, &pos);

        CX_TEST_ASSERT(pos == cxListSize(tokens));
        CX_TEST_ASSERT(expr);
        CX_TEST_ASSERT(expr->type == NSAPI_EXPRESSION_IDENTIFIER);
        CX_TEST_ASSERT(expr->operator == NSAPI_EXPRESSION_CALL);

        size_t numArgs = 0;
        NSAPIExpression args[8];
        int err = test_get_args(args, 8, &numArgs, expr->left);
        CX_TEST_ASSERT(err == 0);
        CX_TEST_ASSERT(numArgs == 3);
        CX_TEST_ASSERT(args[0].operator == NSAPI_EXPRESSION_ADD);
        CX_TEST_ASSERT(args[0].left && args[0].right);
        CX_TEST_ASSERT(args[1].operator == NSAPI_EXPRESSION_CALL);
        CX_TEST_ASSERT(args[1].left);
        CX_TEST_ASSERT(args[2].type == NSAPI_EXPRESSION_INT);
        CX_TEST_ASSERT(args[2].value.i == 6);
    
    }
    
    pool_destroy(pool);
}