static int eval_driver(const test_case_descriptor_t *tc)
{
int err_count = 0;
#if TEST_TRACE
printf("%s:%d eval %ls\n", tc->tcd_file, tc->tcd_lineno, tc->tcd_input);
#endif
instream_t *in =
make_string_instream(tc->tcd_input, wcslen(tc->tcd_input));
AUTO_ROOT(expr, NIL);
AUTO_ROOT(value, NIL);
AUTO_ROOT(env, make_env(library_env(r6rs_library())));
while (read_stream(in, &expr))
value = eval(expr, env);
/* Compare the value of the last expression. */
const size_t out_size = 100;
wchar_t actual[out_size + 1];
outstream_t *out = make_string_outstream(actual, out_size);
princ(value, out);
delete_outstream(out);
if (wcscmp(actual, tc->tcd_expected)) {
printf("%s:%d FAIL eval test\n", tc->tcd_file, tc->tcd_lineno);
printf(" input = %ls\n", tc->tcd_input);
printf(" actual = %ls\n", actual);
printf(" expected = %ls\n", tc->tcd_expected);
printf("\n");
err_count++;
}
POP_FUNCTION_ROOTS();
return err_count;
}
static int read_driver(const test_case_descriptor_t *tc)
{
int err_count = 0;
#if TEST_TRACE
printf("%s:%d read %ls\n", tc->tcd_file, tc->tcd_lineno, tc->tcd_input);
#endif
collect_garbage();
obj_t input = make_string_from_C_str(tc->tcd_input);
obj_t osip_sym = make_symbol_from_C_str(L"open-string-input-port");
obj_t read_sym = make_symbol_from_C_str(L"read");
obj_t expr = MAKE_LIST(read_sym, MAKE_LIST(osip_sym, input));
obj_t env = root_environment();
obj_t cont = make_cont4(c_eval, EMPTY_LIST, env, expr);
obj_t hname = make_symbol_from_C_str(L"test-handler");
obj_t handler = make_raw_procedure(c_test_handler, hname, env);
obj_t obj = core_eval_cont(cont, EMPTY_LIST, handler);
const size_t out_size = 100;
wchar_t actual[out_size + 1];
outstream_t *out = make_string_outstream(actual, out_size);
princ(obj, out);
delete_outstream(out);
size_t expected_bytes = sizeof (wchar_t) * (tc->tcd_expected_len + 1);
if (memcmp(actual, tc->tcd_expected, expected_bytes)) {
int i;
printf("%s:%d FAIL read test\n", tc->tcd_file, tc->tcd_lineno);
printf(" input = %ls\n", tc->tcd_input);
printf(" actual = %ls = {", actual);
for (i = 0; i <= tc->tcd_expected_len; i++)
printf("\\x%02x, ", actual[i]);
printf("};\n");
printf(" expected = %ls = {", tc->tcd_expected);
for (i = 0; i <= tc->tcd_expected_len; i++)
printf("\\x%02x, ", tc->tcd_expected[i]);
printf("};\n");
printf(" expected_len = %zd", tc->tcd_expected_len);
printf("\n");
err_count++;
}
return err_count;
}
static int read_driver(const test_case_descriptor_t *tc)
{
int err_count = 0;
#if TEST_TRACE
printf("%s:%d read %ls\n", tc->tcd_file, tc->tcd_lineno, tc->tcd_input);
#endif
if (tc->tcd_expected == &lexical) {
return err_count; /* XXX exceptions unimplemented */
}
instream_t *in =
make_string_instream(tc->tcd_input, wcslen(tc->tcd_input));
obj_t *obj;
bool ok = read_stream(in, &obj);
assert(ok);
delete_instream(in);
const size_t out_size = 100;
wchar_t actual[out_size + 1];
outstream_t *out = make_string_outstream(actual, out_size);
princ(obj, out);
size_t expected_bytes = sizeof (wchar_t) * (tc->tcd_expected_len + 1);
if (memcmp(actual, tc->tcd_expected, expected_bytes)) {
int i;
printf("%s:%d FAIL read test\n", tc->tcd_file, tc->tcd_lineno);
printf(" input = %ls\n", tc->tcd_input);
printf(" actual = %ls = {", actual);
for (i = 0; i <= tc->tcd_expected_len; i++)
printf("\\x%02x, ", actual[i]);
printf("};\n");
printf(" expected = %ls = {", tc->tcd_expected);
for (i = 0; i <= tc->tcd_expected_len; i++)
printf("\\x%02x, ", tc->tcd_expected[i]);
printf("};\n");
printf(" expected_len = %d\n", tc->tcd_expected_len);
printf("\n");
err_count++;
}
return err_count;
}
std::pair<uint64_t, uint64_t> Krb5CCache::getLifetime(
krb5_principal principal) const {
const std::string client_realm = getClientPrincipal().getRealm();
std::string princ_realm;
krb5_context ctx = context_.get();
if (principal) {
Krb5Principal princ(ctx, std::move(principal));
princ_realm = princ.getRealm();
princ.release();
} else {
princ_realm = client_realm;
}
for (auto& creds : *this) {
Krb5Principal server(ctx, std::move(creds.server));
if (server.isTgt() &&
server.getComponent(1) == princ_realm &&
server.getRealm() == client_realm) {
return std::make_pair(creds.times.starttime, creds.times.endtime);
}
}
return std::make_pair(0, 0);
}
static int eval_driver(const test_case_descriptor_t *tc)
{
int err_count = 0;
#if TEST_TRACE
printf("%s:%d eval %ls\n", tc->tcd_file, tc->tcd_lineno, tc->tcd_input);
#endif
static const char_t test_source[] =
L"(lambda (port loop env) \n"
L" (set! loop (lambda (form last) \n"
L" (if (eof-object? form) \n"
L" last \n"
L" (loop (read port) (eval form env))))) \n"
L" (loop (read port) #f))";
collect_garbage();
obj_t test_proc;
{
obj_t root_env = root_environment();
obj_t tsrc_str = make_string_from_C_str(test_source);
obj_t eval_sym = make_symbol_from_C_str(L"eval");
obj_t read_sym = make_symbol_from_C_str(L"read");
obj_t osip_sym = make_symbol_from_C_str(L"open-string-input-port");
obj_t renv_sym = make_symbol_from_C_str(L"root-environment");
/*
* (eval (read (open-string-input-port "..."))
* (root-environment))
*/
obj_t form1 = MAKE_LIST(eval_sym,
MAKE_LIST(read_sym,
MAKE_LIST(osip_sym, tsrc_str)),
MAKE_LIST(renv_sym));
test_proc = core_eval(form1, root_env);
// obj_t's are invalidated. core_eval may have GC'd.
}
obj_t port;
{
obj_t root_env = root_environment();
obj_t input_str = make_string_from_C_str(tc->tcd_input);
obj_t osip_sym = make_symbol_from_C_str(L"open-string-input-port");
port = core_eval(MAKE_LIST(osip_sym, input_str), root_env);
}
obj_t root_env = root_environment();
obj_t test_env = make_env(root_env);
obj_t test_args = MAKE_LIST(test_env, FALSE_OBJ, port);
obj_t cont = make_cont5(c_apply_proc,
EMPTY_LIST,
root_env,
test_proc,
EMPTY_LIST);
obj_t hname = make_symbol_from_C_str(L"test-handler");
obj_t handler = make_raw_procedure(c_test_handler, hname, root_env);
obj_t value = core_eval_cont(cont, test_args, handler);
/* Compare the value of the last expression. */
const size_t out_size = 100;
wchar_t actual[out_size + 1];
outstream_t *out = make_string_outstream(actual, out_size);
princ(value, out);
delete_outstream(out);
if (wcscmp(actual, tc->tcd_expected)) {
printf("%s:%d FAIL eval test\n", tc->tcd_file, tc->tcd_lineno);
printf(" input = %ls\n", tc->tcd_input);
printf(" actual = %ls\n", actual);
printf(" expected = %ls\n", tc->tcd_expected);
printf("\n");
err_count++;
}
return err_count;
}
