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