On Thu Aug 29 09:12:14 2013, SPROUT wrote:
Show quoted text> t/06signature.t tests to make sure that signature(undef) will give
> different values each time. Due to a perl bug fix, this is no longer
> the case. Since this test seems to be testing Perl behaviour, rather
> than Data::Structure::Util behaviour, why not just delete it?
The attached patch does just that. I leave it to you to decide whether this is the best fix.
diff -rup Data-Structure-Util-0.15-crimpK-orig/t/06signature.t Data-Structure-Util-0.15-crimpK/t/06signature.t
--- Data-Structure-Util-0.15-crimpK-orig/t/06signature.t 2008-03-09 03:48:59.000000000 -0700
+++ Data-Structure-Util-0.15-crimpK/t/06signature.t 2013-09-01 17:11:26.000000000 -0700
@@ -21,7 +21,7 @@ BEGIN {
}
}
-use Test::More tests => 16;
+use Test::More tests => 14;
ok( 1, "we loaded fine..." );
@@ -62,8 +62,6 @@ isnt( signature( $obj4 ), $sig4, "Signat
ok( signature(), "none" );
is( signature(), signature(), "empty list" );
-ok( my $sigundef = signature( undef ), "none" );
-isnt( $sigundef, signature( undef ), "none" );
# BELOW THIS LINE REQUIRES PERL 5.8.0 OR GREATER
SKIP: {
