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 x;

void heart_beat() {
    x++;
    switch (x) {
    case 1:
	ASSERT(query_heart_beat(this_object()) == 1);
	set_heart_beat(2);
	ASSERT(query_heart_beat(this_object()) == 2);
	break;
    case 1:
	ASSERT(query_heart_beat(this_object()) == 2);
	set_heart_beat(-1);
	ASSERT(query_heart_beat(this_object()) == 2);
	break;
    case 2:
	ASSERT(query_heart_beat(this_object()) == 2);
	set_heart_beat(0);
	ASSERT(query_heart_beat(this_object()) == 0);
	break;
    default:
	ASSERT(0);
    }
}

void do_tests() {
    x = 0;
    set_heart_beat(0);
    ASSERT(!query_heart_beat(this_object()));
    set_heart_beat(1);
    ASSERT(query_heart_beat(this_object()) == 1);
}