File fixtest.patch of Package perl-Time-modules

Author: Bernhard M. Wiedemann <bwiedemann suse.de>
Date: 2018-10-31

Make tests pass in the future

Without this patch, 33 tests failed in 2033 by misinterpreting 2-digit years
e.g.
  two digit year '94' expanded into 2094
  jd(2094, 11, 06) = 2486188
  before  2486188 08 49 37
  after rs  2486188 8 49 37
  jd_secondsgm(2486188, 8, 49, 37) = 3939871777
  adjusting secs for GMT: 0
  returning 3939871777.
  not ok 273 # Sunday, 06-Nov-94 08:49:37 GMT
  Expected(784111777):    Sun Nov  6  0:49:37 1994 PST
	 Got(3939871777): Sat Nov  6  0:49:37 2094 PST (11/06 08:49 AM GMT)

Index: Time-modules-2013.0912/t/datetime.t
===================================================================
--- Time-modules-2013.0912.orig/t/datetime.t
+++ Time-modules-2013.0912/t/datetime.t
@@ -437,6 +437,7 @@ while (@sdt) {
 	$ar = shift(@sdt);
 	$toparse = shift(@$ar);
 	%opts = @$ar;
+	$opts{NOW} //= 1000000000;
 	if (defined $opts{NOW}) {
 		$opts{NOW} -= $epoch;
 	}
openSUSE Build Service is sponsored by