view release on metacpan or  search on metacpan

t/simple.t  view on Meta::CPAN

use Test::More tests => 5;

use AuthCAS;

{
    my $cas = new AuthCAS(
        casUrl => 'https://not_there/',
        CAFile => '/usr/local/apache/conf/ssl.crt/ca-bundle.crt_notTHERE',
    );

    my $return_url = 'http://myapp/something';

    #this actually throws a warning
    my $login_url = $cas->getServerLoginURL($return_url);
    ok(
        !defined(
            $cas->validateST( $return_url, 'ST-42-SLwl77Lv5xx6QK2dmlze-cas' )