r22811 - in /trunk/libgssapi-perl: Changes GSSAPI.pm GSSAPI.xs MANIFEST META.yml Makefile.PL README debian/changelog 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:24:05 UTC 2008


Author: gregoa
Date: Sat Jul  5 19:24:05 2008
New Revision: 22811

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=22811
Log:
New upstream release.

Added:
    trunk/libgssapi-perl/t/importnames.t
      - copied unchanged from r22810, branches/upstream/libgssapi-perl/current/t/importnames.t
    trunk/libgssapi-perl/t/indicatemechs.t
      - copied unchanged from r22810, branches/upstream/libgssapi-perl/current/t/indicatemechs.t
Modified:
    trunk/libgssapi-perl/Changes
    trunk/libgssapi-perl/GSSAPI.pm
    trunk/libgssapi-perl/GSSAPI.xs
    trunk/libgssapi-perl/MANIFEST
    trunk/libgssapi-perl/META.yml
    trunk/libgssapi-perl/Makefile.PL
    trunk/libgssapi-perl/README
    trunk/libgssapi-perl/debian/changelog
    trunk/libgssapi-perl/examples/gss-client.pl
    trunk/libgssapi-perl/examples/gss-server.pl
    trunk/libgssapi-perl/t/test.t
    trunk/libgssapi-perl/t/zbugfixes.t

Modified: trunk/libgssapi-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/Changes?rev=22811&op=diff
==============================================================================
--- trunk/libgssapi-perl/Changes (original)
+++ trunk/libgssapi-perl/Changes Sat Jul  5 19:24:05 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: trunk/libgssapi-perl/GSSAPI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/GSSAPI.pm?rev=22811&op=diff
==============================================================================
--- trunk/libgssapi-perl/GSSAPI.pm (original)
+++ trunk/libgssapi-perl/GSSAPI.pm Sat Jul  5 19:24:05 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: trunk/libgssapi-perl/GSSAPI.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/GSSAPI.xs?rev=22811&op=diff
==============================================================================
--- trunk/libgssapi-perl/GSSAPI.xs (original)
+++ trunk/libgssapi-perl/GSSAPI.xs Sat Jul  5 19:24:05 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: trunk/libgssapi-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/MANIFEST?rev=22811&op=diff
==============================================================================
--- trunk/libgssapi-perl/MANIFEST (original)
+++ trunk/libgssapi-perl/MANIFEST Sat Jul  5 19:24:05 2008
@@ -25,3 +25,5 @@
 t/zbugfixes.t
 t/1constants.t
 t/pod.t
+t/importnames.t
+t/indicatemechs.t

Modified: trunk/libgssapi-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/META.yml?rev=22811&op=diff
==============================================================================
--- trunk/libgssapi-perl/META.yml (original)
+++ trunk/libgssapi-perl/META.yml Sat Jul  5 19:24:05 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: trunk/libgssapi-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/Makefile.PL?rev=22811&op=diff
==============================================================================
--- trunk/libgssapi-perl/Makefile.PL (original)
+++ trunk/libgssapi-perl/Makefile.PL Sat Jul  5 19:24:05 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: trunk/libgssapi-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/README?rev=22811&op=diff
==============================================================================
--- trunk/libgssapi-perl/README (original)
+++ trunk/libgssapi-perl/README Sat Jul  5 19:24:05 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: trunk/libgssapi-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/debian/changelog?rev=22811&op=diff
==============================================================================
--- trunk/libgssapi-perl/debian/changelog (original)
+++ trunk/libgssapi-perl/debian/changelog Sat Jul  5 19:24:05 2008
@@ -1,4 +1,4 @@
-libgssapi-perl (0.22-2) UNRELEASED; urgency=low
+libgssapi-perl (0.26-1) UNRELEASED; urgency=low
 
   * Take over for the Debian Perl Group with maintainer's permission
     (http://lists.debian.org/debian-perl/2008/06/msg00039.html)
@@ -9,6 +9,8 @@
     <rafl at debian.org>); Florian Ragwitz <rafl at debian.org> moved to
     Uploaders.
   * Add debian/watch.
+  
+  * New upstream release.
 
  -- gregor herrmann <gregoa at debian.org>  Sun, 15 Jun 2008 18:45:59 +0200
 

Modified: trunk/libgssapi-perl/examples/gss-client.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/examples/gss-client.pl?rev=22811&op=diff
==============================================================================
--- trunk/libgssapi-perl/examples/gss-client.pl (original)
+++ trunk/libgssapi-perl/examples/gss-client.pl Sat Jul  5 19:24:05 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: trunk/libgssapi-perl/examples/gss-server.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/examples/gss-server.pl?rev=22811&op=diff
==============================================================================
--- trunk/libgssapi-perl/examples/gss-server.pl (original)
+++ trunk/libgssapi-perl/examples/gss-server.pl Sat Jul  5 19:24:05 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";

Modified: trunk/libgssapi-perl/t/test.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/t/test.t?rev=22811&op=diff
==============================================================================
--- trunk/libgssapi-perl/t/test.t (original)
+++ trunk/libgssapi-perl/t/test.t Sat Jul  5 19:24:05 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: trunk/libgssapi-perl/t/zbugfixes.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/t/zbugfixes.t?rev=22811&op=diff
==============================================================================
--- trunk/libgssapi-perl/t/zbugfixes.t (original)
+++ trunk/libgssapi-perl/t/zbugfixes.t Sat Jul  5 19:24:05 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