-
Notifications
You must be signed in to change notification settings - Fork 3
/
Read2.ycp
121 lines (112 loc) · 2.14 KB
/
Read2.ycp
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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
/**
* Read.ycp
* Test of Ldap:Read function
* Author: Jiri Suchomel <jsuchome@suse.cz>
* $Id$
*/
{
// testedfiles: Ldap.ycp
import "Ldap";
import "Testsuite";
map READ = $[
"etc": $[
"nsswitch_conf" : $[
"passwd" : "sss",
"group" : "sss",
"passwd_compat" : nil,
"group_compat" : nil
],
"ldap_conf" : $[
"v" : $[
"/etc/ldap.conf": $[
"host" : "localhost",
"base" : "dc=suse,dc=cz",
"nss_base_passwd" : nil,
"nss_base_shadow" : nil,
"nss_base_group" : nil,
"ldap_version": nil,
"ssl": nil,
"pam_password": "crypt",
"tls_cacertdir" : "/etc/openldap/cacerts/",
"tls_cacertfile": nil,
"tls_checkpeer" : "no",
"uri" : "ldap://localhost:333"
]
]
],
"krb5_conf" : $[
"v" : $[
"libdefaults": $[
"default_realm": ["SUSE.CZ"],
],
"SUSE.CZ": $[
"kdc": ["kdc.suse.cz"],
],
],
],
// /etc/security/pam_*
"security": $[
"section": $[
"/etc/security/pam_unix2.conf": $[],
],
"v": $[
"/etc/security/pam_unix2.conf": $[
"auth" : ""
],
]
],
"sssd_conf" : $[
"v" : $[
"domain/default" : $[
"krb5_realm" : "SUSE.CZ",
"krb5_kdcip" : "kdc.suse.cz",
"ldap_schema" : nil,
"cache_credentials" : "True",
"enumerate" : nil,
"ldap_id_use_start_tls" : nil,
],
],
],
],
"sysconfig": $[
"ldap": $[
"BASE_CONFIG_DN": nil,
"BIND_DN": "uid=manager,dc=suse,dc=cz",
"FILE_SERVER": "no"
]
],
"init": $[
"scripts": $[
"exists": false,
],
],
"passwd": $[
"passwd": $[
"plusline": "+",
"pluslines": ["+"]
]
],
"product" : $[ "features" :
$[ "EVMS_CONFIG" : "nazdar" ],
],
"target" : $[
"size" : -1,
"stat" : $[ 1:2 ],
],
];
map EX = $[
"target": $[
"bash": 0,
"bash_output": $[
"stdout" : "",
]
],
"passwd": $[
"init": true
]
];
Testsuite::Init ([READ,$[],$[]], nil);
Testsuite::Test (``(Ldap::Read ()), [ READ, $[], EX ], 0);
Testsuite::Dump ( sformat ("ldap: -%1-", Ldap::start) );
Testsuite::Dump ( sformat ("sssd: -%1-", Ldap::sssd) );
}