Add TextLanguage cppunit test to vcl.

The test sets two languages for the metafile and checks their attributes.

Change-Id: Ibb23c03af48af5c40ea65593917a40a928fd1280
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/117368
Tested-by: Jenkins
Reviewed-by: Tomaž Vajngerl <quikee@gmail.com>

2 files changed, 25 insertions, 2 deletions

diff --git a/vcl/qa/cppunit/svm/data/textlanguage.svm b/vcl/qa/cppunit/svm/data/textlanguage.svm
new file mode 100644
index 000000000000..2e930d27e55e
--- /dev/null
+++ b/vcl/qa/cppunit/svm/data/textlanguage.svm
diff --git a/vcl/qa/cppunit/svm/svmtest.cxx b/vcl/qa/cppunit/svm/svmtest.cxx
index 605a8f5c8afd..a8244ff2f25b 100644
--- a/vcl/qa/cppunit/svm/svmtest.cxx
+++ b/vcl/qa/cppunit/svm/svmtest.cxx
@@ -193,7 +193,7 @@ class SvmTest : public test::BootstrapFixture, public XmlTestTools
     //void checkLayoutMode(const GDIMetaFile& rMetaFile);
     void testLayoutMode();
 
-    //void checkTextLanguage(const GDIMetaFile& rMetaFile);
+    void checkTextLanguage(const GDIMetaFile& rMetaFile);
     void testTextLanguage();
 
 public:
@@ -2111,8 +2111,31 @@ void SvmTest::testComment()
 void SvmTest::testLayoutMode()
 {}
 
+void SvmTest::checkTextLanguage(const GDIMetaFile& rMetaFile)
+{
+    xmlDocUniquePtr pDoc = dumpMeta(rMetaFile);
+
+    assertXPathAttrs(pDoc, "/metafile/textlanguage[1]", {
+        {"language", "#0408"}
+    });
+
+    assertXPathAttrs(pDoc, "/metafile/textlanguage[2]", {
+        {"language", "#00ff"}
+    });
+}
+
 void SvmTest::testTextLanguage()
-{}
+{
+    GDIMetaFile aGDIMetaFile;
+    ScopedVclPtrInstance<VirtualDevice> pVirtualDev;
+    setupBaseVirtualDevice(*pVirtualDev, aGDIMetaFile);
+
+    pVirtualDev->SetDigitLanguage(LANGUAGE_GREEK);
+    pVirtualDev->SetDigitLanguage(LANGUAGE_NONE);
+
+    checkTextLanguage(writeAndReadStream(aGDIMetaFile));
+    checkTextLanguage(readFile(u"textlanguage.svm"));
+}
 
 CPPUNIT_TEST_SUITE_REGISTRATION(SvmTest);