Fix Zimbra Handler syntax (#470)

This commit is contained in:
Clément Oudot 2012-05-31 20:20:00 +00:00
parent fca135fb6b
commit abbed8d8bf
3 changed files with 18 additions and 2 deletions

View File

@ -38,4 +38,5 @@ t/20-Lemonldap-NG-Handler-CDA.t
t/30-Lemonldap-NG-Handler-CGI.t
t/40-Lemonldap-NG-Handler-Proxy.t
t/50-Lemonldap-NG-Handler-SecureToken.t
t/51-Lemonldap-NG-Handler-Zimbra.t
t/99-pod.t

View File

@ -75,8 +75,8 @@ sub run {
return OK unless ( $uri =~ $zimbraSsoUrl );
# Check mandatory parameters
return $class->abort("No Zimbra preauth key configured");
unless ($zimbraPreAuthKey);
return $class->abort("No Zimbra preauth key configured")
unless ($zimbraPreAuthKey);
# Build URL
my $zimbra_url = $class->_buildZimbraPreAuthUrl(

View File

@ -0,0 +1,15 @@
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Lemonldap-NG-Handler-Proxy.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use Test::More tests => 1;
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
use_ok('Lemonldap::NG::Handler::ZimbraPreAuth');