static void test_delenv(CuTest *tc) { char *value; apr_status_t rv; if (!have_env_set) { CuNotImpl(tc, "apr_env_set (skip test for apr_env_delete)"); return; } rv = apr_env_delete(TEST_ENVVAR_NAME, p); have_env_del = (rv != APR_ENOTIMPL); if (!have_env_del) { CuNotImpl(tc, "apr_env_delete"); return; } apr_assert_success(tc, "delete environment variable", rv); if (!have_env_get) { CuNotImpl(tc, "apr_env_get (skip sanity check for apr_env_delete)"); return; } rv = apr_env_get(&value, TEST_ENVVAR_NAME, p); CuAssertIntEquals(tc, APR_ENOENT, rv); }
static void test_delenv(abts_case *tc, void *data) { char *value; apr_status_t rv; if (!have_env_set) { ABTS_NOT_IMPL(tc, "apr_env_set (skip test for apr_env_delete)"); return; } rv = apr_env_delete(TEST_ENVVAR_NAME, p); have_env_del = (rv != APR_ENOTIMPL); if (!have_env_del) { ABTS_NOT_IMPL(tc, "apr_env_delete"); return; } APR_ASSERT_SUCCESS(tc, "delete environment variable", rv); if (!have_env_get) { ABTS_NOT_IMPL(tc, "apr_env_get (skip sanity check for apr_env_delete)"); return; } rv = apr_env_get(&value, TEST_ENVVAR_NAME, p); ABTS_INT_EQUAL(tc, APR_ENOENT, rv); }
/** http://issues.apache.org/bugzilla/show_bug.cgi?id=40764 */ static void test_emptyenv(CuTest *tc) { char *value; apr_status_t rv; if (!(have_env_set && have_env_get)) { CuNotImpl(tc, "apr_env_set (skip test_emptyenv)"); return; } /** Set empty string and test that rv != ENOENT) */ rv = apr_env_set(TEST_ENVVAR_NAME, "", p); apr_assert_success(tc, "set environment variable", rv); rv = apr_env_get(&value, TEST_ENVVAR_NAME, p); apr_assert_success(tc, "get environment variable", rv); CuAssertStrEquals(tc, "", value); if (!have_env_del) { CuNotImpl(tc, "apr_env_del (skip recycle test_emptyenv)"); return; } /** Delete and retest */ rv = apr_env_delete(TEST_ENVVAR_NAME, p); apr_assert_success(tc, "delete environment variable", rv); rv = apr_env_get(&value, TEST_ENVVAR_NAME, p); CuAssertIntEquals(tc, APR_ENOENT, rv); /** Set second variable + test*/ rv = apr_env_set(TEST_ENVVAR2_NAME, TEST_ENVVAR_VALUE, p); apr_assert_success(tc, "set second environment variable", rv); rv = apr_env_get(&value, TEST_ENVVAR2_NAME, p); apr_assert_success(tc, "get second environment variable", rv); CuAssertStrEquals(tc, TEST_ENVVAR_VALUE, value); /** Finally, test ENOENT (first variable) followed by second != ENOENT) */ rv = apr_env_get(&value, TEST_ENVVAR_NAME, p); CuAssertIntEquals(tc, APR_ENOENT, rv); rv = apr_env_get(&value, TEST_ENVVAR2_NAME, p); apr_assert_success(tc, "verify second environment variable", rv); CuAssertStrEquals(tc, TEST_ENVVAR_VALUE, value); /** Cleanup */ apr_env_delete(TEST_ENVVAR2_NAME, p); }
/** http://issues.apache.org/bugzilla/show_bug.cgi?id=40764 */ static void test_emptyenv(abts_case *tc, void *data) { char *value; apr_status_t rv; if (!(have_env_set && have_env_get)) { ABTS_NOT_IMPL(tc, "apr_env_set (skip test_emptyenv)"); return; } /** Set empty string and test that rv != ENOENT) */ rv = apr_env_set(TEST_ENVVAR_NAME, "", p); APR_ASSERT_SUCCESS(tc, "set environment variable", rv); rv = apr_env_get(&value, TEST_ENVVAR_NAME, p); APR_ASSERT_SUCCESS(tc, "get environment variable", rv); ABTS_STR_EQUAL(tc, "", value); if (!have_env_del) { ABTS_NOT_IMPL(tc, "apr_env_del (skip recycle test_emptyenv)"); return; } /** Delete and retest */ rv = apr_env_delete(TEST_ENVVAR_NAME, p); APR_ASSERT_SUCCESS(tc, "delete environment variable", rv); rv = apr_env_get(&value, TEST_ENVVAR_NAME, p); ABTS_INT_EQUAL(tc, APR_ENOENT, rv); /** Set second variable + test*/ rv = apr_env_set(TEST_ENVVAR2_NAME, TEST_ENVVAR_VALUE, p); APR_ASSERT_SUCCESS(tc, "set second environment variable", rv); rv = apr_env_get(&value, TEST_ENVVAR2_NAME, p); APR_ASSERT_SUCCESS(tc, "get second environment variable", rv); ABTS_STR_EQUAL(tc, TEST_ENVVAR_VALUE, value); /** Finally, test ENOENT (first variable) followed by second != ENOENT) */ rv = apr_env_get(&value, TEST_ENVVAR_NAME, p); ABTS_INT_EQUAL(tc, APR_ENOENT, rv); rv = apr_env_get(&value, TEST_ENVVAR2_NAME, p); APR_ASSERT_SUCCESS(tc, "verify second environment variable", rv); ABTS_STR_EQUAL(tc, TEST_ENVVAR_VALUE, value); /** Cleanup */ apr_env_delete(TEST_ENVVAR2_NAME, p); }
int lua_apr_env_delete(lua_State *L) { apr_pool_t *memory_pool; apr_status_t status; const char *name; memory_pool = to_pool(L); name = luaL_checkstring(L, 1); status = apr_env_delete(name, memory_pool); return push_status(L, status); }
/* delete environment variable */ void MVM_proc_delenv(MVMThreadContext *tc, MVMString *var) { apr_status_t rv; char *varstring = MVM_string_utf8_encode_C_string(tc, var); apr_pool_t *tmp_pool; /* need a temporary pool */ if ((rv = apr_pool_create(&tmp_pool, POOL(tc))) != APR_SUCCESS) { free(varstring); MVM_exception_throw_apr_error(tc, rv, "Failed to delete env variable: "); } if ((rv = apr_env_delete((const char *)varstring, tmp_pool)) != APR_SUCCESS) { apr_pool_destroy(tmp_pool); free(varstring); MVM_exception_throw_apr_error(tc, rv, "Failed to get delete variable: "); } apr_pool_destroy(tmp_pool); free(varstring); }
static int ape_env_delete( lua_State* L ) { char const* name = luaL_checkstring( L, 1 ); apr_pool_t** pool = ape_opt_pool( L, 2 ); return ape_status( L, -1, apr_env_delete( name, *pool ) ); }