r22809 - in /branches/upstream/libgssapi-perl/current: Changes GSSAPI.pm GSSAPI.xs MANIFEST META.yml Makefile.PL README examples/gss-client.pl examples/gss-server.pl t/importnames.t t/indicatemechs.t t/test.t t/zbugfixes.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sat Jul 5 19:21:03 UTC 2008
Author: gregoa
Date: Sat Jul 5 19:21:03 2008
New Revision: 22809
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=22809
Log:
[svn-upgrade] Integrating new upstream version, libgssapi-perl (0.26)
Added:
branches/upstream/libgssapi-perl/current/t/importnames.t
branches/upstream/libgssapi-perl/current/t/indicatemechs.t
Modified:
branches/upstream/libgssapi-perl/current/Changes
branches/upstream/libgssapi-perl/current/GSSAPI.pm
branches/upstream/libgssapi-perl/current/GSSAPI.xs
branches/upstream/libgssapi-perl/current/MANIFEST
branches/upstream/libgssapi-perl/current/META.yml
branches/upstream/libgssapi-perl/current/Makefile.PL
branches/upstream/libgssapi-perl/current/README
branches/upstream/libgssapi-perl/current/examples/gss-client.pl
branches/upstream/libgssapi-perl/current/examples/gss-server.pl
branches/upstream/libgssapi-perl/current/t/test.t
branches/upstream/libgssapi-perl/current/t/zbugfixes.t
Modified: branches/upstream/libgssapi-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgssapi-perl/current/Changes?rev=22809&op=diff
==============================================================================
--- branches/upstream/libgssapi-perl/current/Changes (original)
+++ branches/upstream/libgssapi-perl/current/Changes Sat Jul 5 19:21:03 2008
@@ -70,7 +70,7 @@
- use of uppercase GSS_ style import-constants instead of lowercase
gss_ constants. Hope this does not break things, please
- let me know if that means problems on you platform!
+ let me know if that means problems on your platform!
- deleted mechtype sets gss_mech_set_krb5,
gss_mech_set_krb5_old, gss_mech_set_krb5_both, gss_mech_set_krb5.
Please let me know if that breaks your code and needs to be fixed!
@@ -86,11 +86,10 @@
__GSS_KRB5_NT_USER_NAME
__GSS_KRB5_NT_PRINCIPAL_NAME
__gss_mech_krb5_v2 ( gss_mech_krb5_v2 is back)
- to make module indpendent from GSSAPI implementations
+ to make module independent from GSSAPI implementations
which does not export the symbols.
See <http://mailman.mit.edu/pipermail/krbdev/2005-February/003193.html>
- - tests adjusted
- - splitted testst to separate files in t/
+ - splitted tests to separate files in t/
Make tests runable separately.
0.19 We Feb 22 14:39:45 UTC 2006
@@ -98,7 +97,7 @@
- GSS_KRB5_NT_MACHINE_UID_NAME is now GSS_C_NT_MACHINE_UID_NAME
Thanks to David Leonard!
- - changed my stupid commenst not to be interpreted as precompiler
+ - changed my stupid comments not to be interpreted as precompiler
statements...
...seems this is a brown paperbag release...
@@ -124,3 +123,26 @@
Thanks to Florian Ragwitz and Daniel Schepler
- Bugfix of <http://www.nntp.perl.org/group/perl.ldap/2083>
Thanks to Quanah Gibson-Mount
+
+0.23 Mi Aug 2 15:48:19 UTC 2006
+
+ - Re-added support of MIT Kerberos 1.2.x
+ (Many have asked for this)
+
+0.24 Wed, 21 Feb 2007 20:59:39 +0100
+
+ - Changed tests as an answer to FAIL 413320
+ <http://www.nntp.perl.org/group/perl.cpan.testers/2007/02/msg413320.html>
+ Thanks to Florian Lindner
+
+0.25 So 3. Feb 20:18:16 UTC 2008
+
+ - Enhancement to use OpenSolaris/Solaris 10 native gss library
+ <http://rt.cpan.org/Public/Bug/Display.html?id=32788>
+ Thanks to Markus Moeller
+
+0.26 Fr 15. Feb 22:32:10 UTC 2008
+
+ - modified Makefile.PL to trigger no FAIL testreports
+ in case of missing prerequirements.
+ Thanks to Andreas Koenig
Modified: branches/upstream/libgssapi-perl/current/GSSAPI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgssapi-perl/current/GSSAPI.pm?rev=22809&op=diff
==============================================================================
--- branches/upstream/libgssapi-perl/current/GSSAPI.pm (original)
+++ branches/upstream/libgssapi-perl/current/GSSAPI.pm Sat Jul 5 19:21:03 2008
@@ -9,7 +9,7 @@
use XSLoader;
our @ISA = qw(Exporter);
-our $VERSION = '0.22';
+our $VERSION = '0.26';
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
@@ -566,11 +566,15 @@
maintainer of Debian package
+=item Markus Moeller
+
+Solaris 10 / OpenSolaris support
+
=back
=head1 COPYRIGHT
-Copyright (c) 2006 Achim Grolms All rights reserved.
+Copyright (c) 2006,2008 Achim Grolms. All rights reserved.
This program is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.
Modified: branches/upstream/libgssapi-perl/current/GSSAPI.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgssapi-perl/current/GSSAPI.xs?rev=22809&op=diff
==============================================================================
--- branches/upstream/libgssapi-perl/current/GSSAPI.xs (original)
+++ branches/upstream/libgssapi-perl/current/GSSAPI.xs Sat Jul 5 19:21:03 2008
@@ -9,6 +9,23 @@
#define __GSS_KRB5_NT_PRINCIPAL_NAME &mygss_nt_krb5_principal
#define __gss_mech_krb5_v2 &mygss_mech_krb5_v2
+/*
+| Defines explanation:
+|
+| SEAM
+| different structure of headerfiles on Solaris 10 / Opensolaris
+| Trigger for setting SEAM is 'Solaris' keyword in output
+| of krb5-config --version (See Makefile.PL)
+| See <http://rt.cpan.org/Public/Bug/Display.html?id=32788>
+|
+| MITKERB12
+| MIT-kerbeors of version 1.2.x does not provide alls constants
+| of the uppercase GSS_C* style. Some tweaking is required.
+| Trigger for setting MITKERB12 is the version-number in output
+| of krb5-config --version (See Makefile.PL)
+|
+*/
+
#if defined(HEIMDAL)
#include <gssapi.h>
#endif
@@ -16,8 +33,20 @@
#if !defined(HEIMDAL)
#include <gssapi/gssapi.h>
+#if !defined(SEAM)
#include <gssapi/gssapi_generic.h>
#include <gssapi/gssapi_krb5.h>
+#else
+#include <gssapi/gssapi_ext.h>
+#endif
+#if defined(MITKERB12)
+/* symbols not defined in MIT Kerberos 1.2.x */
+#define GSS_C_NT_USER_NAME gss_nt_user_name
+#define GSS_C_NT_MACHINE_UID_NAME gss_nt_machine_uid_name
+#define GSS_C_NT_STRING_UID_NAME gss_nt_string_uid_name
+#define GSS_C_NT_HOSTBASED_SERVICE gss_nt_service_name
+#define GSS_C_NT_EXPORT_NAME gss_nt_exported_name
+#endif
#endif
/*
Modified: branches/upstream/libgssapi-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgssapi-perl/current/MANIFEST?rev=22809&op=diff
==============================================================================
--- branches/upstream/libgssapi-perl/current/MANIFEST (original)
+++ branches/upstream/libgssapi-perl/current/MANIFEST Sat Jul 5 19:21:03 2008
@@ -25,3 +25,5 @@
t/zbugfixes.t
t/1constants.t
t/pod.t
+t/importnames.t
+t/indicatemechs.t
Modified: branches/upstream/libgssapi-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgssapi-perl/current/META.yml?rev=22809&op=diff
==============================================================================
--- branches/upstream/libgssapi-perl/current/META.yml (original)
+++ branches/upstream/libgssapi-perl/current/META.yml Sat Jul 5 19:21:03 2008
@@ -1,11 +1,14 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: GSSAPI
-version: 0.22
-version_from: GSSAPI.pm
-installdirs: site
-requires:
+--- #YAML:1.0
+name: GSSAPI
+version: 0.26
+abstract: Perl extension providing access to the GSSAPIv2 library
+license: perl
+author:
+ - Achim Grolms <perl at grolmsnet.de>
+generated_by: ExtUtils::MakeMaker version 6.42
+distribution_type: module
+requires:
Test::More: 0
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
Modified: branches/upstream/libgssapi-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgssapi-perl/current/Makefile.PL?rev=22809&op=diff
==============================================================================
--- branches/upstream/libgssapi-perl/current/Makefile.PL (original)
+++ branches/upstream/libgssapi-perl/current/Makefile.PL Sat Jul 5 19:21:03 2008
@@ -91,7 +91,10 @@
print $LINE, ' Searching krb5-config command... ';
my $krb5cmd = find_krb5config_cmd($options{'gssapiimpl'} );
unless ($krb5cmd) {
- die 'not found!';
+ print 'NOT FOUND!';
+ print "\n\n seems this is a missing prerequirement.",
+ "\n The README file shipped with this module provides\n more information regarding prerequirements. \n\n";
+ exit 0; # send no automated FAIL testreport
} else {
print "\n\n $krb5cmd";
}
@@ -103,6 +106,10 @@
unless ($libconf) {
die "$krb5cmd does not respond libconf!";
} else {
+ if ($libconf =~ /Unknown/ && $implementation =~ /Solaris Kerberos/) {
+ $libconf = "-L/usr/lib -R/usr/lib -lgss";
+ }
+
my ($gsslibs, $otherparm) = find_libs_in_krb5config_string( $libconf );
#
@@ -137,19 +144,24 @@
#
$incconf = '-I/usr/include';
}
+ if ($incconf =~ /Unknown/ && $implementation =~ /Solaris Kerberos/) {
+ $incconf = "-I/usr/include/kerberosv5";
+ push @EXTRADEFINES, '-DSEAM';
+ }
#---------------------------------------------------------------
if ( is_heimdal($krb5cmd) ) {
push @EXTRADEFINES, '-DHEIMDAL';
- #print $LINE, ' Setting Heimdal Defines';
- }
- #
- # Reading this at configuration Time is boring
- #
- #else {
- # print $LINE, ' Setting MIT defines';
- #}
-}
-
+ }
+
+ if ( is_mit_1_2($krb5cmd) ) {
+ #
+ # activate Workaround to support
+ # MIT Kerberos 1.2.x
+ # (constants in old lowercase-style)
+ #
+ push @EXTRADEFINES, '-DMITKERB12';
+ }
+}
#--------------------------------------------------------------
print "$LINE Adding own DEFINEs \n\n @EXTRADEFINES" if( scalar(@EXTRADEFINES) );
@@ -160,7 +172,10 @@
WriteMakefile(
- LIBS => join (' ', @GSSLIBS),
+ 'AUTHOR' => 'Achim Grolms <perl at grolmsnet.de>',
+ 'ABSTRACT_FROM' => 'GSSAPI.pm',
+ 'LICENSE' => 'perl',
+ 'LIBS' => join (' ', @GSSLIBS),
'NAME' => 'GSSAPI',
'VERSION_FROM' => 'GSSAPI.pm',
# 'CCFLAGS' => '-Wall',
@@ -232,6 +247,21 @@
return $r;
}
#-------------------------------------------------
+sub is_mit_1_2 {
+ my ($cfgcmd) = @_;
+ my $r = undef;
+ my @vinfo = krb5_version( $cfgcmd );
+ FOUND: {
+ foreach ( @vinfo) {
+ if ( m/Kerberos 5 release 1\.2/ && !m/Solaris Kerberos/) {
+ $r = 1;
+ last FOUND;
+ }
+ }
+ }
+ return $r;
+}
+#-------------------------------------------------
sub find_libs_in_krb5config_string {
my ( $confstringstring ) = @_;
Modified: branches/upstream/libgssapi-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgssapi-perl/current/README?rev=22809&op=diff
==============================================================================
--- branches/upstream/libgssapi-perl/current/README (original)
+++ branches/upstream/libgssapi-perl/current/README Sat Jul 5 19:21:03 2008
@@ -1,4 +1,4 @@
-GSSAPI Perlbindings version 0.21
+GSSAPI Perlbindings version 0.26
=================================
GSSAPI - Perl extension for using
GSSAPI C-Bindings as described in RFC 2744.
@@ -9,13 +9,16 @@
- heimdal 0.6.2
- heimdal 0.7.1
+- MIT Kerberos 5 release 1.5.2
- MIT Kerberos 5 release 1.4.3
- MIT Kerberos 5 release 1.3.1
+- MIT Kerberos 5 release 1.2.7
- VAS 3.0.1
+- Solaris 10 / Opensolaris native gss library
see t/test.t for tests that do not work on Heimdal.
-Please let me know if there are buildingproblems wih your
+Please let me know if there are buildingproblems with your
Kerberossoftware.
@@ -29,12 +32,26 @@
Heimdal <http://www.pdc.kth.se/heimdal/>
VAS <http://www.quest.com/>
-Make sure the krb5-config command is present,
+This GSSAPI-implementations ship with a command called 'krb5-config'.
+Make sure the krb5-config command is present and executeable,
Makefile.PL needs it to detect the library configuration.
-(NetBSD: since 2006-01-26 krb5-config is present
- in pkgsrc/security/heimdal, see
- <http://mail-index.netbsd.org/pkgsrc-changes/2006/01/26/0036.html>)
+OS specific notes:
+
+- Windows - MIT KfW SDK:
+
+ This SDK does not provide the krb5-config command,
+ <http://www.mail-archive.com/kerberos%40mit.edu/msg12808.html>.
+ Instead of using krb5-config you need to specifiy the compiler and linker flags
+ on the perl Makefile.PL commandline. run
+ perl Makefile.PL --help
+ to see all available configuration options.
+
+- NetBSD:
+
+ since 2006-01-26 krb5-config is present
+ in pkgsrc/security/heimdal, see
+ <http://mail-index.netbsd.org/pkgsrc-changes/2006/01/26/0036.html
INSTALLATION
@@ -65,6 +82,8 @@
AUTHOR:
+GSSAPI.pm is originally written by Philip Guenther.
+
Maintanance by
Achim Grolms <perl at grolmsnet.de>,
@@ -75,13 +94,12 @@
<http://perlgssapi.sourceforge.net/>
-GSSAPI is originally written by Philip Guenther
COPYRIGHT AND LICENCE
-Copyright (C) 2006 by Achim Grolms perl at grolmsnet.de
+Copyright (C) 2006, 2007 by Achim Grolms perl at grolmsnet.de
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
-at your option, any later version of Perl 5 you may have available.
+at your option, any later version of Perl 5 you may have available.
Modified: branches/upstream/libgssapi-perl/current/examples/gss-client.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgssapi-perl/current/examples/gss-client.pl?rev=22809&op=diff
==============================================================================
--- branches/upstream/libgssapi-perl/current/examples/gss-client.pl (original)
+++ branches/upstream/libgssapi-perl/current/examples/gss-client.pl Sat Jul 5 19:21:03 2008
@@ -51,7 +51,7 @@
$status = $gss_server_name->display(my $display_name, my $type);
print "CLIENT::principal [$server_name] means going to communicate with server name [$display_name]\n";
-my $gss_input_token = GSS_C_NO_BUFFER;
+my $gss_input_token = q{};
my $socket = IO::Socket::INET->new
(
@@ -102,18 +102,20 @@
print "CLIENT::gss_init_sec_context success\n";
- # The GSS protocol can do mutual authentication. If this is requested, the token
- # that we generate in the first pass will indicate this to the server. The major
- # status will have the GSS_S_CONTINUE_NEEDED bit set to indicate that we are
- # expecting a reply with a server identity token. This loop will continue until
+ # The GSS protocol can do mutual authentication. If this is requested, the token
+ # that we generate in the first pass will indicate this to the server. The major
+ # status will have the GSS_S_CONTINUE_NEEDED bit set to indicate that we are
+ # expecting a reply with a server identity token. This loop will continue until
# that bit is no longer set. It should go through only once (non-mutual) or twice
- # (mutual).
+ # (mutual).
if ($counter == 1) {
print "CLIENT::going to identify client to server\n";
} elsif ($counter == 2) {
print "CLIENT::confirmed server identity from mutual token\n";
- $gss_server_name->display(my $server_name, my $type);
+ my $server_name;
+ $status = $gss_server_name->display($server_name);
+ $status || gss_exit("CLIENT::Unable to display server name", $status);
print "CLIENT::authenticated server name is $server_name\n" if $server_name;
} else {
@@ -158,7 +160,7 @@
my @major_errors = $status->generic_message();
my @minor_errors = $status->specific_message();
-
+
print STDERR "$errmsg:\n";
foreach my $s (@major_errors) {
print STDERR " MAJOR::$s\n";
Modified: branches/upstream/libgssapi-perl/current/examples/gss-server.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgssapi-perl/current/examples/gss-server.pl?rev=22809&op=diff
==============================================================================
--- branches/upstream/libgssapi-perl/current/examples/gss-server.pl (original)
+++ branches/upstream/libgssapi-perl/current/examples/gss-server.pl Sat Jul 5 19:21:03 2008
@@ -91,8 +91,10 @@
my $out_time,
my $gss_delegated_cred);
- $status or $error = gss_exit("Unable to accept security context", $status);
- $gss_client_name->display(my $client_name, my $type);
+ $status or gss_exit("Unable to accept security context", $status);
+ my $client_name;
+ $status = $gss_client_name->display($client_name);
+ $status or gss_exit("Unable to display client name", $status);
print "SERVER::authenticated client name is $client_name\n" if $client_name;
if($gss_output_token) {
@@ -122,7 +124,7 @@
my @major_errors = $status->generic_message();
my @minor_errors = $status->specific_message();
-
+
print STDERR "$errmsg:\n";
foreach my $s (@major_errors) {
print STDERR " MAJOR::$s\n";
Added: branches/upstream/libgssapi-perl/current/t/importnames.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgssapi-perl/current/t/importnames.t?rev=22809&op=file
==============================================================================
--- branches/upstream/libgssapi-perl/current/t/importnames.t (added)
+++ branches/upstream/libgssapi-perl/current/t/importnames.t Sat Jul 5 19:21:03 2008
@@ -1,0 +1,39 @@
+#! /usr/bin/perl -w
+
+use strict;
+
+use ExtUtils::testlib;
+use Test::More tests => 6;
+
+BEGIN {
+ use_ok('GSSAPI');
+}
+
+my($name);
+
+my $status = GSSAPI::Name->import( $name, 'chpasswd at mars.gac.edu' );
+
+SKIP: {
+ unless ($status->major == GSS_S_COMPLETE ) {
+ #
+ # As an anwer to FAIL 413320
+ # <http://www.nntp.perl.org/group/perl.cpan.testers/2007/02/msg413320.html>
+ # we always printout why the GSSAPI call failed
+ # to decide between general Kerberos (configuration)
+ # problems on the machine that runs the test and
+ # problems of the permodule itself.
+ #
+ skip( '->import() failed ' . $status, 5 );
+ }
+ my ( $name2, $same );
+ ok( $status , q{ GSSAPI::Name->import( $name, 'chpasswd at mars.gac.edu' } );
+ ok( ref $name eq "GSSAPI::Name", 'ref $name eq "GSSAPI::Name"');
+ $status = $name->duplicate($name2);
+ ok( $status->major == GSS_S_COMPLETE, '$name->duplicate($name2) ' . $status );
+ $status = $name->compare($name2, $same);
+ ok($status->major == GSS_S_COMPLETE, '$name->compare($name2, $same) ' . $status );
+ eval {
+ $status = $name->compare($name2, 0);
+ };
+ ok( $@ =~ /Modification of a read-only value/ , 'Modification of a read-only value');
+}
Added: branches/upstream/libgssapi-perl/current/t/indicatemechs.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgssapi-perl/current/t/indicatemechs.t?rev=22809&op=file
==============================================================================
--- branches/upstream/libgssapi-perl/current/t/indicatemechs.t (added)
+++ branches/upstream/libgssapi-perl/current/t/indicatemechs.t Sat Jul 5 19:21:03 2008
@@ -1,0 +1,38 @@
+#! /usr/bin/perl -w
+
+use strict;
+
+use ExtUtils::testlib;
+use Test::More tests => 5;
+
+BEGIN {
+ use_ok('GSSAPI');
+}
+
+my $oidset;
+
+my $status = GSSAPI::indicate_mechs( $oidset );
+
+ok ( $status, q{ GSSAPI::indicate_mechs( $oidset ) } . $status );
+
+SKIP: {
+ unless ($status->major == GSS_S_COMPLETE ) {
+ skip( 'GSSAPI::indicate_mechs( $oidset ) failed ' . $status, 3 );
+ }
+ my $isin = 0;
+ my @supported_mechs;
+
+ my $status = $oidset->contains( gss_mech_krb5_old, $isin );
+ ok ( $status, q{ $oidset->contains( gss_mech_krb5_old, $isin ) } . $status );
+ push @supported_mechs, 'KRB5 old Mechtype' if ( $status && $isin );
+
+ $status = $oidset->contains( gss_mech_krb5, $isin );
+ ok ( $status, q{ $oidset->contains( gss_mech_krb5, $isin ) } . $status );
+ push @supported_mechs, 'Kerberos 5' if ( $status && $isin );
+
+ $status = $oidset->contains( gss_mech_spnego, $isin );
+ ok ( $status, q{ $oidset->contains( gss_mech_spnego, $isin ) } . $status );
+ push @supported_mechs, 'SPNEGO' if ( $status && $isin );
+
+ diag( join ', ', @supported_mechs );
+}
Modified: branches/upstream/libgssapi-perl/current/t/test.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgssapi-perl/current/t/test.t?rev=22809&op=diff
==============================================================================
--- branches/upstream/libgssapi-perl/current/t/test.t (original)
+++ branches/upstream/libgssapi-perl/current/t/test.t Sat Jul 5 19:21:03 2008
@@ -5,36 +5,15 @@
use ExtUtils::testlib;
use GSSAPI qw(:all);
-use Test::More tests => 28;
+use Test::More tests => 19;
my $status;
my $okay;
-my($name, $name2, $same, $export, $display, $type);
-
-$status = GSSAPI::Name->import( $name, 'chpasswd at mars.gac.edu' );
-
-ok($status, 'GSSAPI::Name->import of chpasswd at mars.gac.edu' );
-
-SKIP: {
- skip('GSSAPI::Name->import() failed', 4 ) unless $status;
-
- ok(ref $name eq "GSSAPI::Name", 'ref $name eq "GSSAPI::Name"');
- my $status;
-
- $status = $name->duplicate($name2);
- ok($status->major == GSS_S_COMPLETE, '$name->duplicate($name2)');
-
- $status = $name->compare($name2, $same);
- ok($status->major == GSS_S_COMPLETE, '$name->compare($name2, $same)');
- eval {
- $status = $name->compare($name2, 0);
- };
- ok( $@ =~ /Modification of a read-only value/ , 'Modification of a read-only value');
+my( $type);
-}
#------------------------------------------
@@ -136,14 +115,17 @@
# GSSAPI::Cred
#
- my($cred1, $time);
+ my($cred1, $time, $name );
$status = GSSAPI::Cred::acquire_cred(undef, 120, undef, GSS_C_INITIATE,
$cred1, $oidset, $time);
SKIP: {
if ( $status->major != GSS_S_COMPLETE ) {
- skip( 'This tests only work if user has run kinit succesfully', 6 );
+ diag( "\n\nNo error: acquire_cred() failed, maybe because you have to run kinit first.\n",
+ "Errormessage from your GSSAPI-implementation is: \n\n" . $status ,
+ "\nrun kinit to get a TGT and retry this test (just skipping now).\n\n");
+ skip( 'This tests only work if user has run kinit succesfully' , 6 );
}
ok($status, 'GSSAPI::Cred::acquire_cred');
ok(ref $cred1 eq "GSSAPI::Cred");
@@ -163,30 +145,8 @@
-{
- my $oidset;
- my $isin = 0;
- my $supportresponse;
- my $status = GSSAPI::indicate_mechs( $oidset );
- ok ( $status, q{ GSSAPI::indicate_mechs( $oidset ) } );
-
- $status = $oidset->contains( gss_mech_krb5_old, $isin );
- $supportresponse = $isin ? ' supports KRB5 old Mechtype' : ' does not support KRB5 old Mechtype';
- ok ( $status, q{ $oidset->contains( gss_mech_krb5_old, $isin ) - implementation } . $supportresponse );
- $status = $oidset->contains( gss_mech_krb5, $isin );
- $supportresponse = $isin ? ' supports Kerberos 5' : ' does not support Kerberos 5';
- ok ( $status, q{ $oidset->contains( gss_mech_krb5, $isin ) - implementation } . $supportresponse );
-
- $status = $oidset->contains( gss_mech_spnego, $isin );
- $supportresponse = $isin ? ' supports SPNEGO' : ' does not support SPNEGO';
- ok ( $status, q{ $oidset->contains( gss_mech_spnego, $isin ) - implementation } . $supportresponse );
-
-}
-print "\n\n if you want to run tests that do a realworld *use* of your GSSAPI",
- "\n start a kinit and try to run",
- "\n./examples/getcred_hostbased.pl \n\n";
#-------------------------------------------------------------
Modified: branches/upstream/libgssapi-perl/current/t/zbugfixes.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgssapi-perl/current/t/zbugfixes.t?rev=22809&op=diff
==============================================================================
--- branches/upstream/libgssapi-perl/current/t/zbugfixes.t (original)
+++ branches/upstream/libgssapi-perl/current/t/zbugfixes.t Sat Jul 5 19:21:03 2008
@@ -13,10 +13,10 @@
my ($name, $display);
my $keystring = 'chpasswd at mars.gac.edu';
my $status = GSSAPI::Name->import($name, $keystring);
- ok ( $status, 'GSSAPI::Name->import()');
+ ok ( $status, 'GSSAPI::Name->import() ' . $status );
SKIP: {
if ( $status->major != GSS_S_COMPLETE ) {
- skip('GSSAPI::Name->import() failed', 2 );
+ skip('GSSAPI::Name->import() failed ' . $status, 2 );
}
my $status = $name->display($display);
@@ -25,7 +25,7 @@
# the realm - part of $display
# see <http://rt.cpan.org/Public/Bug/Display.html?id=18531>
#
- ok ( $status, '$name->display() GSS_S_COMPLETE');
+ ok ( $status, '$name->display() GSS_S_COMPLETE ' . $status);
SKIP: {
if ( $status->major != GSS_S_COMPLETE ) {
skip('$name->display() failed', 1 );
@@ -36,4 +36,7 @@
}
}
}
+diag( "\n\n if you want to run tests that do a realworld *use* of your GSSAPI",
+ "\n start a kinit and try to run",
+ "\n\n./examples/getcred_hostbased.pl \n\n" );
#--------------------------------------------------------
More information about the Pkg-perl-cvs-commits
mailing list