Add detailed tests for changelog2spec

for catching openSUSE#1099 and openSUSE#1047
and other weirdness, such as that the first entry is parsed differently.
Might need adaption for code fixes.

Author: bmwiedemann

t/changelog2spec.t

@@ -1,13 +1,18 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Test::More tests => 11;
+use Test::More tests => 13;
 
+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,10 @@ 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);
+}

t/data/changelog2spec/test1.changes

@@ -0,0 +1,14 @@
+-------------------------------------------------------------------
+Wed Jul 17 14:01:38 UTC 2024 - Bernhard Wiedemann <bwiedemann@suse.com>
+
+- dummy
+
+-------------------------------------------------------------------
+Sat Feb 13 00:00:00 MSK 2010 - csa@dside.dyndns.org
+
+ New version
+
+-------------------------------------------------------------------
+Sat Mar 28 07:25:39 WEST 2009 - someone@suse
+
+- foo

t/data/changelog2spec/test1.spec

@@ -0,0 +1,6 @@
+* Wed Jul 17 2024 Bernhard Wiedemann <bwiedemann@suse.com>
+- dummy
+* Fri Feb 12 2010 csa@dside.dyndns.org
+  New version
+* Sat Mar 28 2009 someone@suse
+- foo

t/data/changelog2spec/test2.changes

@@ -0,0 +1,6 @@
+-------------------------------------------------------------------
+Sat Feb 13 00:00:00 MSK 2010 - csa@dside.dyndns.org
+
+ New version
+
+-------------------------------------------------------------------

t/data/changelog2spec/test2.spec

@@ -0,0 +1,2 @@
+* Sat Feb 13 2010 csa@dside.dyndns.org
+  New version