void do_tests() {
    object tp;
#ifndef __NO_ADD_ACTION__
    SAVETP;
    enable_commands();
    RESTORETP;
    ASSERT(!find_living("foo"));
    set_living_name("foo");
    ASSERT(find_living("foo") == this_object());
    disable_commands();
    ASSERT(!find_living("foo"));
    enable_commands();
    RESTORETP;
    set_living_name("bar");
    ASSERT(!find_living("foo"));
    ASSERT(find_living("bar") == this_object());
    destruct(this_object());
#endif
}