fluffos-1.22/
fluffos-1.22/Win32/
fluffos-1.22/compat/
fluffos-1.22/testsuite/
fluffos-1.22/testsuite/clone/
fluffos-1.22/testsuite/command/
fluffos-1.22/testsuite/data/
fluffos-1.22/testsuite/etc/
fluffos-1.22/testsuite/include/
fluffos-1.22/testsuite/inherit/
fluffos-1.22/testsuite/inherit/master/
fluffos-1.22/testsuite/log/
fluffos-1.22/testsuite/single/
fluffos-1.22/testsuite/single/tests/compiler/
fluffos-1.22/testsuite/single/tests/efuns/
fluffos-1.22/testsuite/single/tests/operators/
fluffos-1.22/testsuite/u/
fluffos-1.22/tmp/
int same_array(mixed *x, mixed *y) {
    if (!arrayp(x) || !arrayp(y)) return 0;
    if (sizeof(x) != sizeof(y)) return 0;
    for (int i = 0; i < sizeof(x); i++) {
	if (arrayp(x[i])) {
	    if (!same_array(x[i], y[i]))
		return 0;
	} else if (x[i] != y[i])
	    return 0;
    }
    return 1;
}

void do_tests() {
    ASSERT(same_array(
	       reg_assoc("testhahatest", ({ "haha", "te" }), ({ 2, 3 }), 4),
	       ({ ({ "", "te", "st", "haha", "", "te", "st" }),
		  ({ 4, 3, 4, 2, 4, 3, 4 }) })));
    ASSERT(catch(reg_assoc("foo", ({ 1 }), ({ 2, 3 }))));
    ASSERT(catch(reg_assoc("foo", ({ 1, 2 }), ({ 2, 3 }))));
    ASSERT(catch(reg_assoc("foo", ({ "bar", "+" }), ({ 0, 1 }))));
}