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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
module Test_aliases =
let file = "#
# Aliases in this file will NOT be expanded in the header from
# Mail, but WILL be visible over networks or from /bin/mail.
# Basic system aliases -- these MUST be present.
mailer-daemon: postmaster
postmaster: root
# General redirections for pseudo accounts.
bin: root , adm,
bob
daemon: root
adm: root
file: /var/foo
pipe1: |/bin/ls
pipe2: |\"/usr/bin/ls args,\"
"
test Aliases.lns get file =
{ }
{ "#comment" = "Aliases in this file will NOT be expanded in the header from" }
{ "#comment" = "Mail, but WILL be visible over networks or from /bin/mail." }
{}
{ "#comment" = "Basic system aliases -- these MUST be present." }
{ "1" { "name" = "mailer-daemon" }
{ "value" = "postmaster" } }
{ "2" { "name" = "postmaster" }
{ "value" = "root" } }
{}
{ "#comment" = "General redirections for pseudo accounts." }
{ "3" { "name" = "bin" }
{ "value" = "root" }
{ "value" = "adm" }
{ "value" = "bob" } }
{ "4" { "name" = "daemon" }
{ "value" = "root" } }
{ "5" { "name" = "adm" }
{ "value" = "root" } }
{ "6" { "name" = "file" }
{ "value" = "/var/foo" } }
{ "7" { "name" = "pipe1" }
{ "value" = "|/bin/ls" } }
{ "8" { "name" = "pipe2" }
{ "value" = "|\"/usr/bin/ls args,\"" } }
test Aliases.lns put file after
rm "/4" ; rm "/5" ; rm "/6" ; rm "/7" ; rm "/8" ;
set "/1/value[2]" "barbar" ;
set "/3/value[2]" "ruth"
= "#
# Aliases in this file will NOT be expanded in the header from
# Mail, but WILL be visible over networks or from /bin/mail.
# Basic system aliases -- these MUST be present.
mailer-daemon: postmaster, barbar
postmaster: root
# General redirections for pseudo accounts.
bin: root , ruth,
bob
"
(* Schema violation, no 3/name *)
test Aliases.lns put file after
rm "/3" ;
set "/3/value/2" "ruth"
= *
(* Don't have to have whitespace after a comma *)
let nocomma = "alias: target1,target2\n"
test Aliases.lns get nocomma =
{ "1"
{ "name" = "alias" }
{ "value" = "target1" }
{ "value" = "target2" } }
(* Local Variables: *)
(* mode: caml *)
(* End: *)
|