stress.c

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