int
main(void)
{
SXE_LUA *sxel = sxe_lua_new();
snprintf(s_string, sizeof s_string, "Goodbye, cruel world");
sxe_lua_tie_field(sxel, "test", "bool", 'b', &s_bool);
sxe_lua_tie_field(sxel, "test", "int", 'i', &s_int);
sxe_lua_tie_field(sxel, "test", "uint", 'i', &s_uint);
sxe_lua_tie_field(sxel, "test", "long", 'l', &s_long);
sxe_lua_tie_field(sxel, "test", "ulong", 'l', &s_ulong);
sxe_lua_tie_field(sxel, "test", "str", 's', s_string, sizeof s_string);
SXEL10("sxelua: loading sxelua handlers");
sxe_lua_load(sxel, "../test/test-sxe-lua.lua");
sxe_init();
sxe_lua_init(sxel);
ev_loop(ev_default_loop(EVFLAG_AUTO), 0);
is_eq(s_string, "Hello, world", "tied string set to 'Hello, world'");
is(s_int, 10, "tied integer set to '10'");
is(s_uint, 128, "tied unsigned set to '128'");
is(s_long, 42L, "tied long set to '42'");
is(s_ulong, -2UL, "tied unsigned long set to '-2'");
is(s_bool, 1, "tied boolean set to '1'");
return exit_status();
}
int
main(void)
{
#if !TEST_DIRWATCH
/* TODO: Implement sxe_dirwatch() on Windows */
/* TODO: Implement sxe_dirwatch() on Apple */
/* TODO: Implement sxe_dirwatch() on FreeBSD */
#else
char tempdir1[] = "tmp-XXXXXX";
char tempdir2[] = "tmp-XXXXXX";
char tempdir3[] = "tmp-XXXXXX";
SXE_DIRWATCH dirwatch1;
SXE_DIRWATCH dirwatch2;
SXE_DIRWATCH dirwatch3;
char fname[PATH_MAX];
tap_ev ev;
plan_tests(28);
sxe_register(1, 0);
sxe_init();
/* We need to make a new temporary directory, because *everything* appears
* to change willy-nilly during the build. The current directory has a
* file that always changes. The /tmp directory always seems to have
* spurious changes in it. */
SXEA1(mkdtemp(tempdir1), "Failed to create tempdir: %s", strerror(errno));
SXEA1(mkdtemp(tempdir2), "Failed to create tempdir: %s", strerror(errno));
SXEA1(mkdtemp(tempdir3), "Failed to create tempdir: %s", strerror(errno));
sxe_dirwatch_init();
sxe_dirwatch_init(); /* for coverage */
sxe_dirwatch_add(&dirwatch1, tempdir1, SXE_DIRWATCH_CREATED|SXE_DIRWATCH_MODIFIED|SXE_DIRWATCH_DELETED, test_dirwatch_event, (void *)1);
sxe_dirwatch_add(&dirwatch2, tempdir2, SXE_DIRWATCH_MODIFIED, test_dirwatch_event, (void *)2);
sxe_dirwatch_add(&dirwatch3, tempdir3, SXE_DIRWATCH_DELETED, test_dirwatch_event, (void *)3);
sxe_dirwatch_start();
/* tempdir1: create, modify, delete */
{
char rname[PATH_MAX];
int fd;
snprintf(rname, sizeof rname, "%s/renamed", tempdir1);
snprintf(fname, sizeof fname, "%s/created", tempdir1);
fd = open(fname, O_CREAT|O_RDWR, S_IRWXU);
write(fd, "Hello", 5);
rename(fname, rname);
unlink(rname);
is_eq(test_tap_ev_identifier_wait(TEST_WAIT, &ev), "test_dirwatch_event", "Got a dirwatch event");
is_eq(tap_ev_arg(ev, "chfile"), "created", "Got filename %s", fname);
is(tap_ev_arg(ev, "chflags"), SXE_DIRWATCH_CREATED, "Got flags=SXE_DIRWATCH_CREATED");
is(tap_ev_arg(ev, "user_data"), 1, "Got user_data=1 (%s)", tempdir1);
is_eq(test_tap_ev_identifier_wait(TEST_WAIT, &ev), "test_dirwatch_event", "Got a dirwatch event");
is_eq(tap_ev_arg(ev, "chfile"), "created", "Got filename %s", fname);
is(tap_ev_arg(ev, "chflags"), SXE_DIRWATCH_MODIFIED, "Got flags=SXE_DIRWATCH_MODIFIED");
is(tap_ev_arg(ev, "user_data"), 1, "Got user_data=1 (%s)", tempdir1);
is_eq(test_tap_ev_identifier_wait(TEST_WAIT, &ev), "test_dirwatch_event", "Got a dirwatch event");
is_eq(tap_ev_arg(ev, "chfile"), "created", "Got filename %s", fname);
is(tap_ev_arg(ev, "chflags"), SXE_DIRWATCH_DELETED, "Got flags=SXE_DIRWATCH_DELETED");
is(tap_ev_arg(ev, "user_data"), 1, "Got user_data=1 (%s)", tempdir1);
is_eq(test_tap_ev_identifier_wait(TEST_WAIT, &ev), "test_dirwatch_event", "Got a dirwatch event");
is_eq(tap_ev_arg(ev, "chfile"), "renamed", "Got filename %s", rname);
is(tap_ev_arg(ev, "chflags"), SXE_DIRWATCH_CREATED, "Got flags=SXE_DIRWATCH_CREATED");
is(tap_ev_arg(ev, "user_data"), 1, "Got user_data=1 (%s)", tempdir1);
is_eq(test_tap_ev_identifier_wait(TEST_WAIT, &ev), "test_dirwatch_event", "Got a dirwatch event");
is_eq(tap_ev_arg(ev, "chfile"), "renamed", "Got filename %s", rname);
is(tap_ev_arg(ev, "chflags"), SXE_DIRWATCH_DELETED, "Got flags=SXE_DIRWATCH_DELETED");
is(tap_ev_arg(ev, "user_data"), 1, "Got user_data=1 (%s)", tempdir1);
}
/* tempdir2: modified */
{
const char *rel;
int fd;
snprintf(fname, sizeof fname, "%s/file.XXXXXX", tempdir2);
SXEA1((rel = strchr(fname, '/')), "Didn't find '/' in %s", fname);
rel++;
fd = mkstemp(fname);
write(fd, "Hello", 5);
unlink(fname);
is_eq(test_tap_ev_identifier_wait(TEST_WAIT, &ev), "test_dirwatch_event", "Got a dirwatch event");
is_eq(tap_ev_arg(ev, "chfile"), rel, "Got filename %s", fname);
is(tap_ev_arg(ev, "chflags"), SXE_DIRWATCH_MODIFIED, "Got flags=SXE_DIRWATCH_MODIFIED");
is(tap_ev_arg(ev, "user_data"), 2, "Got user_data=2 (%s)", tempdir2);
}
/* tempdir3: deleted */
{
const char *rel;
int fd;
snprintf(fname, sizeof fname, "%s/file.XXXXXX", tempdir3);
SXEA1((rel = strchr(fname, '/')), "Didn't find '/' in %s", fname);
rel++;
fd = mkstemp(fname);
unlink(fname);
is_eq(test_tap_ev_identifier_wait(TEST_WAIT, &ev), "test_dirwatch_event", "Got a dirwatch event");
is_eq(tap_ev_arg(ev, "chfile"), rel, "Got filename %s", fname);
is(tap_ev_arg(ev, "chflags"), SXE_DIRWATCH_DELETED, "Got flags=SXE_DIRWATCH_DELETED");
is(tap_ev_arg(ev, "user_data"), 3, "Got user_data=3 (%s)", tempdir3);
}
rmdir(tempdir1);
rmdir(tempdir2);
rmdir(tempdir3);
sxe_dirwatch_stop();
#endif
return exit_status();
}
int
main(int argc, char ** argv)
{
#ifdef WINDOWS_NT
SXEL10("WARNING: Need to implement sxe_spawn() on Windows to run this test file!");
#else
int fd;
double start_time;
unsigned count;
unsigned id;
unsigned * pool;
unsigned * shared;
size_t size;
SXE_MMAP memmap;
SXE_RETURN result;
SXE_SPAWN spawn[TEST_CLIENT_INSTANCES];
if (argc > 1) {
count = atoi(argv[1]);
sxe_mmap_open(&memmap, "memmap");
shared = (unsigned *)(unsigned long)SXE_MMAP_ADDR(&memmap);
pool = sxe_pool_from_base(shared);
SXEL63("Instance %u mapped to shared pool // base=%p, pool=%p", count, shared, pool);
do {
usleep(10000 * count);
id = sxe_pool_set_oldest_element_state_locked(pool, TEST_STATE_FREE, TEST_STATE_CLIENT_TAKE);
SXEA10(id != SXE_POOL_LOCK_NEVER_TAKEN, "Got SXE_POOL_LOCK_NEVER_TAKEN");;
} while (id == SXE_POOL_NO_INDEX);
SXEL62("Instance %u got pool element %u", count, id);
pool[id] = count;
sxe_pool_set_indexed_element_state_locked(pool, id, TEST_STATE_CLIENT_TAKE, TEST_STATE_CLIENT_DONE);
sxe_mmap_close(&memmap);
SXEL61("Instance %u exiting", count);
return 0;
}
plan_tests(5);
ok((size = sxe_pool_size(TEST_CLIENT_INSTANCES/2, sizeof(*pool), TEST_STATE_NUMBER_OF_STATES)) >= TEST_CLIENT_INSTANCES * sizeof(*pool),
"Expect pool size %u to be at least the size of the array %u", size, TEST_CLIENT_INSTANCES * sizeof(*pool));
SXEA11((fd = open("memmap", O_CREAT | O_TRUNC | O_WRONLY, 0666)) >= 0, "Failed to create file 'memmap': %s", strerror(errno));
SXEA12(ftruncate(fd, size) >= 0, "Failed to extend the file to %lu bytes: %s", size, strerror(errno));
close(fd);
sxe_mmap_open(&memmap, "memmap");
shared = (unsigned *)(unsigned long)SXE_MMAP_ADDR(&memmap);
pool = sxe_pool_construct(shared, "shared-pool", TEST_CLIENT_INSTANCES/2, sizeof(*pool), TEST_STATE_NUMBER_OF_STATES, SXE_POOL_LOCKS_ENABLED);
sxe_register(TEST_CLIENT_INSTANCES + 1, 0);
SXEA11((result = sxe_init()) == SXE_RETURN_OK, "Failed to initialize the SXE package: %s", sxe_return_to_string(result));
for (count = 1; count <= TEST_CLIENT_INSTANCES; count++) {
char buffer[12];
snprintf(buffer, sizeof(buffer), "%u", count);
result = sxe_spawn(NULL, &spawn[count - 1], argv[0], buffer, NULL, NULL, NULL, NULL);
SXEA13(result == SXE_RETURN_OK, "Failed to spawn '%s %s': %s", argv[0], buffer, sxe_return_to_string(result));
}
start_time = sxe_get_time_in_seconds();
for (count = 0; (count < TEST_CLIENT_INSTANCES); ) {
SXEA10((TEST_WAIT + start_time ) > sxe_get_time_in_seconds(), "Unexpected timeout... is the hardware too slow?");
usleep(10000);
id = sxe_pool_set_oldest_element_state_locked(pool, TEST_STATE_CLIENT_DONE, TEST_STATE_FREE);
/* Assert here in the test. The actual service would take specific action here */
SXEA12(id != SXE_POOL_LOCK_NEVER_TAKEN, "Parent: Failed to acqure lock .. yield limit reached. id %u vs %u", id, SXE_POOL_LOCK_NEVER_TAKEN);
if (id != SXE_POOL_NO_INDEX) {
SXEL62("Looks like instance %u got element %u", pool[id], id);
count++;
}
}
ok(count == TEST_CLIENT_INSTANCES, "All clients got an element in the pool");
start_time = sxe_get_time_in_seconds();
for (count = 0; (count < TEST_CLIENT_INSTANCES); count++) {
SXEA10((TEST_WAIT + start_time ) > sxe_get_time_in_seconds(), "Unexpected timeout... is the hardware too slow?");
waitpid(spawn[count].pid, NULL, 0);
}
ok(SXE_POOL_LOCK_NEVER_TAKEN != sxe_pool_lock(pool), "Forced lock to be always locked!");
id = sxe_pool_set_oldest_element_state_locked(pool, TEST_STATE_FREE, TEST_STATE_FREE);
ok(id == SXE_POOL_LOCK_NEVER_TAKEN, "sxe_pool_set_oldest_element_state_locked() Failed to acquire lock");
id = sxe_pool_set_indexed_element_state_locked(pool, 0, TEST_STATE_FREE, TEST_STATE_FREE);
ok(id == SXE_POOL_LOCK_NEVER_TAKEN, "sxe_pool_set_indexed_element_state_locked() Failed to acquire lock");
sxe_pool_unlock(pool);
sxe_pool_override_locked(pool); /* for coverage */
sxe_mmap_close(&memmap);
return exit_status();
#endif
}
