1#! /usr/bin/perl -w 2 3use strict; 4 5use ExtUtils::testlib; 6use Test::More tests => 5; 7 8BEGIN { 9 use_ok('GSSAPI'); 10} 11 12my $oidset; 13 14my $status = GSSAPI::indicate_mechs( $oidset ); 15 16ok ( $status, q{ GSSAPI::indicate_mechs( $oidset ) } . $status ); 17 18SKIP: { 19 unless ($status->major == GSS_S_COMPLETE ) { 20 skip( 'GSSAPI::indicate_mechs( $oidset ) failed ' . $status, 3 ); 21 } 22 my $isin = 0; 23 my @supported_mechs; 24 25 my $status = $oidset->contains( gss_mech_krb5_old, $isin ); 26 ok ( $status, q{ $oidset->contains( gss_mech_krb5_old, $isin ) } . $status ); 27 push @supported_mechs, 'KRB5 old Mechtype' if ( $status && $isin ); 28 29 $status = $oidset->contains( gss_mech_krb5, $isin ); 30 ok ( $status, q{ $oidset->contains( gss_mech_krb5, $isin ) } . $status ); 31 push @supported_mechs, 'Kerberos 5' if ( $status && $isin ); 32 33 $status = $oidset->contains( gss_mech_spnego, $isin ); 34 ok ( $status, q{ $oidset->contains( gss_mech_spnego, $isin ) } . $status ); 35 push @supported_mechs, 'SPNEGO' if ( $status && $isin ); 36 37 diag( join ', ', @supported_mechs ); 38}