krb5 commit: Add test for alias to local TGS

[Greg Hudson]

https://github.com/krb5/krb5/commit/dec685691b3955b27c56b629da829b9e6cf0d789
commit dec685691b3955b27c56b629da829b9e6cf0d789
Author: Greg Hudson <ghudson at mit.edu>
Date:   Wed Aug 28 18:40:18 2013 -0400

    Add test for alias to local TGS

 src/tests/t_kdb.py |   17 +++++++++++++++++
 1 files changed, 17 insertions(+), 0 deletions(-)

diff --git a/src/tests/t_kdb.py b/src/tests/t_kdb.py
index b82c814..7a9471f 100644
--- a/src/tests/t_kdb.py
+++ b/src/tests/t_kdb.py
@@ -269,6 +269,23 @@ out = realm.run([klist])
 if 'alias at KRBTEST.COM\n' not in out or 'canon at KRBTEST.COM' not in out:
     fail('After fetching alias and canon, klist is missing one or both')
 
+# Make sure an alias to the local TGS is still treated like an alias.
+ldap_modify('dn: krbPrincipalName=krbtgt/KRBTEST.COM at KRBTEST.COM,'
+            'cn=KRBTEST.COM,cn=krb5\n'
+            'changetype: modify\n'
+            'add:krbPrincipalName\n'
+            'krbPrincipalName: tgtalias at KRBTEST.COM\n'
+            '-\n'
+            'add: krbCanonicalName\n'
+            'krbCanonicalName: krbtgt/KRBTEST.COM at KRBTEST.COM\n')
+out = realm.run_kadminl('getprinc tgtalias')
+if 'Principal: krbtgt/KRBTEST.COM at KRBTEST.COM' not in out:
+    fail('Could not fetch krbtgt through tgtalias')
+realm.run([kvno, 'tgtalias'])
+out = realm.run([klist])
+if 'tgtalias at KRBTEST.COM\n' not in out:
+    fail('After fetching tgtalias, klist is missing it')
+
 realm.stop()
 
 # Briefly test dump and load.