#include "test-lib.h"

#include "str.h"

#include "env-util.h"

#include "hostpid.h"

#include "var-expand.h"

#include "var-expand-private.h"

struct var_expand_test {

const char *in;

const char *out;

int ret;

};

struct var_get_key_range_test {

const char *in;

unsigned int idx, size;

};

static void test_var_expand_ranges(void)

{

static const struct var_expand_test tests[] = {

{ "%v", "value1234", 1 },

{ "%3v", "val", 1 },

{ "%3.2v", "ue", 1 },

{ "%3.-2v", "ue12", 1 },

{ "%-3.2v", "23", 1 },

{ "%0.-1v", "value123", 1 },

{ "%-4.-1v", "123", 1 }

};

static const struct var_expand_table table[] = {

{ 'v', "value1234", NULL },

{ '\0', NULL, NULL }

};

string_t *str = t_str_new(128);

const char *error;

unsigned int i;

test_begin("var_expand - ranges");

for (i = 0; i < N_ELEMENTS(tests); i++) {

str_truncate(str, 0);

test_assert(var_expand(str, tests[i].in, table, &error) == tests[i].ret);

test_assert(strcmp(tests[i].out, str_c(str)) == 0);

}

test_end();

}

static void test_var_expand_builtin(void)

{

static struct var_expand_test tests[] = {

{ "%{hostname}", NULL, 1 },

{ "%{pid}", NULL, 1 },

{ "a%{env:FOO}b", "abaRb", 1 },

{ "%50Hv", "1f", 1 },

{ "%50Hw", "2e", 1 },

{ "%50Nv", "25", 1 },

{ "%50Nw", "e", 1 },

{ "%{nonexistent}", "UNSUPPORTED_VARIABLE_nonexistent", 0 },

{ "%{nonexistent:default}", "UNSUPPORTED_VARIABLE_nonexistent", 0 },

};

static const struct var_expand_table table[] = {

{ 'v', "value", NULL },

{ 'w', "value2", NULL },

{ '\0', NULL, NULL }

};

string_t *str = t_str_new(128);

const char *error;

unsigned int i;

tests[0].out = my_hostname;

tests[1].out = my_pid;

env_put("FOO=baR");

test_begin("var_expand - builtin");

for (i = 0; i < N_ELEMENTS(tests); i++) {

str_truncate(str, 0);

test_assert_idx(var_expand(str, tests[i].in, table, &error) == tests[i].ret, i);

test_assert_idx(strcmp(tests[i].out, str_c(str)) == 0, i);

}

test_end();

}

static void test_var_get_key_range(void)

{

static const struct var_get_key_range_test tests[] = {

{ "", 0, 0 },

{ "{", 1, 0 },

{ "k", 0, 1 },

{ "{key}", 1, 3 },

{ "5.5Rk", 4, 1 },

{ "5.5R{key}", 5, 3 },

{ "{key", 1, 3 },

{ "{if;%{if;%{value};eq;value;t;f};eq;t;t;f}", 1, 39 },

};

unsigned int i, idx, size;

test_begin("var_get_key_range");

for (i = 0; i < N_ELEMENTS(tests); i++) {

var_get_key_range(tests[i].in, &idx, &size);

test_assert_idx(tests[i].idx == idx, i);

test_assert_idx(tests[i].size == size, i);

if (tests[i].size == 1)

test_assert_idx(tests[i].in[idx] == var_get_key(tests[i].in), i);

}

test_end();

}

static int test_var_expand_func1(const char *data, void *context,

const char **value_r,

const char **error_r ATTR_UNUSED)

{

test_assert(*(int *)context == 0xabcdef);

*value_r = t_strdup_printf("<%s>", data);

return 1;

}

static int test_var_expand_func2(const char *data ATTR_UNUSED,

void *context ATTR_UNUSED,

const char **value_r,

const char **error_r ATTR_UNUSED)

{

*value_r = "";

return 1;

}

static int test_var_expand_func3(const char *data ATTR_UNUSED,

void *context ATTR_UNUSED,

const char **value_r,

const char **error_r ATTR_UNUSED)

{

*value_r = NULL;

return 1;

}

static int test_var_expand_func4(const char *data,

void *context ATTR_UNUSED,

const char **value_r ATTR_UNUSED,

const char **error_r)

{

*error_r = t_strdup_printf("Unknown data %s", data == NULL ? "" : data);

return 0;

}

static int test_var_expand_func5(const char *data ATTR_UNUSED,

void *context ATTR_UNUSED,

const char **value_r ATTR_UNUSED,

const char **error_r)

{

*error_r = "Internal error";

return -1;

}

static void test_var_expand_with_funcs(void)

{

static const struct var_expand_test tests[] = {

{ "%{func1}", "<>", 1 },

{ "%{func1:foo}", "<foo>", 1 },

{ "%{func2}", "", 1 },

{ "%{func3}", "", 1 },

{ "%{func4}", "", 0 },

{ "%{func5}", "", -1 },

{ "%{func4}%{func5}", "", -1 },

{ "%{func5}%{func4}%{func3}", "", -1 },

};

static const struct var_expand_table table[] = {

{ '\0', NULL, NULL }

};

static const struct var_expand_func_table func_table[] = {

{ "func1", test_var_expand_func1 },

{ "func2", test_var_expand_func2 },

{ "func3", test_var_expand_func3 },

{ "func4", test_var_expand_func4 },

{ "func5", test_var_expand_func5 },

{ NULL, NULL }

};

string_t *str = t_str_new(128);

const char *error;

unsigned int i;

int ctx = 0xabcdef;

test_begin("var_expand_with_funcs");

for (i = 0; i < N_ELEMENTS(tests); i++) {

str_truncate(str, 0);

test_assert_idx(var_expand_with_funcs(str, tests[i].in, table, func_table, &ctx, &error) == tests[i].ret, i);

test_assert_idx(strcmp(tests[i].out, str_c(str)) == 0, i);

}

test_end();

}

static void test_var_get_key(void)

{

static const struct {

const char *str;

char key;

} tests[] = {

{ "x", 'x' },

{ "2.5Mx", 'x' },

{ "200MDx", 'x' },

{ "200MD{foo}", '{' },

{ "{foo}", '{' },

{ "", '\0' },

};

test_begin("var_get_key");

for (unsigned int i = 0; i < N_ELEMENTS(tests); i++)

test_assert_idx(var_get_key(tests[i].str) == tests[i].key, i);

test_end();

}

static void test_var_has_key(void)

{

static const struct {

const char *str;

char key;

const char *long_key;

bool result;

} tests[] = {

{ "%x%y", 'x', NULL, TRUE },

{ "%x%y", 'y', NULL, TRUE },

{ "%x%y", 'z', NULL, FALSE },

{ "%{foo}", 'f', NULL, FALSE },

{ "%{foo}", 'o', NULL, FALSE },

{ "%{foo}", '\0', "foo", TRUE },

{ "%{foo}", 'o', "foo", TRUE },

{ "%2.5Mx%y", 'x', NULL, TRUE },

{ "%2.5M{foo}", '\0', "foo", TRUE },

};

test_begin("var_has_key");

for (unsigned int i = 0; i < N_ELEMENTS(tests); i++)

test_assert_idx(var_has_key(tests[i].str, tests[i].key, tests[i].long_key) == tests[i].result, i);

test_end();

}

static int test_var_expand_hashing_func1(const char *data,

void *context ATTR_UNUSED,

const char **value_r,

const char **error_r ATTR_UNUSED)

{

*value_r = data;

return 1;

}

static int test_var_expand_bad_func(struct var_expand_context *ctx ATTR_UNUSED,

const char *key,

const char *field ATTR_UNUSED,

const char **result_r ATTR_UNUSED,

const char **error_r)

{

if (strcmp(key, "notfound") == 0) return 0;

*error_r = "Bad parameters";

return -1;

}

static const struct var_expand_extension_func_table test_extension_funcs[] = {

{ "notfound", test_var_expand_bad_func },

{ "badparam", test_var_expand_bad_func },

{ NULL, NULL }

};

static void test_var_expand_extensions(void)

{

const char *error;

test_begin("var_expand_extensions");

var_expand_register_func_array(test_extension_funcs);

static const struct var_expand_table table[] = {

{'\0', "example", "value" },

{'\0', "other-example", "other-value" },

{'\0', NULL, NULL}

};

static const struct {

const char *in;

const char *out;

} tests[] = {

{ "md5: %M{value} %{md5:value}", "md5: 1a79a4d60de6718e8e5b326e338ae533 1a79a4d60de6718e8e5b326e338ae533" },

{ "sha1: %{sha1:value}", "sha1: c3499c2729730a7f807efb8676a92dcb6f8a3f8f" },

{ "sha1: %{sha1:func1:example}", "sha1: c3499c2729730a7f807efb8676a92dcb6f8a3f8f" },

{ "truncate: %{sha1;truncate=12:value}", "truncate: 0c34" },

{ "truncate: %{sha1;truncate=16:value}", "truncate: c349" },

{ "rounds,salt: %{sha1;rounds=1000,salt=seawater:value}", "rounds,salt: b515c85884f6b82dc7588279f3643a73e55d2289" },

{ "rounds,salt,expand: %{sha1;rounds=1000,salt=%{other-value}:value} %{other-value}", "rounds,salt,expand: 49a598ee110af615e175f2e4511cc5d7ccff96ab other-example" },

{ "format: %4.8{sha1:value}", "format: 9c272973" },

{ "base64: %{sha1;format=base64:value}", "base64: w0mcJylzCn+AfvuGdqkty2+KP48=" },

};

static const struct var_expand_func_table func_table[] = {

{ "func1", test_var_expand_hashing_func1 },

{ NULL, NULL }

};

string_t *str = t_str_new(128);

for (unsigned int i = 0; i < N_ELEMENTS(tests); i++) {

str_truncate(str, 0);

error = NULL;

test_assert(var_expand_with_funcs(str, tests[i].in, table,

func_table, NULL, &error) == 1);

test_assert_idx(strcmp(str_c(str), tests[i].out) == 0, i);

if (error != NULL) {

i_debug("Error: %s", error);

}

}

test_assert(var_expand_with_funcs(str, "notfound: %{notfound:field}",

table, func_table, NULL, &error) == 0);

error = NULL;

test_assert(var_expand_with_funcs(str, "notfound: %{badparam:field}",

table, func_table, NULL, &error) == -1);

test_assert(error != NULL);

var_expand_unregister_func_array(test_extension_funcs);

test_end();

}

static void test_var_expand_if(void)

{

static const struct var_expand_table table[] = {

{ 'a', "alpha", "alpha" },

{ 'b', "beta", "beta" },

{ 'o', "1", "one" },

{ 't', "2", "two" },

{ '\0', ";:", "evil1" },

{ '\0', ";test;", "evil2" },

{ '\0', NULL, NULL }

};

const char *error;

string_t *dest = t_str_new(64);

test_begin("var_expand_if");

static const struct var_expand_test tests[] = {

/* basic numeric operand test */

{ "%{if;1;==;1;yes;no}", "yes", 1 },

{ "%{if;1;==;2;yes;no}", "no", 1 },

{ "%{if;1;<;1;yes;no}", "no", 1 },

{ "%{if;1;<;2;yes;no}", "yes", 1 },

{ "%{if;1;<=;1;yes;no}", "yes", 1 },

{ "%{if;1;<=;2;yes;no}", "yes", 1 },

{ "%{if;1;>;1;yes;no}", "no", 1 },

{ "%{if;1;>;2;yes;no}", "no", 1 },

{ "%{if;1;>=;1;yes;no}", "yes", 1 },

{ "%{if;1;>=;2;yes;no}", "no", 1 },

{ "%{if;1;!=;1;yes;no}", "no", 1 },

{ "%{if;1;!=;2;yes;no}", "yes", 1 },

/* basic string operand test */

{ "%{if;a;eq;a;yes;no}", "yes", 1 },

{ "%{if;a;eq;b;yes;no}", "no", 1 },

{ "%{if;a;lt;a;yes;no}", "no", 1 },

{ "%{if;a;lt;b;yes;no}", "yes", 1 },

{ "%{if;a;le;a;yes;no}", "yes", 1 },

{ "%{if;a;le;b;yes;no}", "yes", 1 },

{ "%{if;a;gt;a;yes;no}", "no", 1 },

{ "%{if;a;gt;b;yes;no}", "no", 1 },

{ "%{if;a;ge;a;yes;no}", "yes", 1 },

{ "%{if;a;ge;b;yes;no}", "no", 1 },

{ "%{if;a;ne;a;yes;no}", "no", 1 },

{ "%{if;a;ne;b;yes;no}", "yes", 1 },

{ "%{if;a;*;a;yes;no}", "yes", 1 },

{ "%{if;a;*;b;yes;no}", "no", 1 },

{ "%{if;a;*;*a*;yes;no}", "yes", 1 },

{ "%{if;a;*;*b*;yes;no}", "no", 1 },

{ "%{if;a;*;*;yes;no}", "yes", 1 },

{ "%{if;a;!*;a;yes;no}", "no", 1 },

{ "%{if;a;!*;b;yes;no}", "yes", 1 },

{ "%{if;a;!*;*a*;yes;no}", "no", 1 },

{ "%{if;a;!*;*b*;yes;no}", "yes", 1 },

{ "%{if;a;!*;*;yes;no}", "no", 1 },

{ "%{if;a;~;a;yes;no}", "yes", 1 },

{ "%{if;a;~;b;yes;no}", "no", 1 },

{ "%{if;a;~;.*a.*;yes;no}", "yes", 1 },

{ "%{if;a;~;.*b.*;yes;no}", "no", 1 },

{ "%{if;a;~;.*;yes;no}", "yes", 1 },

{ "%{if;a;!~;a;yes;no}", "no", 1 },

{ "%{if;a;!~;b;yes;no}", "yes", 1 },

{ "%{if;a;!~;.*a.*;yes;no}", "no", 1 },

{ "%{if;a;!~;.*b.*;yes;no}", "yes", 1 },

{ "%{if;a;!~;.*;yes;no}", "no", 1 },

{ "%{if;this is test;~;^test;yes;no}", "no", 1 },

{ "%{if;this is test;~;.*test;yes;no}", "yes", 1 },

/* variable expansion */

{ "%{if;%a;eq;%a;yes;no}", "yes", 1 },

{ "%{if;%a;eq;%b;yes;no}", "no", 1 },

{ "%{if;%{alpha};eq;%{alpha};yes;no}", "yes", 1 },

{ "%{if;%{alpha};eq;%{beta};yes;no}", "no", 1 },

{ "%{if;%o;eq;%o;yes;no}", "yes", 1 },

{ "%{if;%o;eq;%t;yes;no}", "no", 1 },

{ "%{if;%{one};eq;%{one};yes;no}", "yes", 1 },

{ "%{if;%{one};eq;%{two};yes;no}", "no", 1 },

{ "%{if;%{one};eq;%{one};%{one};%{two}}", "1", 1 },

{ "%{if;%{one};gt;%{two};%{one};%{two}}", "2", 1 },

{ "%{if;%{evil1};eq;\\;\\:;%{evil2};no}", ";test;", 1 },

/* inner if */

{ "%{if;%{if;%{one};eq;1;1;0};eq;%{if;%{two};eq;2;2;3};yes;no}", "no", 1 },

/* no false */

{ "%{if;1;==;1;yes}", "yes", 1 },

{ "%{if;1;==;2;yes}", "", 1 },

/* invalid input */

{ "%{if;}", "", -1 },

{ "%{if;1;}", "", -1 },

{ "%{if;1;==;}", "", -1 },

{ "%{if;1;==;2;}", "", -1 },

{ "%{if;1;fu;2;yes;no}", "", -1 },

/* missing variables */

{ "%{if;%{missing1};==;%{missing2};yes;no}", "", 0 },

};

for(size_t i = 0; i < N_ELEMENTS(tests); i++) {

int ret;

error = NULL;

str_truncate(dest, 0);

ret = var_expand(dest, tests[i].in, table, &error);

test_assert_idx(tests[i].ret == ret, i);

test_assert_idx(strcmp(tests[i].out, str_c(dest)) == 0, i);

}

test_end();

}

static void test_var_expand_merge_tables(void)

{

const struct var_expand_table one[] = {

{ 'a', "1", "alpha" },

{ '\0', "2", "beta" },

{ '\0', NULL, NULL }

},

two[] = {

{ 't', "3", "theta" },

{ '\0', "4", "phi" },

{ '\0', NULL, NULL }

},

*merged = NULL;

test_begin("var_expand_merge_tables");

merged = t_var_expand_merge_tables(one, two);

test_assert(var_expand_table_size(merged) == 4);

for(unsigned int i = 0; i < var_expand_table_size(merged); i++) {

if (i < 2) {

test_assert_idx(merged[i].key == one[i].key, i);

test_assert_idx(merged[i].value == one[i].value || strcmp(merged[i].value, one[i].value) == 0, i);

test_assert_idx(merged[i].long_key == one[i].long_key || strcmp(merged[i].long_key, one[i].long_key) == 0, i);

} else if (i < 4) {

test_assert_idx(merged[i].key == two[i-2].key, i);

test_assert_idx(merged[i].value == two[i-2].value || strcmp(merged[i].value, two[i-2].value) == 0, i);

test_assert_idx(merged[i].long_key == two[i-2].long_key || strcmp(merged[i].long_key, two[i-2].long_key) == 0, i);

} else {

break;

}

}

test_end();

}

void test_var_expand(void)

{

test_var_expand_ranges();

test_var_expand_builtin();

test_var_get_key_range();

test_var_expand_with_funcs();

test_var_get_key();

test_var_has_key();

test_var_expand_extensions();

test_var_expand_if();

test_var_expand_merge_tables();

}