Merge pull request #1100 from bmwiedemann/changelog2spectest

Add detailed tests for changelog2spec

Author: mlschroe

t/changelog2spec.t

@@ -1,13 +1,18 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Test::More tests => 11;
+use Test::More tests => 15;
 
+sub onetest1(@)
+{
+  my $expected = shift;
+  my $actual = `./changelog2spec @_`;
+  is($actual, $expected, "changelog2spec @_");
+}
 sub onetest(@)
 {
   my $expected = shift;
-  my $actual = `./changelog2spec --selftest @_`;
-  is($actual, $expected, "changelog2spec --selftest @_");
+  onetest1($expected, "--selftest", @_);
 }
 
 my @tests=(
@@ -31,3 +36,14 @@ for my $t (@tests) {
   my $expected=shift(@tmp);
   onetest($expected, $file, @tmp);
 }
+
+my @fulltests=glob("t/data/changelog2spec/*.changes");
+for my $t (@fulltests) {
+  my $spec = $t; $spec=~s/\.changes$/.spec/;
+  my $expected = `cat $spec`;
+  onetest1($expected, $t);
+
+  my $specfull = $t; $specfull=~s/\.changes$/-full.spec/;
+  my $expectedfull = `cat $specfull`;
+  onetest1($expectedfull, '--fulltimestamps', $t);
+}

t/data/changelog2spec/test1-full.spec

@@ -0,0 +1,6 @@
+* Wed Jul 17 14:01:38 UTC 2024 Bernhard Wiedemann <[email protected]>
+- dummy
+* Fri Feb 12 21:00:00 UTC 2010 [email protected]
+- Test for issue #1099
+* Sat Mar 28 00:00:00 UTC 2009 someone@suse
+- Test for issue #1047

t/data/changelog2spec/test1.changes

@@ -0,0 +1,14 @@
+-------------------------------------------------------------------
+Wed Jul 17 14:01:38 UTC 2024 - Bernhard Wiedemann <[email protected]>
+
+- dummy
+
+-------------------------------------------------------------------
+Sat Feb 13 00:00:00 MSK 2010 - [email protected]
+
+- Test for issue #1099
+
+-------------------------------------------------------------------
+Sat Mar 28 07:25:39 WEST 2009 - someone@suse
+
+- Test for issue #1047

t/data/changelog2spec/test1.spec

@@ -0,0 +1,6 @@
+* Wed Jul 17 2024 Bernhard Wiedemann <[email protected]>
+- dummy
+* Fri Feb 12 2010 [email protected]
+- Test for issue #1099
+* Sat Mar 28 2009 someone@suse
+- Test for issue #1047

t/data/changelog2spec/test2-full.spec

@@ -0,0 +1,2 @@
+* Fri Feb 12 21:00:00 UTC 2010 csa@dside.dyndns.org
+- Test for issue #1099

t/data/changelog2spec/test2.changes

@@ -0,0 +1,4 @@
+-------------------------------------------------------------------
+Sat Feb 13 00:00:00 MSK 2010 - [email protected]
+
+- Test for issue #1099

t/data/changelog2spec/test2.spec

@@ -0,0 +1,2 @@
+* Sat Feb 13 2010 [email protected]
+- Test for issue #1099