libextl/test/extltest.c

   1 #include "../luaextl.c"
   2 #include "../readconfig.c"
   3
   4 static const char tostringstr[]=
   5     "local arg = {...}\n"
   6     "print('first arg is a ' .. type(arg[1]))\n"
   7     "local basis = arg[1]()\n"
   8     "local result\n"
   9     "print('first arg returned a ' .. type(basis))\n"
  10     "if type(basis)=='string' then\n"
  11     "    result = string.format('%q', basis)\n"
  12     "else\n"
  13     "    result = tostring(basis)\n"
  14     "end\n"
  15     "print('result is a ' .. type(result))\n"
  16     "print('result is ' .. result)\n"
  17     "return result\n";
  18
  19 int test_tostring()
  20 {
  21     ExtlFn tostringfn;
  22     ExtlFn fn;
  23     ErrorLog el;
  24     char *retstr=NULL;
  25
  26     errorlog_begin(&el);
  27
  28     if(!extl_loadstring(tostringstr, &tostringfn))
  29         return 1;
  30
  31     if(!extl_loadstring("print('testing\\n'); return 'test'", &fn))
  32         return 2;
  33 fprintf(stderr, "Calling extl_call...\n");
  34     if(!extl_call(tostringfn, "f", "s", fn, &retstr))
  35         return 3;
  36
  37     if (retstr == NULL)
  38         return 4;
  39
  40     if(strcmp("\"test\"", retstr) != 0){
  41         fprintf(stderr, "Result was '%s' instead of 'test'", retstr);
  42         return 5;
  43     }
  44
  45     return 0;
  46 }
  47
  48
  49 int main()
  50 {
  51     int result = 0;
  52
  53     extl_init();
  54
  55     result += test_tostring();
  56
  57     fprintf(stderr, "Result: %d\n", result);
  58
  59     return result;
  60 }