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 }