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