Add XServiceInfo tests to ScAnnontationObj

Change-Id: I866b057f768b29f14f7eaa75bc8db3591ddca836
Reviewed-on: https://gerrit.libreoffice.org/68635
Tested-by: Jenkins
Reviewed-by: Jens Carl <j.carl43@gmx.de>

sc/qa/extras/scannotationobj.cxx

@@ -9,6 +9,7 @@
 
 #include <test/calc_unoapi_test.hxx>
 #include <test/container/xchild.hxx>
+#include <test/lang/xserviceinfo.hxx>
 #include <test/sheet/xsheetannotation.hxx>
 #include <test/sheet/xsheetannotationshapesupplier.hxx>
 #include <test/text/xsimpletext.hxx>
@@ -30,6 +31,7 @@ namespace sc_apitest
 {
 class ScAnnontationObj : public CalcUnoApiTest,
                          public apitest::XChild,
+                         public apitest::XServiceInfo,
                          public apitest::XSheetAnnotation,
                          public apitest::XSheetAnnotationShapeSupplier,
                          public apitest::XSimpleText,
@@ -49,6 +51,11 @@ public:
     // XChild
     CPPUNIT_TEST(testGetSetParent);
 
+    // XServiceInfo
+    CPPUNIT_TEST(testGetImplementationName);
+    CPPUNIT_TEST(testGetSupportedServiceNames);
+    CPPUNIT_TEST(testSupportsService);
+
     // XSheetAnnotation
     CPPUNIT_TEST(testGetPosition);
     CPPUNIT_TEST(testGetAuthor);
@@ -79,6 +86,7 @@ private:
 
 ScAnnontationObj::ScAnnontationObj()
     : CalcUnoApiTest("/sc/qa/extras/testdocuments")
+    , XServiceInfo("ScAnnotationObj", "com.sun.star.sheet.CellAnnotation")
 {
 }