sharpetronics/strongswan
1
0
Fork 0
mirror of https://github.com/strongswan/strongswan.git synced 2025-10-08 00:02:03 -04:00
Code Issues Projects Releases Wiki Activity

reenabled module tests for charon

Browse Source
This commit is contained in:
Martin Willi 2006-07-14 11:16:49 +00:00
parent b34be51cef
commit ead36455a9
4 changed files with 27 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/charon/Makefile.am
View File

@ -1,3 +1,5 @@
SUBDIRS = . testing
ipsec_PROGRAMS = charon ipsec_PROGRAMS = charon
charon_SOURCES = \ charon_SOURCES = \

7
src/charon/testing/Makefile.am
View File

@ -17,10 +17,9 @@ rsa_test.h generator_test.h aes_cbc_crypter_test.h send_queue_test.c
testing_LDADD = $(top_builddir)/src/libstrongswan/libstrongswan.la -lgmp -lpthread -lm \ testing_LDADD = $(top_builddir)/src/libstrongswan/libstrongswan.la -lgmp -lpthread -lm \
$(top_srcdir)/src/charon/connection.o $(top_srcdir)/src/charon/local_connection_store.o $(top_srcdir)/src/charon/policy.o \ $(top_srcdir)/src/charon/connection.o $(top_srcdir)/src/charon/local_connection_store.o $(top_srcdir)/src/charon/policy.o \
$(top_srcdir)/src/charon/local_policy_store.o $(top_srcdir)/src/charon/local_credential_store.o $(top_srcdir)/src/charon/traffic_selector.o \ $(top_srcdir)/src/charon/local_policy_store.o $(top_srcdir)/src/charon/local_credential_store.o $(top_srcdir)/src/charon/traffic_selector.o \
$(top_srcdir)/src/charon/proposal.o $(top_srcdir)/src/charon/configuration.o $(top_srcdir)/src/charon/state.o $(top_srcdir)/src/charon/ike_sa_init_requested.o \ $(top_srcdir)/src/charon/proposal.o $(top_srcdir)/src/charon/configuration.o $(top_srcdir)/src/charon/transaction.o \
$(top_srcdir)/src/charon/ike_sa_init_responded.o $(top_srcdir)/src/charon/ike_sa_established.o $(top_srcdir)/src/charon/responder_init.o \ $(top_srcdir)/src/charon/ike_sa_init.o $(top_srcdir)/src/charon/ike_auth.o $(top_srcdir)/src/charon/create_child_sa.o \
$(top_srcdir)/src/charon/initiator_init.o $(top_srcdir)/src/charon/ike_auth_requested.o $(top_srcdir)/src/charon/delete_ike_sa_requested.o \ $(top_srcdir)/src/charon/delete_child_sa.o $(top_srcdir)/src/charon/delete_ike_sa.o $(top_srcdir)/src/charon/dead_peer_detection.o \
$(top_srcdir)/src/charon/delete_child_sa_requested.o $(top_srcdir)/src/charon/create_child_sa_requested.o \
$(top_srcdir)/src/charon/child_sa.o $(top_srcdir)/src/charon/ike_sa.o $(top_srcdir)/src/charon/ike_sa_manager.o $(top_srcdir)/src/charon/ike_sa_id.o \ $(top_srcdir)/src/charon/child_sa.o $(top_srcdir)/src/charon/ike_sa.o $(top_srcdir)/src/charon/ike_sa_manager.o $(top_srcdir)/src/charon/ike_sa_id.o \
$(top_srcdir)/src/charon/authenticator.o $(top_srcdir)/src/charon/encryption_payload.o $(top_srcdir)/src/charon/cert_payload.o \ $(top_srcdir)/src/charon/authenticator.o $(top_srcdir)/src/charon/encryption_payload.o $(top_srcdir)/src/charon/cert_payload.o \
$(top_srcdir)/src/charon/traffic_selector_substructure.o $(top_srcdir)/src/charon/transform_attribute.o $(top_srcdir)/src/charon/configuration_attribute.o \ $(top_srcdir)/src/charon/traffic_selector_substructure.o $(top_srcdir)/src/charon/transform_attribute.o $(top_srcdir)/src/charon/configuration_attribute.o \

31
src/charon/testing/identification_test.c
View File

@ -34,6 +34,7 @@ void test_identification(protected_tester_t *tester)
{ {
identification_t *a, *b, *c, *d; identification_t *a, *b, *c, *d;
bool result; bool result;
int wildcards;
{ /* test RFC822_ADDR */ { /* test RFC822_ADDR */
char *bob_string = "bob@wonderland.net"; char *bob_string = "bob@wonderland.net";
@ -44,17 +45,17 @@ void test_identification(protected_tester_t *tester)
c = identification_create_from_string("*@wonderland.net"); c = identification_create_from_string("*@wonderland.net");
d = identification_create_from_string("*@badlands.com"); d = identification_create_from_string("*@badlands.com");
result = a->belongs_to(a, c); result = a->matches(a, c, &wildcards);
tester->assert_true(tester, result, "alice belongs to wonderland"); tester->assert_true(tester, result, "alice belongs to wonderland");
result = b->belongs_to(b, c); result = b->matches(b, c, &wildcards);
tester->assert_true(tester, result, "bob belongs to wonderland"); tester->assert_true(tester, result, "bob belongs to wonderland");
result = a->belongs_to(a, d); result = a->matches(a, d, &wildcards);
tester->assert_false(tester, result, "alice does not belong to badlands"); tester->assert_false(tester, result, "alice does not belong to badlands");
result = b->belongs_to(b, d); result = b->matches(b, d, &wildcards);
tester->assert_false(tester, result, "bob does not belong to badlands"); tester->assert_false(tester, result, "bob does not belong to badlands");
result = c->belongs_to(c, d); result = c->matches(c, d, &wildcards);
tester->assert_false(tester, result, "wonderland is not in badlands"); tester->assert_false(tester, result, "wonderland is not in badlands");
result = a->belongs_to(a, a); result = a->matches(a, a, &wildcards);
tester->assert_true(tester, result, "alice belongs to alice alice"); tester->assert_true(tester, result, "alice belongs to alice alice");
result = a->equals(a, a); result = a->equals(a, a);
tester->assert_true(tester, result, "alice is alice"); tester->assert_true(tester, result, "alice is alice");
@ -76,17 +77,17 @@ void test_identification(protected_tester_t *tester)
c = identification_create_from_string("@*.nirvana.org"); c = identification_create_from_string("@*.nirvana.org");
d = identification_create_from_string("@*.samsara.com"); d = identification_create_from_string("@*.samsara.com");
result = a->belongs_to(a, c); result = a->matches(a, c, &wildcards);
tester->assert_true(tester, result, "carol belongs to nirvana"); tester->assert_true(tester, result, "carol belongs to nirvana");
result = b->belongs_to(b, c); result = b->matches(b, c, &wildcards);
tester->assert_true(tester, result, "dave belongs to nirvana"); tester->assert_true(tester, result, "dave belongs to nirvana");
result = a->belongs_to(a, d); result = a->matches(a, d, &wildcards);
tester->assert_false(tester, result, "carol does not belong to samsara"); tester->assert_false(tester, result, "carol does not belong to samsara");
result = b->belongs_to(b, d); result = b->matches(b, d, &wildcards);
tester->assert_false(tester, result, "dave does not belong to samsara"); tester->assert_false(tester, result, "dave does not belong to samsara");
result = c->belongs_to(c, d); result = c->matches(c, d, &wildcards);
tester->assert_false(tester, result, "nirvana is not in samsara"); tester->assert_false(tester, result, "nirvana is not in samsara");
result = a->belongs_to(a, a); result = a->matches(a, a, &wildcards);
tester->assert_true(tester, result, "carol belongs to carol carol"); tester->assert_true(tester, result, "carol belongs to carol carol");
result = a->equals(a, a); result = a->equals(a, a);
tester->assert_true(tester, result, "carol is carol"); tester->assert_true(tester, result, "carol is carol");
@ -150,12 +151,12 @@ void test_identification(protected_tester_t *tester)
tester->assert_true(tester, result, "DN of alice equals DN of alice"); tester->assert_true(tester, result, "DN of alice equals DN of alice");
result = a->equals(a, b); result = a->equals(a, b);
tester->assert_false(tester, result, "DN of alice doesn't equal DN of bob"); tester->assert_false(tester, result, "DN of alice doesn't equal DN of bob");
result = a->belongs_to(a, c); result = a->matches(a, c, &wildcards);
tester->assert_true(tester, result, "DN of alice belongs to DN of carol"); tester->assert_true(tester, result, "DN of alice belongs to DN of carol");
/* TODO: This does NOT work, wildcard check should work with unordered RDNs */ /* TODO: This does NOT work, wildcard check should work with unordered RDNs */
result = b->belongs_to(b, c); result = b->matches(b, c, &wildcards);
tester->assert_true(tester, result, "DN of bob belongs to DN of carol"); tester->assert_true(tester, result, "DN of bob belongs to DN of carol");
result = b->belongs_to(b, d); result = b->matches(b, d, &wildcards);
tester->assert_false(tester, result, "DN of bob doesn't belong to DN of dave"); tester->assert_false(tester, result, "DN of bob doesn't belong to DN of dave");
a->destroy(a); a->destroy(a);

12
src/charon/testing/kernel_interface_test.c
View File

@ -69,10 +69,10 @@
left = host_create(AF_INET, "10.1.0.0", 0); left = host_create(AF_INET, "10.1.0.0", 0);
right = host_create(AF_INET, "10.2.0.0", 0); right = host_create(AF_INET, "10.2.0.0", 0);
status = kernel_interface->add_policy(kernel_interface, me, other, left, right, 16, 16, XFRM_POLICY_OUT, 0, PROTO_ESP, 1234); status = kernel_interface->add_policy(kernel_interface, me, other, left, right, 16, 16, XFRM_POLICY_OUT, 0, PROTO_ESP, 1234, FALSE);
tester->assert_true(tester, status == SUCCESS, "add policy"); tester->assert_true(tester, status == SUCCESS, "add policy");
status = kernel_interface->del_policy(kernel_interface, me, other, left, right, 16, 16, XFRM_POLICY_OUT, 0); status = kernel_interface->del_policy(kernel_interface, left, right, 16, 16, XFRM_POLICY_OUT, 0);
tester->assert_true(tester, status == SUCCESS, "del policy"); tester->assert_true(tester, status == SUCCESS, "del policy");
status = kernel_interface->del_sa(kernel_interface, other, spi, PROTO_ESP); status = kernel_interface->del_sa(kernel_interface, other, spi, PROTO_ESP);
@ -144,11 +144,11 @@ void test_kernel_interface_update_hosts(protected_tester_t *tester)
left = host_create(AF_INET, "10.1.0.0", 0); left = host_create(AF_INET, "10.1.0.0", 0);
right = host_create(AF_INET, "10.2.0.0", 0); right = host_create(AF_INET, "10.2.0.0", 0);
status = kernel_interface->add_policy(kernel_interface, me, other, left, right, 16, 16, XFRM_POLICY_OUT, 0, PROTO_ESP, 1234); status = kernel_interface->add_policy(kernel_interface, me, other, left, right, 16, 16, XFRM_POLICY_OUT, 0, PROTO_ESP, 1234, FALSE);
tester->assert_true(tester, status == SUCCESS, "add policy OUT"); tester->assert_true(tester, status == SUCCESS, "add policy OUT");
status = kernel_interface->add_policy(kernel_interface, me, other, left, right, 16, 16, XFRM_POLICY_IN, 0, PROTO_ESP, 1234); status = kernel_interface->add_policy(kernel_interface, me, other, left, right, 16, 16, XFRM_POLICY_IN, 0, PROTO_ESP, 1234, FALSE);
tester->assert_true(tester, status == SUCCESS, "add policy IN"); tester->assert_true(tester, status == SUCCESS, "add policy IN");
status = kernel_interface->add_policy(kernel_interface, me, other, left, right, 16, 16, XFRM_POLICY_FWD, 0, PROTO_ESP, 1234); status = kernel_interface->add_policy(kernel_interface, me, other, left, right, 16, 16, XFRM_POLICY_FWD, 0, PROTO_ESP, 1234, FALSE);
tester->assert_true(tester, status == SUCCESS, "add policy FWD"); tester->assert_true(tester, status == SUCCESS, "add policy FWD");
new_me = host_create(AF_INET, "192.168.1.12", 4500); new_me = host_create(AF_INET, "192.168.1.12", 4500);
@ -157,7 +157,7 @@ void test_kernel_interface_update_hosts(protected_tester_t *tester)
status = kernel_interface->update_sa_hosts(kernel_interface, me, other, new_me, new_other, me->get_differences(me, new_me), other->get_differences(other, new_other), spi, PROTO_ESP); status = kernel_interface->update_sa_hosts(kernel_interface, me, other, new_me, new_other, me->get_differences(me, new_me), other->get_differences(other, new_other), spi, PROTO_ESP);
tester->assert_true(tester, status == SUCCESS, "update hosts on sa"); tester->assert_true(tester, status == SUCCESS, "update hosts on sa");
status = kernel_interface->del_policy(kernel_interface, me, other, left, right, 16, 16, XFRM_POLICY_OUT, 0); status = kernel_interface->del_policy(kernel_interface, left, right, 16, 16, XFRM_POLICY_OUT, 0);
tester->assert_true(tester, status == SUCCESS, "del policy"); tester->assert_true(tester, status == SUCCESS, "del policy");
status = kernel_interface->del_sa(kernel_interface, other, spi, PROTO_ESP); status = kernel_interface->del_sa(kernel_interface, other, spi, PROTO_ESP);