Changeset 5bb0743
- Timestamp:
- Aug 5, 2017, 11:23:17 PM (8 years ago)
- Children:
- 45e137c
- Parents:
- 93e47c6
- git-author:
- Jason Gross <jgross@mit.edu> (08/03/17 15:29:32)
- git-committer:
- Jason Gross <jgross@mit.edu> (08/05/17 23:23:17)
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/lib/BarnOwl/Message/Zephyr.pm
rf065a96 r5bb0743 28 28 # characters; this way, we always get at least '@' in $user 29 29 my ($user, $realm) = split(/(?<=@)(?=[^@]+$)/, $principal); 30 return lc($user) . uc($realm); 30 $user = '' if !defined $user; 31 $user = lc($user); 32 $user = $user . uc($realm) if defined $realm; 33 return $user; 31 34 } 32 35 -
t/BarnOwl_Message_Zephyr.t
rf065a96 r5bb0743 24 24 } 25 25 26 test_casefold_principal('' );27 test_casefold_principal('FOO' );26 test_casefold_principal('', ''); 27 test_casefold_principal('FOO', ''); 28 28 test_casefold_principal('FOO', 'athena.mit.edu'); 29 29 test_casefold_principal('FOO@BAR', 'athena.mit.edu');
Note: See TracChangeset
for help on using the changeset viewer.