1 files changed, 112 insertions, 0 deletions
diff --git a/test/test_ssl.c b/test/test_ssl.c
new file mode 100644
index 0000000..81b939d
--- /dev/null
+++ b/test/test_ssl.c
@@ -0,0 +1,112 @@
+/* Copyright 2008 Justin Erenkrantz and Greg Stein
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+#include <apr.h>
+#include <apr_pools.h>
+#include <apr_strings.h>
+#include <apr_env.h>
+
+#include "serf.h"
+#include "serf_bucket_types.h"
+
+#include "test_serf.h"
+
+#if defined(WIN32) && defined(_DEBUG)
+/* Include this file to allow running a Debug build of serf with a Release
+   build of OpenSSL. */
+#include <openssl/applink.c>
+#endif
+
+/* Test setting up the openssl library. */
+static void test_ssl_init(CuTest *tc)
+{
+    serf_bucket_t *bkt, *stream;
+    serf_ssl_context_t *ssl_context;
+    apr_status_t status;
+
+    apr_pool_t *test_pool = test_setup();
+    serf_bucket_alloc_t *alloc = serf_bucket_allocator_create(test_pool, NULL,
+                                                              NULL);
+
+    stream = SERF_BUCKET_SIMPLE_STRING("", alloc);
+
+    bkt = serf_bucket_ssl_decrypt_create(stream, NULL,
+                                         alloc);
+    ssl_context = serf_bucket_ssl_decrypt_context_get(bkt);
+
+    bkt = serf_bucket_ssl_encrypt_create(stream, ssl_context,
+                                         alloc);
+
+    status = serf_ssl_use_default_certificates(ssl_context);
+
+    CuAssertIntEquals(tc, APR_SUCCESS, status);
+    test_teardown(test_pool);
+}
+
+/* Test that loading a custom CA certificate file works. */
+static void test_ssl_load_cert_file(CuTest *tc)
+{
+    serf_ssl_certificate_t *cert = NULL;
+
+    apr_pool_t *test_pool = test_setup();
+    apr_status_t status = serf_ssl_load_cert_file(&cert, "test/serftestca.pem",
+                                                  test_pool);
+
+    CuAssertIntEquals(tc, APR_SUCCESS, status);
+    CuAssertPtrNotNull(tc, cert);
+    test_teardown(test_pool);
+}
+
+/* Test that reading a custom CA certificate file works. */
+static void test_ssl_cert_subject(CuTest *tc)
+{
+    apr_hash_t *subject;
+    serf_ssl_certificate_t *cert = NULL;
+    apr_status_t status;
+
+    apr_pool_t *test_pool = test_setup();
+
+    status = serf_ssl_load_cert_file(&cert, "test/serftestca.pem", test_pool);
+
+    CuAssertIntEquals(tc, APR_SUCCESS, status);
+    CuAssertPtrNotNull(tc, cert);
+
+    subject = serf_ssl_cert_subject(cert, test_pool);
+    CuAssertStrEquals(tc, "Test Suite", 
+                      apr_hash_get(subject, "OU", APR_HASH_KEY_STRING));
+    CuAssertStrEquals(tc, "In Serf we trust, Inc.", 
+                      apr_hash_get(subject, "O", APR_HASH_KEY_STRING));
+    CuAssertStrEquals(tc, "Mechelen", 
+                      apr_hash_get(subject, "L", APR_HASH_KEY_STRING));
+    CuAssertStrEquals(tc, "Antwerp", 
+                      apr_hash_get(subject, "ST", APR_HASH_KEY_STRING));
+    CuAssertStrEquals(tc, "BE", 
+                      apr_hash_get(subject, "C", APR_HASH_KEY_STRING));
+    CuAssertStrEquals(tc, "serf@example.com", 
+                      apr_hash_get(subject, "E", APR_HASH_KEY_STRING));
+
+    test_teardown(test_pool);
+}
+
+CuSuite *test_ssl(void)
+{
+    CuSuite *suite = CuSuiteNew();
+
+    SUITE_ADD_TEST(suite, test_ssl_init);
+    SUITE_ADD_TEST(suite, test_ssl_load_cert_file);
+    SUITE_ADD_TEST(suite, test_ssl_cert_subject);
+
+    return suite;
+}