/// Purge entries in bulk mode
inline void purge_removed_bulk(entry_ptr* it, size_t len) noexcept
{
available_size_ += len;
if (unlike(!available_queue_->try_enqueue_bulk(it, len))) {
throw std::runtime_error("purge_removed_bulk: try enqueue failed");
}
}
/// Purge entries
inline void purge_removed(entry_ptr entry) noexcept
{
available_size_++;
if (unlike(!available_queue_->try_enqueue(entry))) {
throw std::runtime_error("purge_removed: try enqueue failed");
}
}
entry_ptr emplace_entry(Args&& ...args)
{
entry_ptr entry = nullptr;
if (unlike(!available_queue_->try_dequeue(entry))) {
throw std::runtime_error("emplace_entry: no available entry");
}
available_size_--;
new (entry->data) value_type(std::forward<Args>(args)...);
entry->activate = true;
return entry;
}
/// Available entry (move semantic)
inline entry_ptr available_entry(value_type&& v)
{
entry_ptr entry = nullptr;
if (unlike(!available_queue_->try_dequeue(entry))) {
throw std::runtime_error("available_entry: no available entry");
}
available_size_--;
new (entry->data) value_type();
*(entry->data) = std::move(v);
entry->activate = true;
return entry;
}
int main (int argc, char **argv, char **env) {
argc = argc; argv = argv; env = env;
#ifndef EMBEDDEDPERL
plan(1);
ok(1, "skipped epn tests");
return exit_status();
#endif
#ifdef EMBEDDEDPERL
int rc, rrc;
char *result, *error;
char cmd[120];
plan(21);
/* create options structure and set debug level */
mod_gm_opt = malloc(sizeof(mod_gm_opt_t));
set_default_options(mod_gm_opt);
char cmds[150];
strcpy(cmds, "--p1_file=worker/mod_gearman2_p1.pl");
parse_args_line(mod_gm_opt, cmds, 0);
strcpy(cmds, "--enable_embedded_perl=on");
parse_args_line(mod_gm_opt, cmds, 0);
strcpy(cmds, "--use_embedded_perl_implicitly=on");
parse_args_line(mod_gm_opt, cmds, 0);
/*
* mod_gm_opt->debug_level=4;
* dumpconfig(mod_gm_opt, GM_WORKER_MODE);
*/
ok(p1_file != NULL, "p1_file: %s", p1_file);
/*****************************************
* send_gearman
*/
init_embedded_perl(env);
rc=file_uses_embedded_perl("t/ok.pl");
cmp_ok(rc, "==", TRUE, "ok.pl: file_uses_embedded_perl returned rc %d", rc);
rc=file_uses_embedded_perl("t/noepn.pl");
cmp_ok(rc, "==", FALSE, "noepn.pl: file_uses_embedded_perl returned rc %d", rc);
strcpy(cmd, "./t/fail.pl");
rrc = real_exit_code(run_check(cmd, &result, &error));
cmp_ok(rrc, "==", 3, "cmd '%s' returned rc %d", cmd, rrc);
like(result, "ePN failed to compile", "returned result string");
like(error, "^$", "returned error string");
free(result);
free(error);
strcpy(cmd, "./t/ok.pl");
rrc = real_exit_code(run_check(cmd, &result, &error));
cmp_ok(rrc, "==", 0, "cmd '%s' returned rc %d", cmd, rrc);
like(result, "test plugin OK", "returned result string");
unlike(result, "plugin did not call exit", "returned result string");
like(error, "^$", "returned error string");
free(result);
free(error);
strcpy(cmd, "./t/crit.pl");
rrc = real_exit_code(run_check(cmd, &result, &error));
cmp_ok(rrc, "==", 2, "cmd '%s' returned rc %d", cmd, rrc);
like(result, "test plugin CRITICAL", "returned result string");
like(error, "some errors on stderr", "returned error string");
free(result);
free(error);
strcpy(cmd, "./t/noexit.pl");
rrc = real_exit_code(run_check(cmd, &result, &error));
cmp_ok(rrc, "==", 3, "cmd '%s' returned rc %d", cmd, rrc);
like(result, "sample output but no exit", "returned result string");
like(result, "plugin did not call exit", "returned result string");
like(error, "^$", "returned error string");
free(result);
free(error);
/* test mini epn */
strcpy(cmd, "./mod_gearman2_mini_epn ./t/ok.pl");
rrc = real_exit_code(run_check(cmd, &result, &error));
cmp_ok(rrc, "==", 0, "cmd '%s' returned rc %d", cmd, rrc);
like(result, "plugin return code: 0", "contains return code");
like(result, "perl plugin output: 'test plugin OK", "contains plugin output");
like(error, "^$", "returned error string");
free(result);
free(error);
/*****************************************
* clean up
*/
mod_gm_free_opt(mod_gm_opt);
deinit_embedded_perl(0);
return exit_status();
#endif
}
