1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
module Test_properties =
let conf = "
# Test tomcat properties file
#tomcat.commented.value=1
# config
tomcat.port = 8080
tomcat.application.name=testapp
tomcat.application.description=my test application
"
let lns = Properties.lns
test lns get conf =
{ }
{ "#comment" = "Test tomcat properties file" }
{ "#comment" = "tomcat.commented.value=1" }
{ "#comment" = "config" }
{ "tomcat.port" = "8080" }
{ "tomcat.application.name" = "testapp" }
{ "tomcat.application.description" = "my test application" }
test lns put conf after
set "tomcat.port" "99";
set "tomcat.application.host" "foo.network.com"
= "
# Test tomcat properties file
#tomcat.commented.value=1
# config
tomcat.port = 99
tomcat.application.name=testapp
tomcat.application.description=my test application
tomcat.application.host=foo.network.com
"
|