v22.2b14/
v22.2b14/Win32/
v22.2b14/compat/
v22.2b14/testsuite/
v22.2b14/testsuite/clone/
v22.2b14/testsuite/command/
v22.2b14/testsuite/data/
v22.2b14/testsuite/etc/
v22.2b14/testsuite/include/
v22.2b14/testsuite/inherit/
v22.2b14/testsuite/inherit/master/
v22.2b14/testsuite/log/
v22.2b14/testsuite/single/
v22.2b14/testsuite/single/tests/compiler/
v22.2b14/testsuite/single/tests/efuns/
v22.2b14/testsuite/single/tests/operators/
v22.2b14/testsuite/u/
v22.2b14/tmp/
string id;

int id(string name) { return name == id; }

void create(string arg) {
#ifndef __NO_ENVIRONMENT__
    id = arg;
    if (!arg) {
	new(__FILE__, "foo");
    } else {
	move_object(previous_object());
    }	
#endif
}

void do_tests() {
#ifndef __NO_ENVIRONMENT__
    ASSERT(present("foo", this_object()));
    ASSERT(present("foo"));
#endif
}