aboutsummaryrefslogtreecommitdiff
path: root/t/001canonical.t
diff options
context:
space:
mode:
Diffstat (limited to 't/001canonical.t')
-rw-r--r--t/001canonical.t25
1 files changed, 25 insertions, 0 deletions
diff --git a/t/001canonical.t b/t/001canonical.t
new file mode 100644
index 0000000..35909e7
--- /dev/null
+++ b/t/001canonical.t
@@ -0,0 +1,25 @@
+# -*- perl -*-
+use lib qw(lib);
+use strict;
+use Test;
+use Config::Parser::ldap;
+use File::Basename;
+
+plan(tests => 1);
+
+my $cf = new Config::Parser::ldap(filename => basename($0),
+ fh => \*main::DATA);
+
+ok($cf->canonical(delim => ' '),
+ q{base="dc=example,dc=com" deref="never" tls_reqcert="allow" uri="ldap://ldap.example.com ldap://ldap-master.example.com:666"});
+
+
+__DATA__
+# Test config
+
+BASE dc=example,dc=com
+URI ldap://ldap.example.com ldap://ldap-master.example.com:666
+
+ TLS_REQCERT allow
+DEREF never
+

Return to:

Send suggestions and report system problems to the System administrator.