[gnumeric] Tests: more test for implicit intersection.

[Morten Welinder <mortenw src gnome org>]

commit d5b6ae8522b8937d64f96b627fcd0b5705fa2ecd
Author: Morten Welinder <terra gnome org>
Date:   Mon Jun 29 20:22:08 2020 -0400

    Tests: more test for implicit intersection.

 NEWS                                |   1 +
 samples/intersection-tests.gnumeric | Bin 0 -> 2819 bytes
 test/GnumericTest.pm                |   1 +
 test/Makefile.am                    |   1 +
 test/t1903-intersection-tests.pl    |  10 ++++++++++
 5 files changed, 13 insertions(+)
---
diff --git a/NEWS b/NEWS
index 1f313ee4a..c11dc850f 100644
--- a/NEWS
+++ b/NEWS
@@ -21,6 +21,7 @@ Morten:
        * Fix sheet size paste problem.  [#497]
        * Speed up really large auto-filters.  [#465]
        * Fix 2038 problem on quit.
+       * Improve tests.
 
 --------------------------------------------------------------------------
 Gnumeric 1.12.47
diff --git a/samples/intersection-tests.gnumeric b/samples/intersection-tests.gnumeric
new file mode 100644
index 000000000..39313f4cc
Binary files /dev/null and b/samples/intersection-tests.gnumeric differ
diff --git a/test/GnumericTest.pm b/test/GnumericTest.pm
index be12144db..df9b2ac4b 100644
--- a/test/GnumericTest.pm
+++ b/test/GnumericTest.pm
@@ -232,6 +232,7 @@ my @dist_corpus =
      "$samples/formula-tests.gnumeric",
      "$samples/graph-tests.gnumeric",
      "$samples/hlink-tests.gnumeric",
+     "$samples/intersection-tests.gnumeric",
      "$samples/merge-tests.gnumeric",
      "$samples/names-tests.gnumeric",
      "$samples/number-tests.gnumeric",
diff --git a/test/Makefile.am b/test/Makefile.am
index 629c75d17..dfd2b2182 100644
--- a/test/Makefile.am
+++ b/test/Makefile.am
@@ -62,6 +62,7 @@ TESTS =       t1000-statfuns.pl                       \
        t1900-array.pl                          \
        t1901-regress.pl                        \
        t1902-array-intersection.pl             \
+       t1903-intersection-tests.pl             \
        t2000-names-insdel.pl                   \
        t2001-func-help.pl                      \
        t2002-nonascii-numbers.pl               \
diff --git a/test/t1903-intersection-tests.pl b/test/t1903-intersection-tests.pl
new file mode 100755
index 000000000..c3ee86cb7
--- /dev/null
+++ b/test/t1903-intersection-tests.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+# -----------------------------------------------------------------------------
+
+use strict;
+use lib ($0 =~ m|^(.*/)| ? $1 : ".");
+use GnumericTest;
+
+my $file = "intersection-tests.gnumeric";
+&message ("Check that $file evaluates correctly.");
+&test_sheet_calc ("$samples/$file", "B1:B3", sub { /(\bTRUE\b\s*){3}/ });