From c9cf025fadfe043f0f2f679e10d1207d8a158bb6 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Sun, 7 Apr 2024 17:01:31 +0200
Subject: Adding debian version 2.4.57-2.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 debian/perl-framework/t/modules/ldap.t | 52 ++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 debian/perl-framework/t/modules/ldap.t

(limited to 'debian/perl-framework/t/modules/ldap.t')

diff --git a/debian/perl-framework/t/modules/ldap.t b/debian/perl-framework/t/modules/ldap.t
new file mode 100644
index 0000000..d3bb8e9
--- /dev/null
+++ b/debian/perl-framework/t/modules/ldap.t
@@ -0,0 +1,52 @@
+use strict;
+use warnings FATAL => 'all';
+
+#
+# To run tests for mod_authnz_ldap:
+#
+# a) run an LDAP server with root DN of dc=example,dc=com on localhost port 8389
+# b) populate the directory with the LDIF from scripts/httpd.ldif
+# c) configure & run the test suite passing "--defines LDAP" to ./t/TEST
+#
+
+use Apache::Test;
+use Apache::TestRequest;
+use Apache::TestUtil;
+use Apache::TestConfig;
+
+my $defs = Apache::Test->vars('defines');
+my $ldap_defined = $defs =~ /LDAP/;
+
+# URL -> username, password, expected-status
+my @cases = (
+    ['/modules/ldap/simple/' => '', '', 401],
+    ['/modules/ldap/simple/' => 'alpha', 'badpass', 401],
+    ['/modules/ldap/simple/' => 'alpha', 'Alpha', 200],
+    ['/modules/ldap/simple/' => 'gamma', 'Gamma', 200],
+    ['/modules/ldap/group/' => 'gamma', 'Gamma', 401],
+    ['/modules/ldap/group/' => 'delta', 'Delta', 200],
+    ['/modules/ldap/refer/' => 'alpha', 'Alpha', 401],
+    ['/modules/ldap/refer/' => 'beta', 'Beta', 200],
+);
+
+plan tests => scalar @cases,
+    need need_module('authnz_ldap'), { "LDAP testing not configured" => $ldap_defined };
+
+foreach my $t (@cases) {
+    my $url = $t->[0];
+    my $username = $t->[1];
+    my $password = $t->[2];
+    my $response;
+    my $creds;
+
+    if ($username) {
+        $response = GET $url, username => $username, password => $password;
+        $creds = "$username/$password";
+    }
+    else {
+        $response = GET $url;
+        $creds = "no credentials";
+    }
+
+    ok t_cmp($response->code, $t->[3], "test for $url with $creds");
+}
-- 
cgit v1.2.3