Adding upstream version 2.117.0.upstream/2.117.0upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

3 files changed, 54 insertions, 0 deletions

diff --git a/t/recipes/checks/cruft/cruft-gfdl-fp-sliding-win/build-spec/fill-values b/t/recipes/checks/cruft/cruft-gfdl-fp-sliding-win/build-spec/fill-values
new file mode 100644
index 0000000..85fc8d9
--- /dev/null
+++ b/t/recipes/checks/cruft/cruft-gfdl-fp-sliding-win/build-spec/fill-values
@@ -0,0 +1,3 @@
+Skeleton: upload-native
+Testname: cruft-gfdl-fp-sliding-win
+Description: Check for FP with GFDL invariants sections
diff --git a/t/recipes/checks/cruft/cruft-gfdl-fp-sliding-win/build-spec/orig/src/normal.texi b/t/recipes/checks/cruft/cruft-gfdl-fp-sliding-win/build-spec/orig/src/normal.texi
new file mode 100644
index 0000000..d9c1b54
--- /dev/null
+++ b/t/recipes/checks/cruft/cruft-gfdl-fp-sliding-win/build-spec/orig/src/normal.texi
@@ -0,0 +1,6 @@
+Permission is granted to copy, distribute and/or modify this
+document under the terms of the GNU Free Documentation License,
+version 1.3 or any later version published by the Free Software
+Foundation; with no Invariant Sections, no Front-Cover Texts and
+no Back-Cover Texts.  A copy of the license is included in the
+section entitled "GNU Free Documentation License".
diff --git a/t/recipes/checks/cruft/cruft-gfdl-fp-sliding-win/build-spec/pre-build b/t/recipes/checks/cruft/cruft-gfdl-fp-sliding-win/build-spec/pre-build
new file mode 100755
index 0000000..5ee6c94
--- /dev/null
+++ b/t/recipes/checks/cruft/cruft-gfdl-fp-sliding-win/build-spec/pre-build
@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+
+# Attempt to break the GFDL so that the "redeeming" part of the
+# license gets in the window /after/ the triggering part.  c/cruft
+# handles this case correctly now and we don't want to mess that up
+# later.
+
+use strict;
+use warnings;
+
+# Keep in sync with checks/cruft
+use constant BLOCK_SIZE => 16_384;
+
+my ($rootdir) = @ARGV;
+my $dir = "$rootdir/debian/src";
+my $file = "$dir/good.texi";
+
+unless (-d $dir) {
+    mkdir $dir or die "mkdir $dir: $!";
+}
+
+my $slash = '/';
+my $gfdl_start = <<EOT ;
+Permission is granted to copy, distribute and${slash}or modify this
+document under the terms of the GNU Free Documentation License,
+version 1.3 or any later version published by the Free Software
+Foundation;
+EOT
+
+my $gfdl_end = <<EOT;
+with no Invariant Sections, no Front-Cover Texts and
+no Back-Cover Texts.  A copy of the license is included in the
+section entitled "GNU Free Documentation License".
+EOT
+
+my $fill = BLOCK_SIZE - length $gfdl_start;
+my $prefix = ' ' x ($fill - 1);
+
+open my $fd, '>', $file or die "open $file: $!";
+
+print {$fd} $prefix, "\n";
+print {$fd} $gfdl_start;
+print {$fd} $gfdl_end;
+
+close $fd or die "close $file: $!";