/* Public domain, no copyright. Use at your own risk. */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <time.h>

#include <check.h>

#include <jwt.h>

/* Older check doesn't have this. */
#ifndef ck_assert_ptr_ne
#define ck_assert_ptr_ne(X, Y) ck_assert(X != Y)
#endif

jwt_t *jwt = NULL;

#define TS_CONST 1570732480L
const time_t iat = TS_CONST;
const time_t not_before = TS_CONST + 60L;
const time_t expires = TS_CONST + 600L;

static void __setup_jwt()
{
	jwt_new(&jwt);
	jwt_add_grant(jwt, "iss", "test");
	jwt_add_grant(jwt, "sub", "user0");
	jwt_add_grants_json(jwt, "{\"aud\": [\"svc1\",\"svc2\"]}");
	jwt_add_grant_int(jwt, "iat", iat);
	jwt_add_grant_bool(jwt, "admin", 1);
	jwt_set_alg(jwt, JWT_ALG_NONE, NULL, 0);
}

static void __teardown_jwt()
{
	jwt_free(jwt);
	jwt = NULL;
}

#define __VAL_EQ(__v, __e) do {					\
	unsigned int __r = jwt_validate(jwt, __v);		\
	ck_assert_int_eq(__r, __e);				\
	ck_assert_int_eq(__e, jwt_valid_get_status(__v));	\
} while(0);

START_TEST(test_jwt_validate_errno)
{
	jwt_valid_t *jwt_valid = NULL;
	unsigned int ret = 0;

	__setup_jwt();
	ck_assert(jwt != NULL);

	ret = jwt_valid_new(&jwt_valid, JWT_ALG_NONE);
	ck_assert_int_eq(ret, 0);
	ck_assert(jwt_valid != NULL);

	/* Validate fails with NULL jwt */
	ret = jwt_validate(NULL, jwt_valid);
	ck_assert_int_eq(ret, JWT_VALIDATION_ERROR);
	ck_assert_int_eq(JWT_VALIDATION_ERROR, jwt_valid_get_status(jwt_valid));

	/* Validate fails with NULL jwt_valid */
	ret = jwt_validate(jwt, NULL);
	ck_assert_int_eq(ret, JWT_VALIDATION_ERROR);

	/* Get status fails with NULL jwt_valid */
	ck_assert_int_eq(JWT_VALIDATION_ERROR, jwt_valid_get_status(NULL));

	jwt_valid_free(jwt_valid);
	__teardown_jwt();
}
END_TEST

START_TEST(test_jwt_valid_algorithm)
{
	jwt_valid_t *jwt_valid = NULL;
	unsigned int ret = 0;

	__setup_jwt();

	/* Matching algorithm is valid */
	ret = jwt_valid_new(&jwt_valid, JWT_ALG_NONE);
	ck_assert_int_eq(ret, 0);
	ck_assert(jwt_valid != NULL);

	__VAL_EQ(jwt_valid, JWT_VALIDATION_SUCCESS);

	jwt_valid_free(jwt_valid);

	/* Wrong algorithm is not valid */
	ret = jwt_valid_new(&jwt_valid, JWT_ALG_HS256);
	ck_assert_int_eq(ret, 0);
	ck_assert(jwt_valid != NULL);
	/* Starts with invalid */
	ck_assert_int_eq(JWT_VALIDATION_ERROR, jwt_valid_get_status(jwt_valid));

	__VAL_EQ(jwt_valid, JWT_VALIDATION_ALG_MISMATCH);

	jwt_valid_free(jwt_valid);
	__teardown_jwt();
}
END_TEST

START_TEST(test_jwt_valid_require_grant)
{
	jwt_valid_t *jwt_valid = NULL;
	unsigned int ret = 0;
	const char *valstr = NULL;
	int valnum = 0;

	__setup_jwt();

	/* Valid when alg matches and all required grants match */
	ret = jwt_valid_new(&jwt_valid, JWT_ALG_NONE);
	ck_assert_int_eq(ret, 0);
	ck_assert(jwt_valid != NULL);

	ret = jwt_valid_add_grant(jwt_valid, "iss", "test");
	ck_assert_int_eq(ret, 0);

	/* No duplicates */
	ret = jwt_valid_add_grant(jwt_valid, "iss", "other");
	ck_assert_int_eq(ret, EEXIST);

	/* Grant has expected value */
	valstr = jwt_valid_get_grant(jwt_valid, "iss");
	ck_assert_ptr_ne(valstr, NULL);
	ck_assert_str_eq(valstr, "test");

	ret = jwt_valid_add_grant_int(jwt_valid, "iat", (long)iat);
	ck_assert_int_eq(ret, 0);

	/* No duplicates for int */
	ret = jwt_valid_add_grant_int(jwt_valid, "iat", (long)time(NULL));
	ck_assert_int_eq(ret, EEXIST);

	/* Grant has expected value */
	valnum = jwt_valid_get_grant_int(jwt_valid, "iat");
	ck_assert_int_eq(valnum, (long)iat);

	ret = jwt_valid_add_grant_bool(jwt_valid, "admin", 1);
	ck_assert_int_eq(ret, 0);

	/* No duplicates for bool */
	ret = jwt_valid_add_grant_bool(jwt_valid, "admin", 0);
	ck_assert_int_eq(ret, EEXIST);

	/* Grant has expected value */
	valnum = jwt_valid_get_grant_bool(jwt_valid, "admin");
	ck_assert_int_eq(valnum, 1);

	ret = jwt_valid_add_grants_json(jwt_valid, "{\"aud\": [\"svc1\",\"svc2\"]}");
	ck_assert_int_eq(ret, 0);

	__VAL_EQ(jwt_valid, JWT_VALIDATION_SUCCESS);

	jwt_valid_free(jwt_valid);
	__teardown_jwt();
}
END_TEST

START_TEST(test_jwt_valid_nonmatch_grant)
{
	jwt_valid_t *jwt_valid = NULL;
	unsigned int ret = 0;

	__setup_jwt();

	ret = jwt_valid_new(&jwt_valid, JWT_ALG_NONE);
	ck_assert_int_eq(ret, 0);
	ck_assert(jwt_valid != NULL);

	/* Invalid when required grants don't match */
	ret = jwt_valid_add_grant(jwt_valid, "iss", "wrong");
	ck_assert_int_eq(ret, 0);

	__VAL_EQ(jwt_valid, JWT_VALIDATION_GRANT_MISMATCH);

	jwt_valid_del_grants(jwt_valid, NULL);

	/* Invalid when required grants don't match (int) */
	ret = jwt_valid_add_grant_int(jwt_valid, "iat", (long)time(NULL) + 1);
	ck_assert_int_eq(ret, 0);

	__VAL_EQ(jwt_valid, JWT_VALIDATION_GRANT_MISMATCH);

	jwt_valid_del_grants(jwt_valid, NULL);

	/* Invalid when required grants don't match (bool) */
	ret = jwt_valid_add_grant_bool(jwt_valid, "admin", 0);
	ck_assert_int_eq(ret, 0);

	__VAL_EQ(jwt_valid, JWT_VALIDATION_GRANT_MISMATCH);

	jwt_valid_del_grants(jwt_valid, NULL);

	/* Invalid when required grants don't match (json) */
	ret = jwt_valid_add_grants_json(jwt_valid, "{\"aud\": [\"svc3\",\"svc4\"]}");
	ck_assert_int_eq(ret, 0);

	__VAL_EQ(jwt_valid, JWT_VALIDATION_GRANT_MISMATCH);

	jwt_valid_free(jwt_valid);
	__teardown_jwt();
}
END_TEST

START_TEST(test_jwt_valid_grant_bool)
{
	jwt_valid_t *jwt_valid = NULL;
	int val;
	unsigned int ret = 0;

	ret = jwt_valid_new(&jwt_valid, JWT_ALG_NONE);
	ck_assert_int_eq(ret, 0);
	ck_assert(jwt_valid != NULL);

	ret = jwt_valid_add_grant_bool(jwt_valid, "admin", 1);
	ck_assert_int_eq(ret, 0);

	val = jwt_valid_get_grant_bool(jwt_valid, "admin");
	ck_assert(val);

	ret = jwt_valid_add_grant_bool(jwt_valid, "test", 0);
	ck_assert_int_eq(ret, 0);

	val = jwt_valid_get_grant_bool(jwt_valid, "test");
	ck_assert(!val);

	val = jwt_valid_get_grant_bool(jwt_valid, "not found");
	ck_assert_int_eq(errno, ENOENT);

	jwt_valid_free(jwt_valid);
}
END_TEST

START_TEST(test_jwt_valid_del_grants)
{
	jwt_valid_t *jwt_valid = NULL;
	const char *val;
	const char testval[] = "testing";
	unsigned int ret = 0;

	ret = jwt_valid_new(&jwt_valid, JWT_ALG_NONE);
	ck_assert_int_eq(ret, 0);
	ck_assert(jwt_valid != NULL);

	ret = jwt_valid_add_grant(jwt_valid, "iss", testval);
	ck_assert_int_eq(ret, 0);

	ret = jwt_valid_add_grant(jwt_valid, "other", testval);
	ck_assert_int_eq(ret, 0);

	ret = jwt_valid_del_grants(jwt_valid, "iss");
	ck_assert_int_eq(ret, 0);

	val = jwt_valid_get_grant(jwt_valid, "iss");
	ck_assert(val == NULL);

	/* Delete non existent. */
	ret = jwt_valid_del_grants(jwt_valid, "iss");
	ck_assert_int_eq(ret, 0);

	/* Delete all grants. */
	ret = jwt_valid_del_grants(jwt_valid, NULL);
	ck_assert_int_eq(ret, 0);

	val = jwt_valid_get_grant(jwt_valid, "other");
	ck_assert(val == NULL);

	jwt_valid_free(jwt_valid);
}
END_TEST

START_TEST(test_jwt_valid_invalid_grant)
{
	jwt_valid_t *jwt_valid = NULL;
	const char *val;
	long valint = 0;
	long valbool = 0;
	unsigned int ret = 0;

	ret = jwt_valid_new(&jwt_valid, JWT_ALG_NONE);
	ck_assert_int_eq(ret, 0);
	ck_assert(jwt_valid != NULL);

	ret = jwt_valid_add_grant(jwt_valid, "iss", NULL);
	ck_assert_int_eq(ret, EINVAL);

	ret = jwt_valid_add_grant_int(jwt_valid, "", (long)time(NULL));
	ck_assert_int_eq(ret, EINVAL);

	val = jwt_valid_get_grant(jwt_valid, NULL);
	ck_assert_int_eq(errno, EINVAL);
	ck_assert(val == NULL);

	valint = jwt_valid_get_grant_int(jwt_valid, NULL);
	ck_assert_int_eq(errno, EINVAL);
	ck_assert(valint == 0);

	valbool = jwt_valid_get_grant_bool(jwt_valid, NULL);
	ck_assert_int_eq(errno, EINVAL);
	ck_assert(valbool == 0);

	jwt_valid_free(jwt_valid);
}
END_TEST

START_TEST(test_jwt_valid_missing_grant)
{
	jwt_valid_t *jwt_valid = NULL;
	unsigned int ret = 0;

	__setup_jwt();

	ret = jwt_valid_new(&jwt_valid, JWT_ALG_NONE);
	ck_assert_int_eq(ret, 0);
	ck_assert(jwt_valid != NULL);

	/* JWT is invalid when required grants are not present */
	ret = jwt_valid_add_grant(jwt_valid, "np-str", "test");
	ck_assert_int_eq(ret, 0);
	__VAL_EQ(jwt_valid, JWT_VALIDATION_GRANT_MISSING);

	jwt_valid_del_grants(jwt_valid, NULL);

	/* JWT is invalid when required grants are not present (int) */
	ret = jwt_valid_add_grant_int(jwt_valid, "np-int", 7);
	ck_assert_int_eq(ret, 0);
	__VAL_EQ(jwt_valid, JWT_VALIDATION_GRANT_MISSING);

	jwt_valid_del_grants(jwt_valid, NULL);

	/* JWT is invalid when required grants are not present (bool) */
	ret = jwt_valid_add_grant_int(jwt_valid, "np-bool", 1);
	ck_assert_int_eq(ret, 0);
	__VAL_EQ(jwt_valid, JWT_VALIDATION_GRANT_MISSING);

	jwt_valid_del_grants(jwt_valid, NULL);

	/* JWT is invalid when required grants are not present (json) */
	ret = jwt_valid_add_grants_json(jwt_valid, "{\"np-other\": [\"foo\",\"bar\"]}");
	ck_assert_int_eq(ret, 0);
	__VAL_EQ(jwt_valid, JWT_VALIDATION_GRANT_MISSING);

	jwt_valid_free(jwt_valid);
	__teardown_jwt();
}
END_TEST

START_TEST(test_jwt_valid_not_before)
{
	jwt_valid_t *jwt_valid = NULL;
	unsigned int ret = 0;

	__setup_jwt();
	jwt_add_grant_int(jwt, "nbf", not_before);

	ret = jwt_valid_new(&jwt_valid, JWT_ALG_NONE);
	ck_assert_int_eq(ret, 0);
	ck_assert(jwt_valid != NULL);

	/* JWT is invalid when now < not-before */
	ret = jwt_valid_set_now(jwt_valid, not_before - 1);
	ck_assert_int_eq(ret, 0);

	__VAL_EQ(jwt_valid, JWT_VALIDATION_TOO_NEW);

	/* JWT is valid when now >= not-before */
	ret = jwt_valid_set_now(jwt_valid, not_before);
	ck_assert_int_eq(ret, 0);

	__VAL_EQ(jwt_valid, JWT_VALIDATION_SUCCESS);

	jwt_valid_free(jwt_valid);
	__teardown_jwt();
}
END_TEST

START_TEST(test_jwt_valid_set_nbf_leeway)
{
	jwt_valid_t *jwt_valid = NULL;
	unsigned int ret = 0;

	__setup_jwt();
	ret = jwt_valid_new(&jwt_valid, JWT_ALG_NONE);
	ck_assert_int_eq(ret, 0);
	ck_assert(jwt_valid != NULL);

	/* 0 by default */
	time_t init_nbf_leeway = jwt_valid_get_nbf_leeway(jwt_valid);
	ck_assert_int_eq(init_nbf_leeway, 0);

	/* Setting nbf_leeway */
	ret = jwt_valid_set_nbf_leeway(jwt_valid, 1);
	ck_assert_int_eq(ret, 0);

	time_t set_nbf_leeway = jwt_valid_get_nbf_leeway(jwt_valid);
	ck_assert_int_eq(set_nbf_leeway, 1);

	jwt_valid_free(jwt_valid);
	__teardown_jwt();
}
END_TEST

START_TEST(test_jwt_valid_not_before_leeway)
{
	jwt_valid_t *jwt_valid = NULL;
	unsigned int ret = 0;

	__setup_jwt();
	jwt_add_grant_int(jwt, "nbf", not_before);

	ret = jwt_valid_new(&jwt_valid, JWT_ALG_NONE);
	ck_assert_int_eq(ret, 0);
	ck_assert(jwt_valid != NULL);

	/* Setting nbf_leeway */
	ret = jwt_valid_set_nbf_leeway(jwt_valid, 10);
	ck_assert_int_eq(ret, 0);

	/* JWT is invalid when now < not-before - nbf_leeway */
	ret = jwt_valid_set_now(jwt_valid, (long)not_before - 15);
	ck_assert_int_eq(ret, 0);

	__VAL_EQ(jwt_valid, JWT_VALIDATION_TOO_NEW);

	/* JWT is valid when now >= not-before - nbf_leeway */
	ret = jwt_valid_set_now(jwt_valid, (long)not_before - 5);
	ck_assert_int_eq(ret, 0);

	__VAL_EQ(jwt_valid, JWT_VALIDATION_SUCCESS);

	jwt_valid_free(jwt_valid);
	__teardown_jwt();
}
END_TEST

START_TEST(test_jwt_valid_expires)
{
	jwt_valid_t *jwt_valid = NULL;
	unsigned int ret = 0;

	__setup_jwt();
	jwt_add_grant_int(jwt, "exp", expires);

	ret = jwt_valid_new(&jwt_valid, JWT_ALG_NONE);
	ck_assert_int_eq(ret, 0);
	ck_assert(jwt_valid != NULL);

	/* JWT is valid when now < expires */
	ret = jwt_valid_set_now(jwt_valid, (long)expires - 1);
	ck_assert_int_eq(ret, 0);

	__VAL_EQ(jwt_valid, JWT_VALIDATION_SUCCESS);

	/* JWT is invalid when now >= expires */
	ret = jwt_valid_set_now(jwt_valid, (long)expires);
	ck_assert_int_eq(ret, 0);

	__VAL_EQ(jwt_valid, JWT_VALIDATION_EXPIRED);

	jwt_valid_free(jwt_valid);
	__teardown_jwt();
}
END_TEST

START_TEST(test_jwt_valid_set_exp_leeway)
{
	jwt_valid_t *jwt_valid = NULL;
	unsigned int ret = 0;

	__setup_jwt();
	ret = jwt_valid_new(&jwt_valid, JWT_ALG_NONE);
	ck_assert_int_eq(ret, 0);
	ck_assert(jwt_valid != NULL);

	/* 0 by default */
	time_t init_exp_leeway = jwt_valid_get_exp_leeway(jwt_valid);
	ck_assert_int_eq(init_exp_leeway, 0);

	/* Setting exp_leeway */
	ret = jwt_valid_set_exp_leeway(jwt_valid, 1);
	ck_assert_int_eq(ret, 0);

	time_t set_exp_leeway = jwt_valid_get_exp_leeway(jwt_valid);
	ck_assert_int_eq(set_exp_leeway, 1);

	jwt_valid_free(jwt_valid);
	__teardown_jwt();
}
END_TEST

START_TEST(test_jwt_valid_expires_leeway)
{
	jwt_valid_t *jwt_valid = NULL;
	unsigned int ret = 0;

	__setup_jwt();
	jwt_add_grant_int(jwt, "exp", expires);

	ret = jwt_valid_new(&jwt_valid, JWT_ALG_NONE);
	ck_assert_int_eq(ret, 0);
	ck_assert(jwt_valid != NULL);

	/* Setting exp_leeway */
	ret = jwt_valid_set_exp_leeway(jwt_valid, 10);
	ck_assert_int_eq(ret, 0);

	/* JWT is valid when now < expires + exp_leeway */
	ret = jwt_valid_set_now(jwt_valid, (long)expires + 5);
	ck_assert_int_eq(ret, 0);

	__VAL_EQ(jwt_valid, JWT_VALIDATION_SUCCESS);

	/* JWT is invalid when now >= expires + exp_leeway */
	ret = jwt_valid_set_now(jwt_valid, (long)expires + 15);
	ck_assert_int_eq(ret, 0);

	__VAL_EQ(jwt_valid, JWT_VALIDATION_EXPIRED);

	jwt_valid_free(jwt_valid);
	__teardown_jwt();
}
END_TEST

START_TEST(test_jwt_valid_headers)
{
	jwt_valid_t *jwt_valid = NULL;
	unsigned int ret = 0;

	__setup_jwt();

	ret = jwt_valid_new(&jwt_valid, JWT_ALG_NONE);
	ck_assert_int_eq(ret, 0);
	ck_assert(jwt_valid != NULL);

	ret = jwt_valid_set_headers(jwt_valid, 1);
	ck_assert_int_eq(ret, 0);

	/* JWT is valid when iss in hdr matches iss in body */
	jwt_add_header(jwt, "iss", "test");
	__VAL_EQ(jwt_valid, JWT_VALIDATION_SUCCESS);

	/* JWT is invalid when iss in hdr does not match iss in body */
	jwt_del_headers(jwt, "iss");
	jwt_add_header(jwt, "iss", "wrong");
	__VAL_EQ(jwt_valid, JWT_VALIDATION_ISS_MISMATCH);

	/* JWT is valid when checking hdr and iss not replicated */
	jwt_del_headers(jwt, "iss");
	__VAL_EQ(jwt_valid, JWT_VALIDATION_SUCCESS);

	/* JWT is valid when iss in hdr matches iss in body */
	jwt_add_header(jwt, "sub", "user0");
	__VAL_EQ(jwt_valid, JWT_VALIDATION_SUCCESS);

	/* JWT is invalid when iss in hdr does not match iss in body */
	jwt_del_headers(jwt, "sub");
	jwt_add_header(jwt, "sub", "wrong");
	__VAL_EQ(jwt_valid, JWT_VALIDATION_SUB_MISMATCH);

	/* JWT is valid when checking hdr and sub not replicated */
	jwt_del_headers(jwt, "sub");
	__VAL_EQ(jwt_valid, JWT_VALIDATION_SUCCESS);

	/* JWT is valid when checking hdr and aud matches */
	jwt_add_headers_json(jwt, "{\"aud\": [\"svc1\",\"svc2\"]}");
	__VAL_EQ(jwt_valid, JWT_VALIDATION_SUCCESS);

	/* JWT is invalid when checking hdr and aud does not match */
	jwt_del_headers(jwt, "aud");
	jwt_add_headers_json(jwt, "{\"aud\": [\"svc1\",\"svc2\",\"svc3\"]}");
	__VAL_EQ(jwt_valid, JWT_VALIDATION_AUD_MISMATCH);

	/* JWT is invalid when checking hdr and aud does not match */
	jwt_del_headers(jwt, "aud");
	__VAL_EQ(jwt_valid, JWT_VALIDATION_SUCCESS);

	jwt_valid_free(jwt_valid);
	__teardown_jwt();
}
END_TEST


#if 1
START_TEST(test_jwt_valid_grants_json)
{
	const char *json = "{\"id\":\"FVvGYTr3FhiURCFebsBOpBqTbzHdX/DvImiA2yheXr8=\","
		"\"iss\":\"localhost\",\"other\":[\"foo\",\"bar\"],"
		"\"ref\":\"385d6518-fb73-45fc-b649-0527d8576130\","
		"\"scopes\":\"storage\",\"sub\":\"user0\"}";
	jwt_valid_t *jwt_valid = NULL;
	const char *val;
	char *json_val;
	unsigned int ret = 0;

	ret = jwt_valid_new(&jwt_valid, JWT_ALG_NONE);
	ck_assert_int_eq(ret, 0);
	ck_assert(jwt_valid != NULL);

	ret = jwt_valid_add_grants_json(jwt_valid, json);
	ck_assert_int_eq(ret, 0);

	val = jwt_valid_get_grant(jwt_valid, "ref");
	ck_assert(val != NULL);
	ck_assert_str_eq(val, "385d6518-fb73-45fc-b649-0527d8576130");

	json_val = jwt_valid_get_grants_json(NULL, "other");
	ck_assert(json_val == NULL);
	ck_assert_int_eq(errno, EINVAL);

	json_val = jwt_valid_get_grants_json(jwt_valid, "other");
	ck_assert(json_val != NULL);
	ck_assert_str_eq(json_val, "[\"foo\",\"bar\"]");

	jwt_free_str(json_val);

	json_val = jwt_valid_get_grants_json(jwt_valid, NULL);
	ck_assert(json_val != NULL);
	ck_assert_str_eq(json_val, json);

	jwt_free_str(json_val);

	jwt_valid_free(jwt_valid);
}
END_TEST
#endif

static Suite *libjwt_suite(void)
{
	Suite *s;
	TCase *tc_core;

	s = suite_create("LibJWT Grant");

	tc_core = tcase_create("jwt_grant");

	tcase_add_test(tc_core, test_jwt_validate_errno);
	tcase_add_test(tc_core, test_jwt_valid_algorithm);
	tcase_add_test(tc_core, test_jwt_valid_require_grant);
	tcase_add_test(tc_core, test_jwt_valid_nonmatch_grant);
	tcase_add_test(tc_core, test_jwt_valid_invalid_grant);
	tcase_add_test(tc_core, test_jwt_valid_missing_grant);
	tcase_add_test(tc_core, test_jwt_valid_grant_bool);
	tcase_add_test(tc_core, test_jwt_valid_grants_json);
	tcase_add_test(tc_core, test_jwt_valid_del_grants);
	tcase_add_test(tc_core, test_jwt_valid_not_before);
	tcase_add_test(tc_core, test_jwt_valid_set_nbf_leeway);
	tcase_add_test(tc_core, test_jwt_valid_not_before_leeway);
	tcase_add_test(tc_core, test_jwt_valid_expires);
	tcase_add_test(tc_core, test_jwt_valid_set_exp_leeway);
	tcase_add_test(tc_core, test_jwt_valid_expires_leeway);
	tcase_add_test(tc_core, test_jwt_valid_headers);

	tcase_set_timeout(tc_core, 30);

	suite_add_tcase(s, tc_core);

	return s;
}

int main(int argc, char *argv[])
{
	int number_failed;
	Suite *s;
	SRunner *sr;

	s = libjwt_suite();
	sr = srunner_create(s);

	srunner_run_all(sr, CK_VERBOSE);
	number_failed = srunner_ntests_failed(sr);
	srunner_free(sr);

	return (number_failed == 0) ? EXIT_SUCCESS : EXIT_FAILURE;
}
