Authen-CAS-Client

 view release on metacpan or  search on metacpan

t/02-validate.t  view on Meta::CPAN

      r => [ 200, "no\n\n" ],
      v => [ 'F', 'V10_AUTH_FAILURE', '' ],
    },

    invalid => {
      r => [ 200, "fake" ],
      v => [ 'E', qr/^Invalid CAS response\z/ ],
    },

    error => {
      r => [ 404, "fake" ],
      v => [ 'E', qr/^HTTP request failed: \d+: / ],
    },
  },

  service_validate => {
    success1 => {
      r => [ 200, _xml_success( 'USER' ) ],
      v => [ 'S', 'USER', undef, undef ],
    },

t/02-validate.t  view on Meta::CPAN

      r => [ 200, '<fake />' ],
      v => [ 'E', qr/^Invalid CAS response\z/ ],
    },

    error5 => {
      r => [ 200, 'fake' ],
      v => [ 'E', qr/^Failed to parse XML\z/ ],
    },

    error6 => {
      r => [ 404, 'fake' ],
      v => [ 'E', qr/HTTP request failed: \d+: / ],
    },
  },
);

$t{proxy_validate} = $t{service_validate};


for my $m ( keys %t ) {
  for ( keys %{ $t{$m} } ) {

t/03-proxy.t  view on Meta::CPAN

      r => [ 200, '<fake />' ],
      v => [ 'E', qr/^Invalid CAS response\z/ ],
    },

    error5 => {
      r => [ 200, 'fake' ],
      v => [ 'E', qr/^Failed to parse XML\z/ ],
    },

    error6 => {
      r => [ 404, 'fake' ],
      v => [ 'E', qr/HTTP request failed: \d+: / ],
    },
  },
);


for my $m ( keys %t ) {
  for ( keys %{ $t{$m} } ) {
    $mock->_response( @{ $t{$m}->{$_}{r} } );

t/04-fatal.t  view on Meta::CPAN

use t::MockUserAgent;

use Authen::CAS::Client;

sub CAS_SERVER () { 'https://example.com/cas' }


my $mock = Test::MockUserAgent->new;
my $cas = Authen::CAS::Client->new( CAS_SERVER, fatal => 1 );

$mock->_response( 404, 'Not found' );

eval { $cas->validate( 'S', 'T' ) };
like( $@, qr/^HTTP request failed: \d+: / );