1#! /usr/bin/perl -w 2 3use strict; 4 5use ExtUtils::testlib; 6 7use GSSAPI qw(:all); 8use Test::More tests => 9; 9 10 11 12ok( GSSAPI::Status::GSS_ERROR(GSS_S_COMPLETE) == 0, 13 'GSSAPI::Status::GSS_ERROR(GSS_S_COMPLETE) == 0' ); 14 15ok( GSSAPI::Status::GSS_ERROR(GSS_S_BAD_SIG) == 1, 16 'GSSAPI::Status::GSS_ERROR(GSS_S_BAD_SIG) == 1' ); 17 18my $status = GSSAPI::Status->new(GSS_S_COMPLETE, 0); 19 20ok(ref $status eq "GSSAPI::Status", 'created GSSAPI::Status object'); 21 22ok($status->major == GSS_S_COMPLETE, '$status->major == GSS_S_COMPLETE'); 23ok($status->minor == 0, '$status->minor == 0'); 24ok($status, '$status'); 25 26my @string; 27ok(@string = $status->generic_message(), 28 '$status->generic_message(): ' . join '', @string); 29ok(@string = $status->specific_message(), 30 '$status->specific_message(): ' . join '', @string); 31 32my $okay = 1; 33foreach (1 .. 1000) { 34 my($maj, $min); 35 $maj = int(rand(0xffffffff)); 36 $min = int(rand(0xffffffff)); 37 38 $status = GSSAPI::Status->new($maj, $min); 39 40 $status->major == $maj && $status->minor == $min 41 or $okay = 0, last; 42} 43ok($okay, 'GSSAPI::Status->new($maj, $min) with random values');