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}