stress.c

   1 /*
   2
   3     MPDM - Minimum Profit Data Manager
   4     Copyright (C) 2003/2010 Angel Ortega <angel@triptico.com>
   5
   6     stress.c - Stress tests for MPDM.
   7
   8     This program is free software; you can redistribute it and/or
   9     modify it under the terms of the GNU General Public License
  10     as published by the Free Software Foundation; either version 2
  11     of the License, or (at your option) any later version.
  12
  13     This program is distributed in the hope that it will be useful,
  14     but WITHOUT ANY WARRANTY; without even the implied warranty of
  15     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16     GNU General Public License for more details.
  17
  18     You should have received a copy of the GNU General Public License
  19     along with this program; if not, write to the Free Software
  20     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  21
  22     http://www.triptico.com
  23
  24 */
  25
  26 #include <stdio.h>
  27 #include <string.h>
  28 #include <wchar.h>
  29
  30 #include <time.h>
  31
  32 #include "mpdm.h"
  33
  34 /* total number of tests and oks */
  35 int tests = 0;
  36 int oks = 0;
  37
  38 /* failed tests messages */
  39 char *failed_msgs[5000];
  40 int i_failed_msgs = 0;
  41
  42 int do_benchmarks = 0;
  43 int do_multibyte_sregex_tests = 0;
  44
  45
  46 /** code **/
  47
  48 void _do_test(char *str, int ok, int src_line)
  49 {
  50         char tmp[1024];
  51
  52         sprintf(tmp, "%s: %s (line %d)\n", str, ok ? "OK!" : "*** Failed ***", src_line);
  53         printf(tmp);
  54
  55         tests++;
  56
  57         if (ok)
  58                 oks++;
  59         else
  60                 failed_msgs[i_failed_msgs++] = strdup(tmp);
  61 }
  62
  63 #define do_test(str, ok) _do_test(str, ok, __LINE__)
  64
  65 #define C { int CC = mpdm->count
  66 #define T(i) do_test("v counter", CC + i == mpdm->count); }
  67
  68 /** tests **/
  69
  70 void test_counter(void)
  71 {
  72     mpdm_t v, w;
  73
  74     C; v = MPDM_S(L"hi"); T(1);
  75
  76     C; w = MPDM_A(0); T(1);
  77
  78     C; mpdm_push(w, v); T(0);
  79
  80     C; mpdm_adel(w, 0); T(0); /* should fail in 2.x */
  81
  82     C; mpdm_queue(w, v, 10); T(0);
  83
  84     C; v = MPDM_S(L"this is a phrase"); T(1);
  85     C; w = mpdm_split_s(L" ", v); T(5);
  86 }
  87
  88
  89 void test_basic(void)
  90 {
  91         int i;
  92         double r;
  93         mpdm_t v;
  94         mpdm_t w;
  95     mpdm_t t;
  96
  97         v = mpdm_ref(MPDM_S(L"65536"));
  98         mpdm_dump(v);
  99         i = mpdm_ival(v);
 100
 101         do_test("i == 65536", (i == 65536));
 102         do_test("v has MPDM_IVAL", (v->flags & MPDM_IVAL));
 103
 104         r = mpdm_rval(v);
 105         do_test("r == 65536", (r == 65536.0));
 106         do_test("v has MPDM_RVAL", (v->flags & MPDM_RVAL));
 107
 108         mpdm_unref(v);
 109
 110         printf("mpdm_string: %ls\n", mpdm_string(MPDM_H(0)));
 111         printf("mpdm_string: %ls\n", mpdm_string(MPDM_H(0)));
 112
 113         /* partial copies of strings */
 114         v = MPDM_LS(L"this is not America");
 115         v = MPDM_NS((wchar_t *) v->data + 4, 4);
 116
 117         do_test("Partial string values", mpdm_cmp(v, MPDM_LS(L" is ")) == 0);
 118
 119         v = mpdm_ref(MPDM_S(L"MUAHAHAHA!"));
 120     w = mpdm_ref(mpdm_clone(v));
 121         do_test("Testing mpdm_clone semantics 1", w == v);
 122     mpdm_unref(v);
 123     mpdm_unref(w);
 124
 125         v = mpdm_ref(MPDM_A(2));
 126         mpdm_aset(v, MPDM_S(L"evil"), 0);
 127         mpdm_aset(v, MPDM_S(L"dead"), 1);
 128         w = mpdm_ref(mpdm_clone(v));
 129
 130         do_test("Testing mpdm_clone semantics 2.1", w != v);
 131
 132         t = mpdm_aget(v, 0);
 133         do_test("Testing mpdm_clone semantics 2.2", t->ref > 1);
 134         do_test("Testing mpdm_clone semantics 2.3", mpdm_aget(w, 0) == t);
 135
 136     mpdm_unref(w);
 137     mpdm_unref(v);
 138
 139         /* mbs / wcs tests */
 140         v = MPDM_MBS("This is (was) a multibyte string");
 141         mpdm_dump(v);
 142
 143         /* greek omega is 03a9 */
 144         v = MPDM_MBS("?Espa?a! (non-ASCII string, as ISO-8859-1 char *)");
 145         mpdm_dump(v);
 146         printf("(Previous value will be NULL if locale doesn't match stress.c encoding)\n");
 147
 148         v = MPDM_LS(L"A capital greek omega between brackets [\x03a9]");
 149         mpdm_dump(v);
 150         printf("(Previous value will only show on an Unicode terminal)\n");
 151
 152         v = mpdm_ref(MPDM_R(3.1416));
 153         mpdm_dump(v);
 154         do_test("rval 1", mpdm_rval(v) == 3.1416);
 155         do_test("ival 1", mpdm_ival(v) == 3);
 156         mpdm_unref(v);
 157
 158         v = MPDM_R(777777.0 / 2.0);
 159         mpdm_dump(v);
 160         do_test("mpdm_rnew 1", mpdm_cmp(v, MPDM_LS(L"388888.5")) == 0);
 161
 162         v = MPDM_R(388888.500);
 163         mpdm_dump(v);
 164         do_test("mpdm_rnew 2", mpdm_cmp(v, MPDM_LS(L"388888.5")) == 0);
 165
 166         v = MPDM_R(388888.412);
 167         mpdm_dump(v);
 168         do_test("mpdm_rnew 3", mpdm_cmp(v, MPDM_LS(L"388888.412")) == 0);
 169
 170         v = MPDM_R(388888.6543);
 171         mpdm_dump(v);
 172         do_test("mpdm_rnew 4", mpdm_cmp(v, MPDM_LS(L"388888.6543")) == 0);
 173
 174         v = MPDM_R(388888.0);
 175         mpdm_dump(v);
 176         do_test("mpdm_rnew 5", mpdm_cmp(v, MPDM_LS(L"388888")) == 0);
 177
 178         v = MPDM_R(0.050000);
 179         mpdm_dump(v);
 180         do_test("mpdm_rnew 6", mpdm_cmp(v, MPDM_LS(L"0.05")) == 0);
 181
 182         v = MPDM_R(0.000);
 183         mpdm_dump(v);
 184         do_test("mpdm_rnew 7", mpdm_cmp(v, MPDM_LS(L"0")) == 0);
 185
 186         v = MPDM_LS(L"0177");
 187         do_test("mpdm_ival() for octal numbers", mpdm_ival(v) == 0x7f);
 188
 189         v = MPDM_LS(L"0xFF");
 190         do_test("mpdm_ival() for hexadecimal numbers", mpdm_ival(v) == 255);
 191
 192         v = MPDM_LS(L"001");
 193         do_test("mpdm_rval() for octal numbers", mpdm_rval(v) == 1.0);
 194
 195         v = MPDM_LS(L"0x7f");
 196         do_test("mpdm_rval() for hexadecimal numbers", mpdm_ival(v) == 127.0);
 197
 198         do_test("Two NULLs are equal", mpdm_cmp(NULL, NULL) == 0);
 199
 200         v = MPDM_LS(L"hahaha");
 201     mpdm_ref(v);
 202         do_test("mpdm_cmp_s 1", mpdm_cmp_s(v, L"hahaha") == 0);
 203         do_test("mpdm_cmp_s 2", mpdm_cmp_s(v, L"aahaha") > 0);
 204         do_test("mpdm_cmp_s 3", mpdm_cmp_s(v, L"zahaha") < 0);
 205     mpdm_unref(v);
 206 }
 207
 208 mpdm_t sort_cb(mpdm_t args)
 209 {
 210         int d;
 211
 212         /* sorts reversely */
 213         d = mpdm_cmp(mpdm_aget(args, 1), mpdm_aget(args, 0));
 214         return (MPDM_I(d));
 215 }
 216
 217
 218 void test_array(void)
 219 {
 220         int n;
 221         mpdm_t a;
 222         mpdm_t v;
 223
 224         a = MPDM_A(0);
 225     mpdm_ref(a);
 226
 227         do_test("a->size == 0", (a->size == 0));
 228
 229         mpdm_push(a, MPDM_LS(L"sunday"));
 230         mpdm_push(a, MPDM_LS(L"monday"));
 231         mpdm_push(a, MPDM_LS(L"tuesday"));
 232         mpdm_push(a, MPDM_LS(L"wednesday"));
 233         mpdm_push(a, MPDM_LS(L"thursday"));
 234         mpdm_push(a, MPDM_LS(L"friday"));
 235         mpdm_push(a, MPDM_LS(L"saturday"));
 236         mpdm_dump(a);
 237         do_test("a->size == 7", (a->size == 7));
 238
 239     v = mpdm_aget(a, 3);
 240     mpdm_ref(v);
 241         mpdm_aset(a, NULL, 3);
 242         mpdm_dump(a);
 243
 244         mpdm_sort(a, 1);
 245         do_test("NULLs are sorted on top", (mpdm_aget(a, 0) == NULL));
 246
 247         mpdm_aset(a, v, 0);
 248     mpdm_unref(v);
 249
 250         v = mpdm_aget(a, 3);
 251         do_test("v is referenced again", (v != NULL && v->ref > 0));
 252
 253         mpdm_sort(a, 1);
 254         do_test("mpdm_asort() works (1)", mpdm_cmp(mpdm_aget(a, 0), MPDM_LS(L"friday")) == 0);
 255         do_test("mpdm_asort() works (2)",
 256                 mpdm_cmp(mpdm_aget(a, 6), MPDM_LS(L"wednesday")) == 0);
 257
 258         /* asort_cb sorts reversely */
 259         mpdm_sort_cb(a, 1, MPDM_X(sort_cb));
 260
 261         do_test("mpdm_asort_cb() works (1)",
 262                 mpdm_cmp(mpdm_aget(a, 6), MPDM_LS(L"friday")) == 0);
 263         do_test("mpdm_asort_cb() works (2)",
 264                 mpdm_cmp(mpdm_aget(a, 0), MPDM_LS(L"wednesday")) == 0);
 265
 266         n = v->ref;
 267         v = mpdm_aget(a, 3);
 268         mpdm_collapse(a, 3, 1);
 269         do_test("acollapse unrefs values", (v->ref < n));
 270
 271     mpdm_unref(a);
 272
 273         /* test queues */
 274         a = MPDM_A(0);
 275     mpdm_ref(a);
 276
 277         /* add several values */
 278         for (n = 0; n < 10; n++)
 279                 v = mpdm_queue(a, MPDM_I(n), 10);
 280
 281         do_test("queue should still output NULL", (v == NULL));
 282
 283         v = mpdm_queue(a, MPDM_I(11), 10);
 284         do_test("queue should no longer output NULL", (v != NULL));
 285
 286         v = mpdm_queue(a, MPDM_I(12), 10);
 287         do_test("queue should return 1", mpdm_ival(v) == 1);
 288         v = mpdm_queue(a, MPDM_I(13), 10);
 289         do_test("queue should return 2", mpdm_ival(v) == 2);
 290         do_test("queue size should be 10", a->size == 10);
 291
 292         mpdm_dump(a);
 293         v = mpdm_queue(a, MPDM_I(14), 5);
 294         mpdm_dump(a);
 295
 296         do_test("queue size should be 5", a->size == 5);
 297         do_test("last taken value should be 8", mpdm_ival(v) == 8);
 298     mpdm_unref(a);
 299
 300         a = MPDM_A(4);
 301     mpdm_ref(a);
 302         mpdm_aset(a, MPDM_I(666), 6000);
 303
 304         do_test("array should have been automatically expanded", mpdm_size(a) == 6001);
 305
 306         v = mpdm_aget(a, -1);
 307         do_test("negative offsets in arrays 1", mpdm_ival(v) == 666);
 308
 309         mpdm_aset(a, MPDM_I(777), -2);
 310         v = mpdm_aget(a, 5999);
 311         do_test("negative offsets in arrays 2", mpdm_ival(v) == 777);
 312
 313         mpdm_push(a, MPDM_I(888));
 314         v = mpdm_aget(a, -1);
 315         do_test("negative offsets in arrays 3", mpdm_ival(v) == 888);
 316
 317         v = MPDM_A(0);
 318     mpdm_ref(v);
 319         mpdm_push(v, MPDM_I(100));
 320         mpdm_pop(v);
 321     mpdm_unref(v);
 322
 323     mpdm_unref(a);
 324
 325         /* array comparisons with mpdm_cmp() */
 326         a = MPDM_A(2);
 327     mpdm_ref(a);
 328         mpdm_aset(a, MPDM_I(10), 0);
 329         mpdm_aset(a, MPDM_I(60), 1);
 330
 331         v = mpdm_ref(mpdm_clone(a));
 332         do_test("mpdm_cmp: array clones are equal", mpdm_cmp(a, v) == 0);
 333
 334         mpdm_adel(v, -1);
 335         do_test("mpdm_cmp: shorter arrays are lesser", mpdm_cmp(a, v) > 0);
 336
 337         mpdm_push(v, MPDM_I(80));
 338         do_test("mpdm_cmp: 2# element is bigger, so array is bigger", mpdm_cmp(a, v) < 0);
 339
 340     mpdm_unref(v);
 341     mpdm_unref(a);
 342 }
 343
 344
 345 void test_hash(void)
 346 {
 347         mpdm_t h;
 348         mpdm_t v;
 349         int i, n;
 350
 351         h = MPDM_H(0);
 352     mpdm_ref(h);
 353
 354         do_test("hsize 1", mpdm_hsize(h) == 0);
 355
 356         mpdm_hset(h, MPDM_S(L"mp"), MPDM_I(6));
 357         v = mpdm_hget(h, MPDM_S(L"mp"));
 358
 359         do_test("hsize 2", mpdm_hsize(h) == 1);
 360
 361         do_test("hash: v != NULL", (v != NULL));
 362         i = mpdm_ival(v);
 363         do_test("hash: v == 6", (i == 6));
 364
 365         mpdm_hset(h, MPDM_S(L"mp2"), MPDM_I(66));
 366         v = mpdm_hget(h, MPDM_S(L"mp2"));
 367
 368         do_test("hsize 3", mpdm_hsize(h) == 2);
 369
 370         do_test("hash: v != NULL", (v != NULL));
 371         i = mpdm_ival(v);
 372         do_test("hash: v == 66", (i == 66));
 373
 374         /* fills 100 values */
 375         for (n = 0; n < 50; n++)
 376                 mpdm_hset(h, MPDM_I(n), MPDM_I(n * 10));
 377         for (n = 100; n >= 50; n--)
 378                 mpdm_hset(h, MPDM_I(n), MPDM_I(n * 10));
 379
 380         do_test("hsize 4", mpdm_hsize(h) == 103);
 381
 382         /* tests 100 values */
 383         for (n = 0; n < 100; n++) {
 384                 v = mpdm_hget(h, MPDM_I(n));
 385
 386                 if (v != NULL) {
 387                         i = mpdm_ival(v);
 388                         if (!(i == n * 10))
 389                                 do_test("hash: ival", (i == n * 10));
 390                 }
 391                 else
 392                         do_test("hash: hget", (v != NULL));
 393         }
 394
 395         printf("h's size: %d\n", mpdm_hsize(h));
 396
 397         mpdm_hdel(h, MPDM_LS(L"mp"));
 398         do_test("hsize 5", mpdm_hsize(h) == 102);
 399
 400     mpdm_unref(h);
 401
 402 /*
 403         mpdm_dump(h);
 404
 405         v=mpdm_hkeys(h);
 406         mpdm_dump(v);
 407 */
 408         /* use of non-strings as hashes */
 409         h = MPDM_H(0);
 410     mpdm_ref(h);
 411
 412         v = MPDM_A(0);
 413         mpdm_hset(h, v, MPDM_I(1234));
 414         v = MPDM_H(0);
 415         mpdm_hset(h, v, MPDM_I(12345));
 416         v = MPDM_H(0);
 417         mpdm_hset(h, v, MPDM_I(9876));
 418         v = MPDM_A(0);
 419         mpdm_hset(h, v, MPDM_I(6543));
 420         i = mpdm_ival(mpdm_hget(h, v));
 421
 422         mpdm_dump(h);
 423         do_test("hash: using non-strings as hash keys", (i == 6543));
 424
 425         mpdm_hset(h, MPDM_LS(L"ok"), MPDM_I(666));
 426
 427         do_test("exists 1", mpdm_exists(h, MPDM_LS(L"ok")));
 428         do_test("exists 2", !mpdm_exists(h, MPDM_LS(L"notok")));
 429
 430         mpdm_dump(h);
 431         v = mpdm_hget_s(h, L"ok");
 432         printf("v %s\n", v == NULL ? "is NULL" : "is NOT NULL");
 433         do_test("hget_s 1", mpdm_ival(v) == 666);
 434     mpdm_dump(v);
 435     mpdm_dump(h);
 436
 437         i = 0;
 438         for (n = 0; n < 1000; n++) {
 439                 if (mpdm_hget_s(h, L"ok") != NULL)
 440                         i++;
 441         }
 442         printf("i: %d\n", i);
 443         do_test("hget_s 1.2", i == 1000);
 444
 445         if (i != 1000)
 446                 mpdm_hget_s(h, L"ok");
 447
 448         do_test("hget 1.2.1", mpdm_hget(h, MPDM_LS(L"ok")) != NULL);
 449
 450         mpdm_hset_s(h, L"ok", MPDM_I(777));
 451
 452         v = mpdm_hget_s(h, L"ok");
 453         do_test("hget_s + hset_s", mpdm_ival(v) == 777);
 454
 455     mpdm_unref(h);
 456 }
 457
 458
 459 void test_splice(void)
 460 {
 461         mpdm_t w;
 462         mpdm_t v;
 463
 464         w = mpdm_splice(MPDM_LS(L"I'm agent Johnson"), MPDM_LS(L"special "), 4, 0);
 465         do_test("splice insertion",
 466                 mpdm_cmp(mpdm_aget(w, 0), MPDM_LS(L"I'm special agent Johnson")) == 0);
 467         mpdm_dump(w);
 468
 469         w = mpdm_splice(MPDM_LS(L"Life is a shit"), MPDM_LS(L"cheat"), 10, 4);
 470         do_test("splice insertion and deletion (1)",
 471                 mpdm_cmp(mpdm_aget(w, 0), MPDM_LS(L"Life is a cheat")) == 0);
 472         do_test("splice insertion and deletion (2)",
 473                 mpdm_cmp(mpdm_aget(w, 1), MPDM_LS(L"shit")) == 0);
 474         mpdm_dump(w);
 475
 476         w = mpdm_splice(MPDM_LS(L"I'm with dumb"), NULL, 4, 4);
 477         do_test("splice deletion (1)", mpdm_cmp(mpdm_aget(w, 0), MPDM_LS(L"I'm  dumb")) == 0);
 478         do_test("splice deletion (2)", mpdm_cmp(mpdm_aget(w, 1), MPDM_LS(L"with")) == 0);
 479         mpdm_dump(w);
 480
 481         v = MPDM_LS(L"It doesn't matter");
 482         w = mpdm_splice(v, MPDM_LS(L" two"), v->size, 0);
 483         do_test("splice insertion at the end",
 484                 mpdm_cmp(mpdm_aget(w, 0), MPDM_LS(L"It doesn't matter two")) == 0);
 485         mpdm_dump(w);
 486
 487         w = mpdm_splice(NULL, NULL, 0, 0);
 488         do_test("splice with two NULLS", (mpdm_aget(w, 0) == NULL));
 489
 490         w = mpdm_splice(NULL, MPDM_LS(L"foo"), 0, 0);
 491         do_test("splice with first value NULL",
 492                 (mpdm_cmp(mpdm_aget(w, 0), MPDM_LS(L"foo")) == 0));
 493
 494         w = mpdm_splice(MPDM_LS(L"foo"), NULL, 0, 0);
 495         do_test("splice with second value NULL",
 496                 (mpdm_cmp(mpdm_aget(w, 0), MPDM_LS(L"foo")) == 0));
 497
 498         v = MPDM_LS(L"I'm testing");
 499         mpdm_ref(v);
 500
 501         w = mpdm_splice(v, NULL, 0, -1);
 502         do_test("splice with negative del (1)",
 503                 (mpdm_cmp(mpdm_aget(w, 0), MPDM_LS(L"")) == 0));
 504
 505         w = mpdm_splice(v, NULL, 4, -1);
 506         do_test("splice with negative del (2)",
 507                 (mpdm_cmp(mpdm_aget(w, 0), MPDM_LS(L"I'm ")) == 0));
 508
 509         w = mpdm_splice(v, NULL, 4, -2);
 510         do_test("splice with negative del (3)",
 511                 (mpdm_cmp(mpdm_aget(w, 0), MPDM_LS(L"I'm g")) == 0));
 512
 513         w = mpdm_splice(v, NULL, 0, -4);
 514         do_test("splice with negative del (4)",
 515                 (mpdm_cmp(mpdm_aget(w, 0), MPDM_LS(L"ing")) == 0));
 516         mpdm_dump(mpdm_aget(w, 0));
 517
 518         w = mpdm_splice(v, NULL, 4, -20);
 519         do_test("splice with out-of-bounds negative del",
 520                 (mpdm_cmp(mpdm_aget(w, 0), MPDM_LS(L"I'm testing")) == 0));
 521         mpdm_unref(v);
 522 }
 523
 524
 525 void test_strcat(void)
 526 {
 527         mpdm_t v;
 528         mpdm_t w;
 529
 530         w = MPDM_LS(L"something");
 531     mpdm_ref(w);
 532
 533         v = mpdm_strcat(NULL, NULL);
 534         do_test("mpdm_strcat(NULL, NULL) returns NULL", v == NULL);
 535
 536         v = mpdm_strcat(NULL, w);
 537         do_test("mpdm_strcat(NULL, w) returns w", mpdm_cmp(v, w) == 0);
 538
 539         v = mpdm_strcat(w, NULL);
 540         do_test("mpdm_strcat(w, NULL) returns w", mpdm_cmp(v, w) == 0);
 541     mpdm_unref(w);
 542
 543         w = MPDM_LS(L"");
 544     mpdm_ref(w);
 545         v = mpdm_strcat(NULL, w);
 546         do_test("mpdm_strcat(NULL, \"\") returns \"\"", mpdm_cmp(v, w) == 0);
 547
 548         v = mpdm_strcat(w, NULL);
 549         do_test("mpdm_strcat(\"\", NULL) returns \"\"", mpdm_cmp(v, w) == 0);
 550
 551         v = mpdm_strcat(w, w);
 552         do_test("mpdm_strcat(\"\", \"\") returns \"\"", mpdm_cmp(v, w) == 0);
 553
 554     mpdm_unref(w);
 555 }
 556
 557
 558 void test_split(void)
 559 {
 560         mpdm_t w;
 561
 562         printf("mpdm_split test\n\n");
 563
 564         w = mpdm_split(MPDM_S(L"."), MPDM_S(L"four.elems.in.string"));
 565         mpdm_dump(w);
 566         do_test("4 elems: ", (w->size == 4));
 567
 568         w = mpdm_split(MPDM_S(L"."), MPDM_S(L"unseparated string"));
 569         mpdm_dump(w);
 570         do_test("1 elem: ", (w->size == 1));
 571
 572         w = mpdm_split(MPDM_S(L"."), MPDM_S(L".dot.at start"));
 573         mpdm_dump(w);
 574         do_test("3 elems: ", (w->size == 3));
 575
 576         w = mpdm_split(MPDM_S(L"."), MPDM_S(L"dot.at end."));
 577         mpdm_dump(w);
 578         do_test("3 elems: ", (w->size == 3));
 579
 580         w = mpdm_split(MPDM_S(L"."), MPDM_S(L"three...dots (two empty elements)"));
 581         mpdm_dump(w);
 582         do_test("4 elems: ", (w->size == 4));
 583
 584         w = mpdm_split(MPDM_S(L"."), MPDM_S(L"."));
 585         mpdm_dump(w);
 586         do_test("2 elems: ", (w->size == 2));
 587
 588         w = mpdm_split(NULL, MPDM_S(L"I am the man"));
 589         do_test("NULL split 1: ", mpdm_size(w) == 12);
 590         do_test("NULL split 2: ", mpdm_cmp(mpdm_aget(w, 0), MPDM_LS(L"I")) == 0);
 591 }
 592
 593
 594 void test_join(void)
 595 {
 596         mpdm_t v;
 597         mpdm_t s;
 598         mpdm_t w;
 599
 600         printf("mpdm_join test\n\n");
 601
 602         /* separator */
 603         s = mpdm_ref(MPDM_LS(L"--"));
 604
 605         w = MPDM_A(1);
 606         mpdm_ref(w);
 607         mpdm_aset(w, MPDM_S(L"ce"), 0);
 608
 609         v = mpdm_join(NULL, w);
 610         do_test("1 elem, no separator", (mpdm_cmp(v, MPDM_LS(L"ce")) == 0));
 611
 612         v = mpdm_join(s, w);
 613         do_test("1 elem, '--' separator", (mpdm_cmp(v, MPDM_LS(L"ce")) == 0));
 614
 615         mpdm_push(w, MPDM_LS(L"n'est"));
 616         v = mpdm_join(s, w);
 617         do_test("2 elems, '--' separator", (mpdm_cmp(v, MPDM_LS(L"ce--n'est")) == 0));
 618
 619         mpdm_push(w, MPDM_LS(L"pas"));
 620         v = mpdm_join(s, w);
 621         do_test("3 elems, '--' separator", (mpdm_cmp(v, MPDM_LS(L"ce--n'est--pas")) == 0));
 622
 623         v = mpdm_join(NULL, w);
 624         do_test("3 elems, no separator", (mpdm_cmp(v, MPDM_LS(L"cen'estpas")) == 0));
 625
 626         mpdm_unref(w);
 627         mpdm_unref(s);
 628 }
 629
 630
 631 static mpdm_t active(mpdm_t args)
 632 {
 633         return MPDM_H(0);
 634 }
 635
 636
 637 void test_sym(void)
 638 {
 639         mpdm_t v;
 640         int i;
 641
 642         printf("mpdm_sset / mpdm_sget tests\n\n");
 643
 644         mpdm_sset(NULL, MPDM_LS(L"mp"), MPDM_H(7));
 645         mpdm_sset(NULL, MPDM_LS(L"mp.config"), MPDM_H(7));
 646         mpdm_sset(NULL, MPDM_LS(L"mp.config.auto_indent"), MPDM_I(16384));
 647         mpdm_sset(NULL, MPDM_LS(L"mp.config.use_regex"), MPDM_I(1357));
 648         mpdm_sset(NULL, MPDM_LS(L"mp.config.gtk_font_face"), MPDM_LS(L"profontwindows"));
 649         mpdm_sset(NULL, MPDM_LS(L"mp.lines"), MPDM_A(2));
 650         mpdm_sset(NULL, MPDM_LS(L"mp.lines.0"), MPDM_LS(L"First post!"));
 651         mpdm_sset(NULL, MPDM_LS(L"mp.lines.1"), MPDM_LS(L"Second post!"));
 652         mpdm_sset(NULL, MPDM_LS(L"mp.active"), MPDM_X(active));
 653         mpdm_sset(NULL, MPDM_LS(L"mp.active.syntax"), NULL);
 654         mpdm_dump(mpdm_root());
 655
 656         v = mpdm_sget(NULL, MPDM_LS(L"mp.config.auto_indent"));
 657         i = mpdm_ival(v);
 658
 659         do_test("auto_indent == 16384", (i == 16384));
 660
 661         mpdm_sweep(-1);
 662 }
 663
 664
 665 void test_file(void)
 666 {
 667         mpdm_t f;
 668         mpdm_t v;
 669         mpdm_t eol = MPDM_LS(L"\n");
 670
 671     mpdm_ref(eol);
 672
 673         f = mpdm_open(MPDM_LS(L"test.txt"), MPDM_LS(L"w"));
 674
 675         if (f == NULL) {
 676                 printf("Can't create test.txt; no further file tests possible.\n");
 677                 return;
 678         }
 679
 680         do_test("Create test.txt", f != NULL);
 681
 682         mpdm_write(f, MPDM_LS(L"0"));
 683         mpdm_write(f, eol);
 684         mpdm_write(f, MPDM_LS(L"1"));
 685         mpdm_write(f, eol);
 686
 687         /* write WITHOUT eol */
 688         mpdm_write(f, MPDM_LS(L"2"));
 689
 690         mpdm_close(f);
 691
 692         f = mpdm_open(MPDM_LS(L"test.txt"), MPDM_LS(L"r"));
 693
 694         do_test("test written file 0", mpdm_cmp(mpdm_read(f), MPDM_LS(L"0\n")) == 0);
 695         do_test("test written file 1", mpdm_cmp(mpdm_read(f), MPDM_LS(L"1\n")) == 0);
 696         do_test("test written file 2", mpdm_cmp(mpdm_read(f), MPDM_LS(L"2")) == 0);
 697         do_test("test written file 3", mpdm_read(f) == NULL);
 698
 699         mpdm_close(f);
 700
 701         mpdm_unlink(MPDM_LS(L"test.txt"));
 702         do_test("unlink", mpdm_open(MPDM_LS(L"test.txt"), MPDM_LS(L"r")) == NULL);
 703
 704         v = mpdm_stat(MPDM_LS(L"stress.c"));
 705         printf("Stat from stress.c:\n");
 706         mpdm_dump(v);
 707
 708 /*      v=mpdm_glob(MPDM_LS(L"*"));*/
 709         printf("Glob:\n");
 710         v = mpdm_glob(NULL, NULL);
 711         mpdm_dump(v);
 712
 713     mpdm_unref(eol);
 714 }
 715
 716
 717 void test_regex(void)
 718 {
 719         mpdm_t v;
 720         mpdm_t w;
 721
 722         v = mpdm_regex(MPDM_LS(L"/[0-9]+/"), MPDM_LS(L"123456"), 0);
 723         do_test("regex 0", v != NULL);
 724
 725         v = mpdm_regex(MPDM_LS(L"/[0-9]+/"), MPDM_I(65536), 0);
 726         do_test("regex 1", v != NULL);
 727
 728         v = mpdm_regex(MPDM_LS(L"/^[0-9]+$/"), MPDM_LS(L"12345678"), 0);
 729         do_test("regex 2", v != NULL);
 730
 731         v = mpdm_regex(MPDM_LS(L"/^[0-9]+$/"), MPDM_I(1), 0);
 732         do_test("regex 3", v != NULL);
 733
 734         v = mpdm_regex(MPDM_LS(L"/^[0-9]+$/"), MPDM_LS(L"A12345-678"), 0);
 735         do_test("regex 4", v == NULL);
 736
 737         w = MPDM_LS(L"Hell street, 666");
 738     mpdm_ref(w);
 739         v = mpdm_regex(MPDM_LS(L"/[0-9]+/"), w, 0);
 740
 741         mpdm_dump(v);
 742
 743         do_test("regex 5", mpdm_cmp(v, MPDM_I(666)) == 0);
 744
 745         v = mpdm_regex(MPDM_LS(L"/regex/"), MPDM_LS(L"CASE-INSENSITIVE REGEX"), 0);
 746         do_test("regex 6.1 (case sensitive)", v == NULL);
 747
 748         v = mpdm_regex(MPDM_LS(L"/regex/i"), MPDM_LS(L"CASE-INSENSITIVE REGEX"), 0);
 749         do_test("regex 6.2 (case insensitive)", v != NULL);
 750 /*
 751         v=mpdm_regex(MPDM_LS(L"/[A-Z]+/"), MPDM_LS(L"case SENSITIVE regex"), 0);
 752         do_test("regex 6.3 (case sensitive)", mpdm_cmp(v, MPDM_LS(L"SENSITIVE")) == 0);
 753 */
 754         v = mpdm_regex(MPDM_LS(L"/^\\s*/"), MPDM_LS(L"123456"), 0);
 755         do_test("regex 7", v != NULL);
 756
 757         v = mpdm_regex(MPDM_LS(L"/^\\s+/"), MPDM_LS(L"123456"), 0);
 758         do_test("regex 8", v == NULL);
 759
 760         v = mpdm_regex(MPDM_LS(L"/^\\s+/"), NULL, 0);
 761         do_test("regex 9 (NULL string to match)", v == NULL);
 762
 763         /* sregex */
 764
 765         v = mpdm_sregex(MPDM_LS(L"/A/"), MPDM_LS(L"change all A to A"), MPDM_LS(L"E"), 0);
 766         do_test("sregex 0", mpdm_cmp(v, MPDM_LS(L"change all E to A")) == 0);
 767
 768         v = mpdm_sregex(MPDM_LS(L"/A/g"), MPDM_LS(L"change all A to A"), MPDM_LS(L"E"), 0);
 769         do_test("sregex 1", mpdm_cmp(v, MPDM_LS(L"change all E to E")) == 0);
 770
 771         v = mpdm_sregex(MPDM_LS(L"/A+/g"), MPDM_LS(L"change all AAAAAA to E"),
 772                         MPDM_LS(L"E"), 0);
 773         do_test("sregex 2", mpdm_cmp(v, MPDM_LS(L"change all E to E")) == 0);
 774
 775         v = mpdm_sregex(MPDM_LS(L"/A+/g"), MPDM_LS(L"change all A A A A A A to E"),
 776                         MPDM_LS(L"E"), 0);
 777         do_test("sregex 3", mpdm_cmp(v, MPDM_LS(L"change all E E E E E E to E")) == 0);
 778
 779         v = mpdm_sregex(MPDM_LS(L"/A+/g"), MPDM_LS(L"change all AAA A AA AAAAA A AAA to E"),
 780                         MPDM_LS(L"E"), 0);
 781         do_test("sregex 3.2", mpdm_cmp(v, MPDM_LS(L"change all E E E E E E to E")) == 0);
 782
 783         v = mpdm_sregex(MPDM_LS(L"/[0-9]+/g"), MPDM_LS(L"1, 20, 333, 40 all are numbers"),
 784                         MPDM_LS(L"numbers"), 0);
 785         do_test("sregex 4",
 786                 mpdm_cmp(v,
 787                          MPDM_LS(L"numbers, numbers, numbers, numbers all are numbers")) == 0);
 788
 789         v = mpdm_sregex(MPDM_LS(L"/[a-zA-Z_]+/g"), MPDM_LS(L"regex, mpdm_regex, TexMex"),
 790                         MPDM_LS(L"sex"), 0);
 791         do_test("sregex 5", mpdm_cmp(v, MPDM_LS(L"sex, sex, sex")) == 0);
 792
 793         v = mpdm_sregex(MPDM_LS(L"/[a-zA-Z]+/g"), MPDM_LS(L"regex, mpdm_regex, TexMex"),
 794                         NULL, 0);
 795         do_test("sregex 6", mpdm_cmp(v, MPDM_LS(L", _, ")) == 0);
 796
 797         v = mpdm_sregex(MPDM_LS(L"/\\\\/g"), MPDM_LS(L"\\MSDOS\\style\\path"),
 798                         MPDM_LS(L"/"), 0);
 799         do_test("sregex 7", mpdm_cmp(v, MPDM_LS(L"/MSDOS/style/path")) == 0);
 800
 801         v = mpdm_sregex(MPDM_LS(L"/regex/gi"), MPDM_LS(L"regex, Regex, REGEX"),
 802                         MPDM_LS(L"sex"), 0);
 803         do_test("sregex 8", mpdm_cmp(v, MPDM_LS(L"sex, sex, sex")) == 0);
 804
 805         v = mpdm_sregex(NULL, NULL, NULL, 0);
 806         do_test("Previous sregex substitutions must be 3", mpdm_ival(v) == 3);
 807
 808         /* & in substitution tests */
 809         v = MPDM_LS(L"this string has many words");
 810         v = mpdm_sregex(MPDM_LS(L"/[a-z]+/g"), v, MPDM_LS(L"[&]"), 0);
 811         do_test("& in sregex target",
 812                 mpdm_cmp(v, MPDM_LS(L"[this] [string] [has] [many] [words]")) == 0);
 813
 814         v = MPDM_LS(L"this string has many words");
 815         v = mpdm_sregex(MPDM_LS(L"/[a-z]+/g"), v, MPDM_LS(L"[\\&]"), 0);
 816         do_test("escaped & in sregex target",
 817                 mpdm_cmp(v, MPDM_LS(L"[&] [&] [&] [&] [&]")) == 0);
 818
 819         v = MPDM_LS(L"this string has many words");
 820         v = mpdm_sregex(MPDM_LS(L"/[a-z]+/g"), v, MPDM_LS(L"\\\\&"), 0);
 821         do_test("escaped \\ in sregex target",
 822                 mpdm_cmp(v, MPDM_LS(L"\\this \\string \\has \\many \\words")) == 0);
 823
 824     v = MPDM_LS(L"hola ");
 825     v = mpdm_sregex(MPDM_LS(L"/[ \t]$/"), v, MPDM_LS(L""), 0);
 826     do_test("sregex output size 1", v->size == 4);
 827
 828     v = MPDM_LS(L"hola ");
 829     v = mpdm_sregex(MPDM_LS(L"/[ \t]$/"), v, NULL, 0);
 830     do_test("sregex output size 2", v->size == 4);
 831
 832     v = MPDM_LS(L"hola ");
 833     v = mpdm_sregex(MPDM_LS(L"/[ \t]$/"), v, MPDM_LS(L"!"), 0);
 834     do_test("sregex output size 3", v->size == 5);
 835
 836     v = MPDM_LS(L"holo");
 837     v = mpdm_sregex(MPDM_LS(L"/o/g"), v, MPDM_LS(L"!!"), 0);
 838     do_test("sregex output size 4", v->size == 6);
 839
 840         /* multiple regex tests */
 841         w = MPDM_A(0);
 842         mpdm_ref(w);
 843
 844         mpdm_push(w, MPDM_LS(L"/^[ \t]*/"));
 845         mpdm_push(w, MPDM_LS(L"/[^ \t=]+/"));
 846         mpdm_push(w, MPDM_LS(L"/[ \t]*=[ \t]*/"));
 847         mpdm_push(w, MPDM_LS(L"/[^ \t]+/"));
 848         mpdm_push(w, MPDM_LS(L"/[ \t]*$/"));
 849
 850         v = mpdm_regex(w, MPDM_LS(L"key=value"), 0);
 851         mpdm_ref(v);
 852         do_test("multi-regex 1.1", mpdm_cmp(mpdm_aget(v, 1), MPDM_LS(L"key")) == 0);
 853         do_test("multi-regex 1.2", mpdm_cmp(mpdm_aget(v, 3), MPDM_LS(L"value")) == 0);
 854         mpdm_unref(v);
 855
 856         v = mpdm_regex(w, MPDM_LS(L" key = value"), 0);
 857         mpdm_ref(v);
 858         do_test("multi-regex 2.1", mpdm_cmp(mpdm_aget(v, 1), MPDM_LS(L"key")) == 0);
 859         do_test("multi-regex 2.2", mpdm_cmp(mpdm_aget(v, 3), MPDM_LS(L"value")) == 0);
 860         mpdm_unref(v);
 861
 862         v = mpdm_regex(w, MPDM_LS(L"\t\tkey\t=\tvalue  "), 0);
 863         mpdm_ref(v);
 864         do_test("multi-regex 3.1", mpdm_cmp(mpdm_aget(v, 1), MPDM_LS(L"key")) == 0);
 865         do_test("multi-regex 3.2", mpdm_cmp(mpdm_aget(v, 3), MPDM_LS(L"value")) == 0);
 866         mpdm_unref(v);
 867
 868         mpdm_unref(w);
 869
 870 /*      v = mpdm_regex(w, MPDM_LS(L"key= "), 0);
 871         do_test("multi-regex 4", v == NULL);
 872 */
 873         printf("Multiple line regexes\n");
 874         w = MPDM_LS(L"/* this is\na C-like comment */");
 875         mpdm_ref(w);
 876
 877         v = mpdm_regex(MPDM_LS(L"|/\\*.+\\*/|"), w, 0);
 878         do_test("Multiline regex 1", mpdm_cmp(v, w) == 0);
 879
 880         v = mpdm_regex(MPDM_LS(L"/is$/"), w, 0);
 881         do_test("Multiline regex 2", v == NULL);
 882
 883         v = mpdm_regex(MPDM_LS(L"/is$/m"), w, 0);
 884         do_test("Multiline regex 3", mpdm_cmp(v, MPDM_LS(L"is")) == 0);
 885         mpdm_unref(w);
 886
 887         printf("Pitfalls on multibyte locales (f.e. utf-8)\n");
 888
 889         w = MPDM_LS(L"-\x03a9-");
 890         mpdm_ref(w);
 891
 892         v = mpdm_regex(MPDM_LS(L"/-$/"), w, 0);
 893         do_test("Multibyte environment regex 1", mpdm_cmp(v, MPDM_LS(L"-")) == 0);
 894
 895         if (do_multibyte_sregex_tests) {
 896                 v = mpdm_sregex(MPDM_LS(L"/-$/"), w, MPDM_LS(L"~"), 0);
 897                 do_test("Multibyte environment sregex 1",
 898                         mpdm_cmp(v, MPDM_LS(L"-\x03a9~")) == 0);
 899
 900                 v = mpdm_sregex(MPDM_LS(L"/-/g"), w, MPDM_LS(L"~"), 0);
 901                 do_test("Multibyte environment sregex 2",
 902                         mpdm_cmp(v, MPDM_LS(L"~\x03a9~")) == 0);
 903         }
 904         else
 905                 printf("Multibyte sregex test omitted; activate with -m\n");
 906
 907         mpdm_unref(w);
 908
 909         /* 'last' flag tests */
 910         v = MPDM_LS(L"this string has many words");
 911         v = mpdm_regex(MPDM_LS(L"/[a-z]+/l"), v, 0);
 912         do_test("Flag l in mpdm_regex", mpdm_cmp(v, MPDM_LS(L"words")) == 0);
 913 }
 914
 915
 916 static mpdm_t dumper(mpdm_t args, mpdm_t ctxt)
 917 /* executable value */
 918 {
 919         mpdm_dump(args);
 920         return (NULL);
 921 }
 922
 923
 924 static mpdm_t sum(mpdm_t args, mpdm_t ctxt)
 925 /* executable value: sum all args */
 926 {
 927         int n, t = 0;
 928
 929         if (args != NULL) {
 930                 for (n = t = 0; n < args->size; n++)
 931                         t += mpdm_ival(mpdm_aget(args, n));
 932         }
 933
 934         return (MPDM_I(t));
 935 }
 936
 937
 938 static mpdm_t calculator(mpdm_t c, mpdm_t args, mpdm_t ctxt)
 939 /* 3 argument version: calculator. c contains a 'script' to
 940    do things with the arguments */
 941 {
 942         int n, t;
 943         mpdm_t v;
 944         mpdm_t a;
 945         mpdm_t o;
 946
 947     mpdm_ref(args);
 948
 949         /* to avoid destroying args */
 950         a = mpdm_ref(mpdm_clone(args));
 951
 952         /* shift first argument */
 953         v = mpdm_shift(a);
 954         t = mpdm_ival(v);
 955
 956         for (n = 0; n < mpdm_size(c); n++) {
 957                 /* gets operator */
 958                 o = mpdm_aget(c, n);
 959
 960                 /* gets next value */
 961                 v = mpdm_shift(a);
 962
 963                 switch (*(wchar_t *) o->data) {
 964                 case '+':
 965                         t += mpdm_ival(v);
 966                         break;
 967                 case '-':
 968                         t -= mpdm_ival(v);
 969                         break;
 970                 case '*':
 971                         t *= mpdm_ival(v);
 972                         break;
 973                 case '/':
 974                         t /= mpdm_ival(v);
 975                         break;
 976                 }
 977         }
 978
 979     mpdm_unref(a);
 980     mpdm_unref(args);
 981
 982         return (MPDM_I(t));
 983 }
 984
 985
 986 void test_exec(void)
 987 {
 988         mpdm_t x;
 989         mpdm_t w;
 990         mpdm_t p;
 991
 992         printf("test_exec\n");
 993
 994         x = MPDM_X(dumper);
 995
 996         /* a simple value */
 997         mpdm_ref(x);
 998         mpdm_exec(x, NULL, NULL);
 999         mpdm_exec(x, x, NULL);
1000         mpdm_unref(x);
1001
1002         x = mpdm_ref(MPDM_X(sum));
1003         w = mpdm_ref(MPDM_A(3));
1004         mpdm_aset(w, MPDM_I(100), 0);
1005         mpdm_aset(w, MPDM_I(220), 1);
1006         mpdm_aset(w, MPDM_I(333), 2);
1007
1008         do_test("exec 0", mpdm_ival(mpdm_exec(x, w, NULL)) == 653);
1009         x = mpdm_unref(x);
1010
1011         mpdm_push(w, MPDM_I(1));
1012
1013         /* multiple executable value: vm and compiler support */
1014
1015         /* calculator 'script' */
1016         p = mpdm_ref(MPDM_A(0));
1017         mpdm_push(p, MPDM_LS(L"+"));
1018         mpdm_push(p, MPDM_LS(L"-"));
1019         mpdm_push(p, MPDM_LS(L"+"));
1020
1021         /* the value */
1022         x = mpdm_ref(MPDM_A(2));
1023         x->flags |= MPDM_EXEC;
1024
1025         mpdm_aset(x, MPDM_X(calculator), 0);
1026         mpdm_aset(x, p, 1);
1027
1028         do_test("exec 1", mpdm_ival(mpdm_exec(x, w, NULL)) == -12);
1029
1030         mpdm_unref(p);
1031
1032         /* another 'script', different operations with the same values */
1033         p = mpdm_ref(MPDM_A(0));
1034         mpdm_push(p, MPDM_LS(L"*"));
1035         mpdm_push(p, MPDM_LS(L"/"));
1036         mpdm_push(p, MPDM_LS(L"+"));
1037
1038         mpdm_aset(x, p, 1);
1039
1040         do_test("exec 2", mpdm_ival(mpdm_exec(x, w, NULL)) == 67);
1041         x = mpdm_unref(x);
1042         p = mpdm_unref(p);
1043         w = mpdm_unref(w);
1044 }
1045
1046
1047 void test_encoding(void)
1048 {
1049         mpdm_t f;
1050         mpdm_t v;
1051         mpdm_t w;
1052         const wchar_t *ptr;
1053
1054         v = MPDM_MBS("?Espa?a!\n");
1055     mpdm_ref(v);
1056
1057         printf("\nLocale encoding tests (will look bad if terminal is not ISO-8859-1)\n\n");
1058
1059         if ((f = mpdm_open(MPDM_LS(L"test.txt"), MPDM_LS(L"w"))) == NULL) {
1060                 printf("Can't write test.txt; no further file test possible.\n");
1061                 return;
1062         }
1063
1064         mpdm_write(f, v);
1065         mpdm_close(f);
1066
1067         f = mpdm_open(MPDM_LS(L"test.txt"), MPDM_LS(L"r"));
1068         w = mpdm_read(f);
1069         mpdm_dump(w);
1070         do_test("Locale encoding", mpdm_cmp(w, v) == 0);
1071         mpdm_close(f);
1072
1073         printf
1074             ("\nutf8.txt loading (should look good only in UTF-8 terminals with good fonts)\n");
1075
1076         f = mpdm_open(MPDM_LS(L"utf8.txt"), MPDM_LS(L"r"));
1077         w = mpdm_read(f);
1078         mpdm_dump(w);
1079         mpdm_close(f);
1080
1081         for (ptr = w->data; *ptr != L'\0'; ptr++)
1082                 printf("%d", mpdm_wcwidth(*ptr));
1083         printf("\n");
1084
1085         if (mpdm_encoding(MPDM_LS(L"UTF-8")) < 0) {
1086                 printf("No multiple encoding (iconv) support; no more tests possible.\n");
1087                 return;
1088         }
1089
1090         printf
1091             ("\nForced utf8.txt loading (should look good only in UTF-8 terminals with good fonts)\n");
1092
1093         f = mpdm_open(MPDM_LS(L"utf8.txt"), MPDM_LS(L"r"));
1094         w = mpdm_read(f);
1095         mpdm_dump(w);
1096         mpdm_close(f);
1097
1098         /* new open file will use the specified encoding */
1099         f = mpdm_open(MPDM_LS(L"test.txt"), MPDM_LS(L"w"));
1100         mpdm_write(f, v);
1101         mpdm_close(f);
1102
1103         f = mpdm_open(MPDM_LS(L"test.txt"), MPDM_LS(L"r"));
1104         w = mpdm_read(f);
1105         mpdm_dump(w);
1106         do_test("iconv encoding", mpdm_cmp(w, v) == 0);
1107         mpdm_close(f);
1108
1109         mpdm_encoding(NULL);
1110     mpdm_unref(v);
1111 }
1112
1113
1114 void test_gettext(void)
1115 {
1116         mpdm_t v;
1117         mpdm_t h;
1118
1119         printf("\nTesting gettext...\n");
1120
1121         mpdm_gettext_domain(MPDM_LS(L"stress"), MPDM_LS(L"./po"));
1122
1123         printf("Should follow a translated string of 'This is a test string':\n");
1124         v = mpdm_gettext(MPDM_LS(L"This is a test string"));
1125         mpdm_dump(v);
1126
1127         printf("The same, but cached:\n");
1128         v = mpdm_gettext(MPDM_LS(L"This is a test string"));
1129         mpdm_dump(v);
1130
1131         v = mpdm_gettext(MPDM_LS(L"This string is not translated"));
1132         mpdm_dump(v);
1133
1134         printf("Ad-hoc translation hash:\n");
1135
1136         h = MPDM_H(0);
1137         mpdm_ref(h);
1138         mpdm_hset(h, MPDM_LS(L"test string"), MPDM_LS(L"cadena de prueba"));
1139
1140         mpdm_gettext_domain(MPDM_LS(L"stress"), h);
1141         v = mpdm_gettext(MPDM_LS(L"test string"));
1142         mpdm_dump(v);
1143         mpdm_unref(h);
1144 }
1145
1146
1147 void timer(int secs)
1148 {
1149         static clock_t clks = 0;
1150
1151         switch (secs) {
1152         case 0:
1153                 clks = clock();
1154                 break;
1155
1156         case -1:
1157                 printf("%.2f seconds\n", (float) (clock() - clks) / (float) CLOCKS_PER_SEC);
1158                 break;
1159         }
1160 }
1161
1162
1163 void bench_hash(int i, mpdm_t l, int buckets)
1164 {
1165         mpdm_t h;
1166         mpdm_t v;
1167         int n;
1168
1169         printf("Hash of %d buckets: \n", buckets);
1170         h = MPDM_H(buckets);
1171         mpdm_ref(h);
1172
1173         timer(0);
1174         for (n = 0; n < i; n++) {
1175                 v = mpdm_aget(l, n);
1176                 mpdm_hset(h, v, v);
1177         }
1178         timer(-1);
1179
1180         mpdm_unref(h);
1181
1182 /*
1183         printf("Bucket usage:\n");
1184         for(n=0;n < mpdm_size(h);n++)
1185                 printf("\t%d: %d\n", n, mpdm_size(mpdm_aget(h, n)));
1186 */
1187         mpdm_sweep(-1);
1188 }
1189
1190
1191 void benchmark(void)
1192 {
1193         mpdm_t l;
1194         int i, n;
1195         char tmp[64];
1196
1197         printf("\n");
1198
1199         if (!do_benchmarks) {
1200                 printf("Skipping benchmarks\nRun them with 'stress -b'\n");
1201                 return;
1202         }
1203
1204         printf("BENCHMARKS\n");
1205
1206         i = 500000;
1207
1208         printf("Creating %d values...\n", i);
1209
1210         l = mpdm_ref(MPDM_A(i));
1211         for (n = 0; n < i; n++) {
1212                 sprintf(tmp, "%08x", n);
1213 /*              mpdm_aset(l, MPDM_MBS(tmp), n);*/
1214                 mpdm_aset(l, MPDM_I(n), n);
1215         }
1216
1217         printf("OK\n");
1218
1219         bench_hash(i, l, 0);
1220         bench_hash(i, l, 61);
1221         bench_hash(i, l, 89);
1222         bench_hash(i, l, 127);
1223
1224         mpdm_unref(l);
1225 }
1226
1227
1228 void test_conversion(void)
1229 {
1230         wchar_t *wptr = NULL;
1231         char *ptr = NULL;
1232         int size = 0;
1233
1234         ptr = mpdm_wcstombs(L"", &size);
1235         do_test("mpdm_wcstombs converts an empty string", ptr != NULL);
1236
1237         wptr = mpdm_mbstowcs("", &size, 0);
1238         do_test("mpdm_mbstowcs converts an empty string", wptr != NULL);
1239 }
1240
1241
1242 void test_pipes(void)
1243 {
1244         mpdm_t f;
1245
1246         printf("\n");
1247
1248         if ((f = mpdm_popen(MPDM_LS(L"date"), MPDM_LS(L"r"))) != NULL) {
1249                 mpdm_t v;
1250
1251                 v = mpdm_read(f);
1252                 mpdm_pclose(f);
1253
1254                 printf("Pipe from 'date':\n");
1255                 mpdm_dump(v);
1256         }
1257         else
1258                 printf("Can't pipe to 'date'\n");
1259 }
1260
1261
1262 void test_misc(void)
1263 {
1264         printf("Home dir:\n");
1265         mpdm_dump(mpdm_home_dir());
1266         printf("App dir:\n");
1267         mpdm_dump(mpdm_app_dir());
1268 }
1269
1270
1271 void test_sprintf(void)
1272 {
1273         mpdm_t v;
1274         mpdm_t w;
1275
1276         printf("sprintf tests\n");
1277
1278         v = MPDM_A(0);
1279         mpdm_ref(v);
1280         mpdm_push(v, MPDM_I(100));
1281         mpdm_push(v, MPDM_LS(L"beers"));
1282
1283         w = mpdm_sprintf(MPDM_LS(L"%d %s for me"), v);
1284         do_test("sprintf 1", mpdm_cmp(w, MPDM_LS(L"100 beers for me")) == 0);
1285
1286         w = mpdm_sprintf(MPDM_LS(L"%d %s for me %d"), v);
1287         do_test("sprintf 2", mpdm_cmp(w, MPDM_LS(L"100 beers for me 0")) == 0);
1288
1289         w = mpdm_sprintf(MPDM_LS(L"%10d %s for me"), v);
1290         do_test("sprintf 3", mpdm_cmp(w, MPDM_LS(L"       100 beers for me")) == 0);
1291
1292         w = mpdm_sprintf(MPDM_LS(L"%010d %s for me"), v);
1293         do_test("sprintf 4", mpdm_cmp(w, MPDM_LS(L"0000000100 beers for me")) == 0);
1294
1295         mpdm_unref(v);
1296
1297         v = MPDM_A(0);
1298         mpdm_ref(v);
1299         mpdm_push(v, MPDM_R(3.1416));
1300
1301         w = mpdm_sprintf(MPDM_LS(L"Value for PI is %6.4f"), v);
1302         do_test("sprintf 2.1", mpdm_cmp(w, MPDM_LS(L"Value for PI is 3.1416")) == 0);
1303
1304 /*      w = mpdm_sprintf(MPDM_LS(L"Value for PI is %08.2f"), v);
1305         do_test("sprintf 2.2", mpdm_cmp(w, MPDM_LS(L"Value for PI is 00003.14")) == 0);
1306 */
1307         mpdm_unref(v);
1308
1309         v = MPDM_A(0);
1310         mpdm_ref(v);
1311         mpdm_push(v, MPDM_LS(L"stress"));
1312
1313         w = mpdm_sprintf(MPDM_LS(L"This is a |%10s| test"), v);
1314         do_test("sprintf 3.1", mpdm_cmp(w, MPDM_LS(L"This is a |    stress| test")) == 0);
1315
1316         w = mpdm_sprintf(MPDM_LS(L"This is a |%-10s| test"), v);
1317         do_test("sprintf 3.2", mpdm_cmp(w, MPDM_LS(L"This is a |stress    | test")) == 0);
1318
1319         mpdm_unref(v);
1320
1321         v = MPDM_A(0);
1322         mpdm_ref(v);
1323         mpdm_push(v, MPDM_I(0x263a));
1324
1325         w = mpdm_sprintf(MPDM_LS(L"%c"), v);
1326         do_test("sprintf 3.3", mpdm_cmp(w, MPDM_LS(L"\x263a")) == 0);
1327         mpdm_unref(v);
1328
1329         v = MPDM_A(0);
1330         mpdm_ref(v);
1331         mpdm_push(v, MPDM_I(75));
1332
1333         w = mpdm_sprintf(MPDM_LS(L"%d%%"), v);
1334         do_test("sprintf 4.1", mpdm_cmp(w, MPDM_LS(L"75%")) == 0);
1335
1336         w = mpdm_sprintf(MPDM_LS(L"%b"), v);
1337         do_test("sprintf 5.1", mpdm_cmp(w, MPDM_LS(L"1001011")) == 0);
1338         mpdm_unref(v);
1339 }
1340
1341
1342 void test_ulc(void)
1343 {
1344         mpdm_t v = mpdm_ref(MPDM_S(L"string"));
1345         mpdm_t w = mpdm_ref(mpdm_ulc(v, 1));
1346
1347         do_test("mpdm_ulc 1", mpdm_cmp(mpdm_ulc(v, 1), w) == 0);
1348         do_test("mpdm_ulc 2", mpdm_cmp(mpdm_ulc(w, 0), v) == 0);
1349
1350         mpdm_unref(w);
1351         mpdm_unref(v);
1352 }
1353
1354
1355 void test_scanf(void)
1356 {
1357         mpdm_t v;
1358
1359         v = mpdm_sscanf(MPDM_LS(L"%d %d"), MPDM_LS(L"1234 5678"), 0);
1360         do_test("mpdm_sscanf_1.1", mpdm_cmp(mpdm_aget(v, 0), MPDM_LS(L"1234")) == 0);
1361         do_test("mpdm_sscanf_1.2", mpdm_cmp(mpdm_aget(v, 1), MPDM_LS(L"5678")) == 0);
1362
1363         v = mpdm_sscanf(MPDM_LS(L"%s %f %d"), MPDM_LS(L"this 12.34 5678"), 0);
1364         do_test("mpdm_sscanf_2.1", mpdm_cmp(mpdm_aget(v, 0), MPDM_LS(L"this")) == 0);
1365         do_test("mpdm_sscanf_2.2", mpdm_cmp(mpdm_aget(v, 1), MPDM_LS(L"12.34")) == 0);
1366         do_test("mpdm_sscanf_2.3", mpdm_cmp(mpdm_aget(v, 2), MPDM_LS(L"5678")) == 0);
1367
1368         v = mpdm_sscanf(MPDM_LS(L"%s %*f %d"), MPDM_LS(L"this 12.34 5678"), 0);
1369         do_test("mpdm_sscanf_3.1", mpdm_cmp(mpdm_aget(v, 0), MPDM_LS(L"this")) == 0);
1370         do_test("mpdm_sscanf_3.2", mpdm_cmp(mpdm_aget(v, 1), MPDM_LS(L"5678")) == 0);
1371
1372         v = mpdm_sscanf(MPDM_LS(L"%4d%4d%2d%10d"), MPDM_LS(L"12341234121234567890"), 0);
1373         do_test("mpdm_sscanf_4.1", mpdm_cmp(mpdm_aget(v, 0), MPDM_LS(L"1234")) == 0);
1374         do_test("mpdm_sscanf_4.2", mpdm_cmp(mpdm_aget(v, 1), MPDM_LS(L"1234")) == 0);
1375         do_test("mpdm_sscanf_4.3", mpdm_cmp(mpdm_aget(v, 2), MPDM_LS(L"12")) == 0);
1376         do_test("mpdm_sscanf_4.4", mpdm_cmp(mpdm_aget(v, 3), MPDM_LS(L"1234567890")) == 0);
1377
1378         v = mpdm_sscanf(MPDM_LS(L"%[abc]%s"), MPDM_LS(L"ccbaabcxaaae and more"), 0);
1379         do_test("mpdm_sscanf_5.1", mpdm_cmp(mpdm_aget(v, 0), MPDM_LS(L"ccbaabc")) == 0);
1380         do_test("mpdm_sscanf_5.2", mpdm_cmp(mpdm_aget(v, 1), MPDM_LS(L"xaaae")) == 0);
1381
1382         v = mpdm_sscanf(MPDM_LS(L"%[a-d]%s"), MPDM_LS(L"ccbaabcxaaae and more"), 0);
1383         do_test("mpdm_sscanf_6.1", mpdm_cmp(mpdm_aget(v, 0), MPDM_LS(L"ccbaabc")) == 0);
1384         do_test("mpdm_sscanf_6.2", mpdm_cmp(mpdm_aget(v, 1), MPDM_LS(L"xaaae")) == 0);
1385
1386         v = mpdm_sscanf(MPDM_LS(L"%[^x]%s"), MPDM_LS(L"ccbaabcxaaae and more"), 0);
1387         do_test("mpdm_sscanf_7.1", mpdm_cmp(mpdm_aget(v, 0), MPDM_LS(L"ccbaabc")) == 0);
1388         do_test("mpdm_sscanf_7.2", mpdm_cmp(mpdm_aget(v, 1), MPDM_LS(L"xaaae")) == 0);
1389
1390         v = mpdm_sscanf(MPDM_LS(L"%[^:]: %s"), MPDM_LS(L"key: value"), 0);
1391         do_test("mpdm_sscanf_8.1", mpdm_cmp(mpdm_aget(v, 0), MPDM_LS(L"key")) == 0);
1392         do_test("mpdm_sscanf_8.2", mpdm_cmp(mpdm_aget(v, 1), MPDM_LS(L"value")) == 0);
1393
1394         v = mpdm_sscanf(MPDM_LS(L"%*[^/]/* %s */"), MPDM_LS(L"this is code /* comment */ more code"), 0);
1395         do_test("mpdm_sscanf_9.1", mpdm_cmp(mpdm_aget(v, 0), MPDM_LS(L"comment")) == 0);
1396
1397         v = mpdm_sscanf(MPDM_LS(L"%d%%%d"), MPDM_LS(L"1234%5678"), 0);
1398         do_test("mpdm_sscanf_10.1", mpdm_cmp(mpdm_aget(v, 0), MPDM_LS(L"1234")) == 0);
1399         do_test("mpdm_sscanf_10.2", mpdm_cmp(mpdm_aget(v, 1), MPDM_LS(L"5678")) == 0);
1400
1401         v = mpdm_sscanf(MPDM_LS(L"%*[abc]%n%*[^ ]%n"), MPDM_LS(L"ccbaabcxaaae and more"), 0);
1402         do_test("mpdm_sscanf_11.1", mpdm_ival(mpdm_aget(v, 0)) == 7);
1403         do_test("mpdm_sscanf_11.2", mpdm_ival(mpdm_aget(v, 1)) == 12);
1404
1405         v = mpdm_sscanf(MPDM_LS(L"/* %S */"), MPDM_LS(L"/* inside the comment */"), 0);
1406         do_test("mpdm_sscanf_12.1", mpdm_cmp(mpdm_aget(v, 0), MPDM_LS(L"inside the comment")) == 0);
1407
1408         v = mpdm_sscanf(MPDM_LS(L"/* %S */%s"), MPDM_LS(L"/* inside the comment */outside"), 0);
1409         do_test("mpdm_sscanf_13.1", mpdm_cmp(mpdm_aget(v, 0), MPDM_LS(L"inside the comment")) == 0);
1410         do_test("mpdm_sscanf_13.2", mpdm_cmp(mpdm_aget(v, 1), MPDM_LS(L"outside")) == 0);
1411
1412         v = mpdm_sscanf(MPDM_LS(L"%n"), MPDM_LS(L""), 0);
1413         do_test("mpdm_sscanf_14.1", mpdm_size(v) == 1 && mpdm_ival(mpdm_aget(v, 0)) == 0);
1414
1415         v = mpdm_sscanf(MPDM_LS(L"%[^%f]%f %[#%d@]"), MPDM_LS(L"this 12.34 5678#12@34"), 0);
1416         do_test("mpdm_sscanf_15.1", mpdm_cmp(mpdm_aget(v, 0), MPDM_LS(L"this ")) == 0);
1417         do_test("mpdm_sscanf_15.2", mpdm_cmp(mpdm_aget(v, 1), MPDM_LS(L"12.34")) == 0);
1418         do_test("mpdm_sscanf_15.3", mpdm_cmp(mpdm_aget(v, 2), MPDM_LS(L"5678#12@34")) == 0);
1419
1420         v = mpdm_sscanf(MPDM_LS(L"%*S\"%[^\n\"]\""), MPDM_LS(L"a \"bbb\" c;"), 0);
1421         do_test("mpdm_sscanf_16", mpdm_cmp(mpdm_aget(v, 0), MPDM_LS(L"bbb")) == 0);
1422
1423     do_test("mpdm_sscanf_17", mpdm_aget(v, 0)->size == 3);
1424 }
1425
1426
1427 mpdm_t mutex = NULL;
1428 int t_finished = -1;
1429
1430 mpdm_t the_thread(mpdm_t args, mpdm_t ctxt)
1431 /* running from a thread */
1432 {
1433         mpdm_t fn = mpdm_ref(MPDM_LS(L"thread.txt"));
1434         mpdm_t f;
1435
1436         printf("thread: start writing from thread\n");
1437
1438         if ((f = mpdm_open(fn, MPDM_LS(L"w"))) != NULL) {
1439                 int n;
1440
1441                 for (n = 0; n < 1000; n++) {
1442                         mpdm_write(f, MPDM_I(n));
1443                         mpdm_write(f, MPDM_LS(L"\n"));
1444                 }
1445
1446                 mpdm_close(f);
1447         }
1448
1449         printf("thread: finished writing from thread\n");
1450
1451         mpdm_mutex_lock(mutex);
1452         t_finished = 1;
1453         mpdm_mutex_unlock(mutex);
1454
1455         printf("thread: t_finished set\n");
1456
1457         return NULL;
1458 }
1459
1460
1461 void test_thread(void)
1462 {
1463         mpdm_t fn = mpdm_ref(MPDM_LS(L"thread.txt"));
1464         mpdm_t x, v;
1465         int done;
1466
1467     printf("Testing threads and mutexes...\n");
1468
1469         mpdm_unlink(fn);
1470
1471         /* create the executable value */
1472         x = mpdm_ref(MPDM_X(the_thread));
1473
1474         /* create a mutex */
1475         mutex = mpdm_ref(mpdm_new_mutex());
1476
1477         t_finished = 0;
1478
1479         v = mpdm_exec_thread(x, NULL, NULL);
1480
1481         printf("parent: waiting for the thread to finish...\n");
1482         mpdm_ref(v);
1483
1484         done = 0;
1485         while (!done) {
1486                 mpdm_sleep(10);
1487
1488                 mpdm_mutex_lock(mutex);
1489
1490                 if (t_finished > 0)
1491                         done = 1;
1492
1493                 mpdm_mutex_unlock(mutex);
1494         }
1495
1496         printf("parent: thread said it has finished.\n");
1497
1498         mpdm_unref(v);
1499
1500         mpdm_unref(mutex);
1501         mpdm_unref(x);
1502         mpdm_unref(fn);
1503 }
1504
1505
1506 mpdm_t sem = NULL;
1507
1508 mpdm_t sem_thread(mpdm_t args, mpdm_t ctxt)
1509 {
1510     printf("thread: waiting for semaphore...\n");
1511
1512     mpdm_semaphore_wait(sem);
1513
1514     printf("thread: got semaphore.\n");
1515
1516     return NULL;
1517 }
1518
1519
1520 void test_sem(void)
1521 {
1522     mpdm_t x, v;
1523
1524     printf("Testing threads and semaphores...\n");
1525
1526         /* create the executable value */
1527         x = mpdm_ref(MPDM_X(sem_thread));
1528
1529     /* creates the semaphore */
1530     sem = mpdm_ref(mpdm_new_semaphore(0));
1531
1532     printf("parent: launching thread.\n");
1533
1534     v = mpdm_exec_thread(x, NULL, NULL);
1535     mpdm_ref(v);
1536
1537     mpdm_sleep(10);
1538
1539     printf("parent: posting semaphore.\n");
1540
1541     mpdm_semaphore_post(sem);
1542
1543     mpdm_sleep(10);
1544
1545     mpdm_unref(v);
1546     mpdm_unref(sem);
1547     mpdm_unref(x);
1548 }
1549
1550
1551 void (*func)(void) = NULL;
1552
1553 int main(int argc, char *argv[])
1554 {
1555         if (argc > 1) {
1556                 if (strcmp(argv[1], "-b") == 0)
1557                         do_benchmarks = 1;
1558                 if (strcmp(argv[1], "-m") == 0)
1559                         do_multibyte_sregex_tests = 1;
1560         }
1561
1562         mpdm_startup();
1563
1564         printf("sizeof(struct mpdm_val): %ld\n", (long) sizeof(struct mpdm_val));
1565         printf("sizeof(void *): %d\n", sizeof(void *));
1566         printf("sizeof(void (*func)(void)): %d\n", sizeof(func));
1567
1568 /*    test_counter();*/
1569         test_basic();
1570         test_array();
1571         test_hash();
1572         test_splice();
1573         test_strcat();
1574         test_split();
1575         test_join();
1576         test_sym();
1577         test_file();
1578         test_regex();
1579         test_exec();
1580         test_encoding();
1581         test_gettext();
1582         test_conversion();
1583         test_pipes();
1584         test_misc();
1585         test_sprintf();
1586         test_ulc();
1587         test_scanf();
1588         test_thread();
1589     test_sem();
1590
1591         benchmark();
1592
1593 /*      mpdm_dump_unref();*/
1594
1595         printf("memory: %d\n", mpdm->memory_usage);
1596         mpdm_sweep(-1);
1597         mpdm_sweep(-1);
1598         mpdm_sweep(-1);
1599         mpdm_sweep(-1);
1600         mpdm_sweep(-1);
1601         mpdm_sweep(-1);
1602         mpdm_sweep(-1);
1603         mpdm_sweep(-1);
1604         mpdm_sweep(-1);
1605         printf("memory: %d\n", mpdm->memory_usage);
1606
1607 /*      mpdm_dump_unref();*/
1608
1609         mpdm_shutdown();
1610
1611         printf("\n*** Total tests passed: %d/%d\n", oks, tests);
1612
1613         if (oks == tests)
1614                 printf("*** ALL TESTS PASSED\n");
1615         else {
1616                 int n;
1617
1618                 printf("*** %d %s\n", tests - oks, "TESTS ---FAILED---");
1619
1620                 printf("\nFailed tests:\n\n");
1621                 for (n = 0; n < i_failed_msgs; n++)
1622                         printf("%s", failed_msgs[n]);
1623         }
1624
1625         return (0);
1626 }