151 lines
3.9 KiB
Plaintext
151 lines
3.9 KiB
Plaintext
(* Test for LDIF lens *)
|
|
module Test_ldif =
|
|
|
|
(* Test LDIF content only *)
|
|
let content = "version: 1
|
|
dn: cn=foo bar,dc=example,dc=com
|
|
# test
|
|
ou: example value
|
|
cn:: Zm9vIGJhcg==
|
|
# test
|
|
telephoneNumber;foo;bar: +1 123 456 789
|
|
binary;foo:< file:///file/something
|
|
# test
|
|
|
|
dn: cn=simple,dc=example,dc=com
|
|
cn: simple
|
|
test: split line starts with
|
|
:colon
|
|
|
|
dn:: Y249c2ltcGxlLGRjPWV4YW1wbGUsZGM9Y29t
|
|
# test
|
|
cn: simple
|
|
|
|
dn: cn=simple,dc=exam
|
|
ple,dc=com
|
|
cn: simple
|
|
telephoneNumber:: KzEgMTIzIDQ1
|
|
NiA3ODk=
|
|
|
|
# test
|
|
"
|
|
|
|
test Ldif.lns get content =
|
|
{ "@content"
|
|
{ "version" = "1" }
|
|
{ "1" = "cn=foo bar,dc=example,dc=com"
|
|
{ "#comment" = "test" }
|
|
{ "ou" = "example value" }
|
|
{ "cn"
|
|
{ "@base64" = "Zm9vIGJhcg==" } }
|
|
{ "#comment" = "test" }
|
|
{ "telephoneNumber" = "+1 123 456 789"
|
|
{ "@option" = "foo" }
|
|
{ "@option" = "bar" } }
|
|
{ "binary"
|
|
{ "@option" = "foo" }
|
|
{ "@url" = "file:///file/something" } } }
|
|
{ "#comment" = "test" }
|
|
{}
|
|
{ "2" = "cn=simple,dc=example,dc=com"
|
|
{ "cn" = "simple" }
|
|
{ "test" = "split line starts with
|
|
:colon" } }
|
|
{}
|
|
{ "3"
|
|
{ "@base64" = "Y249c2ltcGxlLGRjPWV4YW1wbGUsZGM9Y29t" }
|
|
{ "#comment" = "test" }
|
|
{ "cn" = "simple" } }
|
|
{}
|
|
{ "4" = "cn=simple,dc=exam
|
|
ple,dc=com"
|
|
{ "cn" = "simple" }
|
|
{ "telephoneNumber"
|
|
{ "@base64" = "KzEgMTIzIDQ1
|
|
NiA3ODk=" } } }
|
|
{}
|
|
{ "#comment" = "test" }
|
|
}
|
|
|
|
(* Test LDIF changes *)
|
|
let changes = "version: 1
|
|
dn: cn=foo,dc=example,dc=com
|
|
changetype: delete
|
|
|
|
dn: cn=simple,dc=example,dc=com
|
|
control: 1.2.3.4
|
|
control: 1.2.3.4 true
|
|
# test
|
|
control: 1.2.3.4 true: foo bar
|
|
control: 1.2.3.4 true:: Zm9vIGJhcg==
|
|
changetype: add
|
|
cn: simple
|
|
|
|
dn: cn=foo bar,dc=example,dc=com
|
|
changeType: modify
|
|
add: telephoneNumber
|
|
telephoneNumber: +1 123 456 789
|
|
-
|
|
replace: homePostalAddress;lang-fr
|
|
homePostalAddress;lang-fr: 34 rue de Seine
|
|
# test
|
|
-
|
|
delete: telephoneNumber
|
|
-
|
|
replace: telephoneNumber
|
|
telephoneNumber:: KzEgMTIzIDQ1NiA3ODk=
|
|
-
|
|
|
|
dn: cn=foo,dc=example,dc=com
|
|
changetype: moddn
|
|
newrdn: cn=bar
|
|
deleteoldrdn: 0
|
|
newsuperior: dc=example,dc=net
|
|
"
|
|
|
|
test Ldif.lns get changes =
|
|
{ "@changes"
|
|
{ "version" = "1" }
|
|
{ "1" = "cn=foo,dc=example,dc=com"
|
|
{ "changetype" = "delete" } }
|
|
{}
|
|
{ "2" = "cn=simple,dc=example,dc=com"
|
|
{ "control" = "1.2.3.4" }
|
|
{ "control" = "1.2.3.4"
|
|
{ "criticality" = "true" } }
|
|
{ "#comment" = "test" }
|
|
{ "control" = "1.2.3.4"
|
|
{ "criticality" = "true" }
|
|
{ "value" = "foo bar" } }
|
|
{ "control" = "1.2.3.4"
|
|
{ "criticality" = "true" }
|
|
{ "value"
|
|
{ "@base64" = "Zm9vIGJhcg==" } } }
|
|
{ "changetype" = "add" }
|
|
{ "cn" = "simple" } }
|
|
{}
|
|
{ "3" = "cn=foo bar,dc=example,dc=com"
|
|
{ "changeType" = "modify" }
|
|
{ "add" = "telephoneNumber"
|
|
{ "telephoneNumber" = "+1 123 456 789" } }
|
|
{ "replace" = "homePostalAddress"
|
|
{ "@option" = "lang-fr" }
|
|
{ "homePostalAddress" = "34 rue de Seine"
|
|
{ "@option" = "lang-fr" } }
|
|
{ "#comment" = "test" } }
|
|
{ "delete" = "telephoneNumber" }
|
|
{ "replace" = "telephoneNumber"
|
|
{ "telephoneNumber"
|
|
{ "@base64" = "KzEgMTIzIDQ1NiA3ODk=" } } } }
|
|
{}
|
|
{ "4" = "cn=foo,dc=example,dc=com"
|
|
{ "changetype" = "moddn" }
|
|
{ "newrdn" = "cn=bar" }
|
|
{ "deleteoldrdn" = "0" }
|
|
{ "newsuperior" = "dc=example,dc=net" } }
|
|
}
|
|
|
|
(* Local Variables: *)
|
|
(* mode: caml *)
|
|
(* End: *)
|