Mailinglist Archive: yast-commit (502 mails)

[jsuchome@xxxxxxxxxxxxxxxxx]

Author: jsuchome
Date: Tue Jun 21 10:35:48 2011
New Revision: 64498

URL: http://svn.opensuse.org/viewcvs/yast?rev=64498&view=rev
Log:
more tests: check if sssd is initialized

Added:
    trunk/ldap-client/testsuite/tests/Read2.err
    trunk/ldap-client/testsuite/tests/Read2.out
    trunk/ldap-client/testsuite/tests/Read2.ycp   (with props)

Added: trunk/ldap-client/testsuite/tests/Read2.err
URL: 
http://svn.opensuse.org/viewcvs/yast/trunk/ldap-client/testsuite/tests/Read2.err?rev=64498&view=auto
==============================================================================
    (empty)

Added: trunk/ldap-client/testsuite/tests/Read2.out
URL: 
http://svn.opensuse.org/viewcvs/yast/trunk/ldap-client/testsuite/tests/Read2.out?rev=64498&view=auto
==============================================================================
--- trunk/ldap-client/testsuite/tests/Read2.out (added)
+++ trunk/ldap-client/testsuite/tests/Read2.out Tue Jun 21 10:35:48 2011
@@ -0,0 +1,25 @@
+Read   .etc.ldap_conf.v."/etc/ldap.conf"."uri" "ldap://localhost:333";
+Read   .etc.ldap_conf.v."/etc/ldap.conf"."base" "dc=suse,dc=cz"
+Read   .etc.ldap_conf.v."/etc/ldap.conf"."ldap_version" nil
+Read   .etc.ldap_conf.v."/etc/ldap.conf"."ssl" nil
+Read   .etc.ldap_conf.v."/etc/ldap.conf"."tls_cacertdir" 
"/etc/openldap/cacerts/"
+Read   .etc.ldap_conf.v."/etc/ldap.conf"."tls_cacertfile" nil
+Read   .etc.ldap_conf.v."/etc/ldap.conf"."tls_checkpeer" "no"
+Read   .etc.ldap_conf.v."/etc/ldap.conf"."nss_base_passwd" nil
+Read   .etc.ldap_conf.v."/etc/ldap.conf"."nss_base_shadow" nil
+Read   .etc.ldap_conf.v."/etc/ldap.conf"."nss_base_group" nil
+Read   .etc.ldap_conf.v."/etc/ldap.conf"."pam_password" "crypt"
+Read   .sysconfig.ldap.BASE_CONFIG_DN nil
+Read   .sysconfig.ldap.FILE_SERVER "no"
+Read   .sysconfig.ldap.BIND_DN "uid=manager,dc=suse,dc=cz"
+Read   .etc.ldap_conf.v."/etc/ldap.conf"."nss_map_attribute" 0
+Execute        .passwd.init $["base_directory":"/etc"] true
+Read   .passwd.passwd.pluslines ["+"]
+Read   .etc.sssd_conf.v."domain/default"."krb5_realm" "SUSE.CZ"
+Read   .etc.sssd_conf.v."domain/default"."krb5_kdcip" "kdc.suse.cz"
+Read   .etc.sssd_conf.v."domain/default"."ldap_schema" nil
+Read   .etc.sssd_conf.v."domain/default"."cache_credentials" "True"
+Read   .etc.sssd_conf.v."domain/default"."enumerate" nil
+Return true
+Dump   ldap: -true-
+Dump   sssd: -true-

Added: trunk/ldap-client/testsuite/tests/Read2.ycp
URL: 
http://svn.opensuse.org/viewcvs/yast/trunk/ldap-client/testsuite/tests/Read2.ycp?rev=64498&view=auto
==============================================================================
--- trunk/ldap-client/testsuite/tests/Read2.ycp (added)
+++ trunk/ldap-client/testsuite/tests/Read2.ycp Tue Jun 21 10:35:48 2011
@@ -0,0 +1,120 @@
+/**
+ *  Read.ycp
+ *  Test of Ldap:Read function
+ *  Author:    Jiri Suchomel <jsuchome@xxxxxxx>
+ *  $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
+                   ],
+               ],
+           ],
+       ],
+       "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) );
+
+}

-- 
To unsubscribe, e-mail: yast-commit+unsubscribe@xxxxxxxxxxxx
For additional commands, e-mail: yast-commit+help@xxxxxxxxxxxx