diff options
Diffstat (limited to 't/001canonical.t')
-rw-r--r-- | t/001canonical.t | 25 |
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 + |