[gnumeric] tests: add ods-strict tests.

[Morten Welinder <mortenw src gnome org>]

commit 252b2775822bde283659ba3da30182b97efc1c6e
Author: Morten Welinder <terra gnome org>
Date:   Sun Sep 4 18:12:57 2022 -0400

    tests: add ods-strict tests.
    
    Note: this adds the tests, but lots of things do not roundtrip and thus
    the tests ignore failures for this.  Determining whether the failures
    are due to deficiencies in the file format or is a bug is something
    that requires a good deal of reading specs and code.

 test/t6501-numbers.pl          | 10 ++++++++++
 test/t6502-styles.pl           | 10 ++++++++++
 test/t6503-page-setup.pl       |  9 +++++++++
 test/t6506-cell-comments.pl    |  9 +++++++++
 test/t6508-sheet-formatting.pl | 10 ++++++++++
 test/t6509-validation.pl       | 10 ++++++++++
 test/t6510-auto-filter.pl      |  9 +++++++++
 test/t6511-solver.pl           | 10 ++++++++++
 test/t6512-format.pl           | 10 ++++++++++
 test/t6513-merges.pl           |  3 ++-
 test/t6515-cond-format.pl      | 10 ++++++++++
 test/t6516-graph.pl            | 10 ++++++++++
 test/t6518-objects.pl          | 10 ++++++++++
 test/t6519-selection.pl        | 10 ++++++++++
 test/t6520-sheet-tab.pl        | 10 ++++++++++
 15 files changed, 139 insertions(+), 1 deletion(-)
---
diff --git a/test/t6501-numbers.pl b/test/t6501-numbers.pl
index e36138066..17debc198 100755
--- a/test/t6501-numbers.pl
+++ b/test/t6501-numbers.pl
@@ -27,6 +27,16 @@ if (&subtest ("ods")) {
                     'filter2' => 'std:drop_generator');
 }
 
+if (&subtest ("ods-strict")) {
+    &message ("Check string ods strict-conformance roundtrip.");
+    &test_roundtrip ($file,
+                    'format' => 'Gnumeric_OpenCalc:openoffice',
+                    'ext' => "ods",
+                    'filter1' => 'std:ods_strict',
+                    'filter2' => 'std:drop_generator | std:ods_strict',
+                    'ignore_failure' => 1);
+}
+
 if (&subtest ("biff7")) {
     &message ("Check number xls/BIFF7 roundtrip.");
     &test_roundtrip ($file,
diff --git a/test/t6502-styles.pl b/test/t6502-styles.pl
index a94a0b06d..b7557db76 100755
--- a/test/t6502-styles.pl
+++ b/test/t6502-styles.pl
@@ -22,6 +22,16 @@ if (&subtest ("ods")) {
                     'filter2' => 'std:drop_generator');
 }
 
+if (&subtest ("ods-strict")) {
+    &message ("Check string ods strict-conformance roundtrip.");
+    &test_roundtrip ($file,
+                    'format' => 'Gnumeric_OpenCalc:openoffice',
+                    'ext' => "ods",
+                    'filter1' => 'std:ods_strict',
+                    'filter2' => 'std:drop_generator | std:ods_strict',
+                    'ignore_failure' => 1);
+}
+
 # Biff7 only handles a few fixed rotations.
 my $xls_rotation_filter = "$PERL -p -e 's{\\b(Rotation)=\"315\"}{\$1=\"270\"}; 
s{\\b(Rotation)=\"45\"}{\$1=\"0\"};'";
 
diff --git a/test/t6503-page-setup.pl b/test/t6503-page-setup.pl
index 701faa6b3..d6c193e45 100755
--- a/test/t6503-page-setup.pl
+++ b/test/t6503-page-setup.pl
@@ -22,6 +22,15 @@ if (&subtest ("ods")) {
                     'filter2' => 'std:drop_generator');
 }
 
+if (&subtest ("ods-strict")) {
+    &message ("Check string ods strict-conformance roundtrip.");
+    &test_roundtrip ($file,
+                    'format' => 'Gnumeric_OpenCalc:openoffice',
+                    'ext' => "ods",
+                    'filter1' => 'std:ods_strict',
+                    'filter2' => 'std:drop_generator | std:ods_strict');
+}
+
 if (&subtest ("biff7")) {
     &message ("Check page-setup xls/BIFF7 roundtrip.");
     &test_roundtrip ($file,
diff --git a/test/t6506-cell-comments.pl b/test/t6506-cell-comments.pl
index d61ecc179..3c52b0336 100755
--- a/test/t6506-cell-comments.pl
+++ b/test/t6506-cell-comments.pl
@@ -22,6 +22,15 @@ if (&subtest ("ods")) {
                     'filter2' => 'std:drop_generator');
 }
 
+if (&subtest ("ods-strict")) {
+    &message ("Check string ods strict-conformance roundtrip.");
+    &test_roundtrip ($file,
+                    'format' => 'Gnumeric_OpenCalc:openoffice',
+                    'ext' => "ods",
+                    'filter1' => 'std:ods_strict',
+                    'filter2' => 'std:drop_generator | std:ods_strict');
+}
+
 my $xls_greek_filter = "$PERL -p -C7 -e '1 while (s{\\b(Text=\"Greek[ ?]+)[^ ?\"]}{\$1?})'";
 
 if (&subtest ("biff7")) {
diff --git a/test/t6508-sheet-formatting.pl b/test/t6508-sheet-formatting.pl
index 5288df63b..98e919c12 100755
--- a/test/t6508-sheet-formatting.pl
+++ b/test/t6508-sheet-formatting.pl
@@ -22,6 +22,16 @@ if (&subtest ("ods")) {
                     'filter2' => 'std:drop_generator');
 }
 
+if (&subtest ("ods-strict")) {
+    &message ("Check string ods strict-conformance roundtrip.");
+    &test_roundtrip ($file,
+                    'format' => 'Gnumeric_OpenCalc:openoffice',
+                    'ext' => "ods",
+                    'filter1' => 'std:ods_strict',
+                    'filter2' => 'std:drop_generator | std:ods_strict',
+                    'ignore_failure' => 1);
+}
+
 if (&subtest ("biff7")) {
     &message ("Check sheet-formatting xls/BIFF7 roundtrip.");
     &test_roundtrip ($file,
diff --git a/test/t6509-validation.pl b/test/t6509-validation.pl
index 9eed0a916..b4ab08e24 100755
--- a/test/t6509-validation.pl
+++ b/test/t6509-validation.pl
@@ -22,6 +22,16 @@ if (&subtest ("ods")) {
                     'filter2' => 'std:drop_generator');
 }
 
+if (&subtest ("ods-strict")) {
+    &message ("Check string ods strict-conformance roundtrip.");
+    &test_roundtrip ($file,
+                    'format' => 'Gnumeric_OpenCalc:openoffice',
+                    'ext' => "ods",
+                    'filter1' => 'std:ods_strict',
+                    'filter2' => 'std:drop_generator | std:ods_strict',
+                    'ignore_failure' => 1);
+}
+
 my $xls_greek_filter = "$PERL -p -C7 -e '1 while (s{\\b((Title|Message)=\".*Greek[ ?]+)[^ ?\"]}{\$1?})'";
 
 if (&subtest ("biff7")) {
diff --git a/test/t6510-auto-filter.pl b/test/t6510-auto-filter.pl
index 2f749b40e..2e64e8c1b 100755
--- a/test/t6510-auto-filter.pl
+++ b/test/t6510-auto-filter.pl
@@ -22,6 +22,15 @@ if (&subtest ("ods")) {
                     'filter2' => 'std:drop_generator');
 }
 
+if (&subtest ("ods-strict")) {
+    &message ("Check string ods strict-conformance roundtrip.");
+    &test_roundtrip ($file,
+                    'format' => 'Gnumeric_OpenCalc:openoffice',
+                    'ext' => "ods",
+                    'filter1' => 'std:ods_strict',
+                    'filter2' => 'std:drop_generator | std:ods_strict');
+}
+
 my $xls_greek_filter = "$PERL -p -C7 -e '1 while (s{\\b((Title|Message)=\".*Greek[ ?]+)[^ ?\"]}{\$1?})'";
 
 if (&subtest ("biff7")) {
diff --git a/test/t6511-solver.pl b/test/t6511-solver.pl
index 4ecb27393..440d73906 100755
--- a/test/t6511-solver.pl
+++ b/test/t6511-solver.pl
@@ -24,6 +24,16 @@ if (&subtest ("ods")) {
                     'filter2' => 'std:drop_generator');
 }
 
+if (&subtest ("ods-strict")) {
+    &message ("Check string ods strict-conformance roundtrip.");
+    &test_roundtrip ($file,
+                    'format' => 'Gnumeric_OpenCalc:openoffice',
+                    'ext' => "ods",
+                    'filter1' => 'std:ods_strict',
+                    'filter2' => 'std:drop_generator | std:ods_strict',
+                    'ignore_failure' => 1);
+}
+
 if (&subtest ("biff7")) {
     # Format is deficient
     &message ("Check solver xls/BIFF7 roundtrip.");
diff --git a/test/t6512-format.pl b/test/t6512-format.pl
index 3904d5fc2..5ae8b16da 100755
--- a/test/t6512-format.pl
+++ b/test/t6512-format.pl
@@ -25,6 +25,16 @@ if (&subtest ("ods")) {
                     'filter2' => 'std:drop_generator');
 }
 
+if (&subtest ("ods-strict")) {
+    &message ("Check string ods strict-conformance roundtrip.");
+    &test_roundtrip ($file,
+                    'format' => 'Gnumeric_OpenCalc:openoffice',
+                    'ext' => "ods",
+                    'filter1' => 'std:ods_strict',
+                    'filter2' => 'std:drop_generator | std:ods_strict',
+                    'ignore_failure' => 1);
+}
+
 if (&subtest ("biff7")) {
     &message ("Check format xls/BIFF7 roundtrip.");
     &test_roundtrip ($file,
diff --git a/test/t6513-merges.pl b/test/t6513-merges.pl
index 4eb9cff70..79f54e0e9 100755
--- a/test/t6513-merges.pl
+++ b/test/t6513-merges.pl
@@ -31,7 +31,8 @@ if (&subtest ("ods-strict")) {
                     'format' => 'Gnumeric_OpenCalc:openoffice',
                     'ext' => "ods",
                     'filter1' => 'std:ods_strict',
-                    'filter2' => 'std:drop_generator | std:ods_strict');
+                    'filter2' => 'std:drop_generator | std:ods_strict',
+                    'ignore_failure' => 1);
 }
 
 if (&subtest ("biff7")) {
diff --git a/test/t6515-cond-format.pl b/test/t6515-cond-format.pl
index e890a697c..4a16366f5 100755
--- a/test/t6515-cond-format.pl
+++ b/test/t6515-cond-format.pl
@@ -22,6 +22,16 @@ if (&subtest ("ods")) {
                     'filter2' => 'std:drop_generator');
 }
 
+if (&subtest ("ods-strict")) {
+    &message ("Check string ods strict-conformance roundtrip.");
+    &test_roundtrip ($file,
+                    'format' => 'Gnumeric_OpenCalc:openoffice',
+                    'ext' => "ods",
+                    'filter1' => 'std:ods_strict',
+                    'filter2' => 'std:drop_generator | std:ods_strict',
+                    'ignore_failure' => 1);
+}
+
 if (&subtest ("biff7")) {
     &message ("Check conditional format xls/BIFF7 roundtrip.");
     &test_roundtrip ($file,
diff --git a/test/t6516-graph.pl b/test/t6516-graph.pl
index c5575f554..1f46492fe 100755
--- a/test/t6516-graph.pl
+++ b/test/t6516-graph.pl
@@ -25,6 +25,16 @@ if (&subtest ("ods")) {
                     'ignore_failure' => 1);
 }
 
+if (&subtest ("ods-strict")) {
+    &message ("Check string ods strict-conformance roundtrip.");
+    &test_roundtrip ($file,
+                    'format' => 'Gnumeric_OpenCalc:openoffice',
+                    'ext' => "ods",
+                    'filter1' => 'std:ods_strict',
+                    'filter2' => 'std:drop_generator | std:ods_strict',
+                    'ignore_failure' => 1);
+}
+
 if (&subtest ("biff7")) {
     # We don't save graphs, so don't test.
     &message ("Check graph xls/BIFF7 roundtrip.");
diff --git a/test/t6518-objects.pl b/test/t6518-objects.pl
index e76f820d7..76b4361c9 100755
--- a/test/t6518-objects.pl
+++ b/test/t6518-objects.pl
@@ -25,6 +25,16 @@ if (&subtest ("ods")) {
                     'ignore_failure' => 1);
 }
 
+if (&subtest ("ods-strict")) {
+    &message ("Check string ods strict-conformance roundtrip.");
+    &test_roundtrip ($file,
+                    'format' => 'Gnumeric_OpenCalc:openoffice',
+                    'ext' => "ods",
+                    'filter1' => 'std:ods_strict',
+                    'filter2' => 'std:drop_generator | std:ods_strict',
+                    'ignore_failure' => 1);
+}
+
 if (&subtest ("biff7")) {
     # We don't save objects, so don't test.
     &message ("Check object xls/BIFF7 roundtrip.");
diff --git a/test/t6519-selection.pl b/test/t6519-selection.pl
index 0fcee9dbf..ee2328f48 100755
--- a/test/t6519-selection.pl
+++ b/test/t6519-selection.pl
@@ -22,6 +22,16 @@ if (&subtest ("ods")) {
                     'filter2' => 'std:drop_generator');
 }
 
+if (&subtest ("ods-strict")) {
+    &message ("Check string ods strict-conformance roundtrip.");
+    &test_roundtrip ($file,
+                    'format' => 'Gnumeric_OpenCalc:openoffice',
+                    'ext' => "ods",
+                    'filter1' => 'std:ods_strict',
+                    'filter2' => 'std:drop_generator | std:ods_strict',
+                    'ignore_failure' => 1);
+}
+
 if (&subtest ("biff7")) {
     &message ("Check selection xls/BIFF7 roundtrip.");
     &test_roundtrip ($file,
diff --git a/test/t6520-sheet-tab.pl b/test/t6520-sheet-tab.pl
index 16e83283e..fed2ab164 100755
--- a/test/t6520-sheet-tab.pl
+++ b/test/t6520-sheet-tab.pl
@@ -22,6 +22,16 @@ if (&subtest ("ods")) {
                     'filter2' => 'std:drop_generator');
 }
 
+if (&subtest ("ods-strict")) {
+    &message ("Check string ods strict-conformance roundtrip.");
+    &test_roundtrip ($file,
+                    'format' => 'Gnumeric_OpenCalc:openoffice',
+                    'ext' => "ods",
+                    'filter1' => 'std:ods_strict',
+                    'filter2' => 'std:drop_generator | std:ods_strict',
+                    'ignore_failure' => 1);
+}
+
 if (&subtest ("biff7")) {
     &message ("Check sheet tab formatting xls/BIFF7 roundtrip.");
     &test_roundtrip ($file,