basic add a generic unit test fixture

basic_coverage is a generic unit test that scan
qa/basic_coverage/*

each file there is supposed to be a well formed Basic script
that define as least a Function doUnitTest as Integer
that return 1 if OK, 0 if not OK

Change-Id: I6c3cfac1e7ce4748f46c04344102a0eff69b6a49

5 files changed, 310 insertions, 0 deletions

diff --git a/basic/CppunitTest_basic_coverage.mk b/basic/CppunitTest_basic_coverage.mk
new file mode 100644
index 000000000000..e1189e5eb790
--- /dev/null
+++ b/basic/CppunitTest_basic_coverage.mk
@@ -0,0 +1,60 @@
+#
+# This file is part of the LibreOffice project.
+#
+# This Source Code Form is subject to the terms of the Mozilla Public
+# License, v. 2.0. If a copy of the MPL was not distributed with this
+# file, You can obtain one at http://mozilla.org/MPL/2.0/.
+#
+
+$(eval $(call gb_CppunitTest_CppunitTest,basic_coverage))
+
+$(eval $(call gb_CppunitTest_add_exception_objects,basic_coverage, \
+    basic/qa/cppunit/basic_coverage \
+))
+
+#$(eval $(call gb_CppunitTest_use_library_objects,basic_coverage,sb))
+
+# add a list of all needed libraries here
+$(eval $(call gb_CppunitTest_use_libraries,basic_coverage, \
+    comphelper \
+    cppu \
+    cppuhelper \
+    sal \
+    salhelper \
+    sb \
+    sot \
+    svl \
+    svt \
+    test \
+    tl \
+    unotest \
+    utl \
+    vcl \
+    xmlscript \
+    $(gb_UWINAPI) \
+))
+
+ifeq ($(GUI),WNT)
+$(eval $(call gb_CppunitTest_use_system_win32_libs,basic_coverage, \
+    oleaut32 \
+))
+endif
+
+$(eval $(call gb_CppunitTest_set_include,basic_coverage,\
+    -I$(SRCDIR)/basic/source/inc \
+    -I$(SRCDIR)/basic/inc \
+    $$(INCLUDE) \
+))
+
+$(eval $(call gb_CppunitTest_use_api,basic_coverage,\
+    offapi \
+    udkapi \
+))
+
+$(eval $(call gb_CppunitTest_use_ure,basic_coverage))
+
+$(eval $(call gb_CppunitTest_use_components,basic_coverage,\
+    configmgr/source/configmgr \
+    i18npool/util/i18npool \
+))
+$(eval $(call gb_CppunitTest_use_configuration,basic_coverage))
diff --git a/basic/Module_basic.mk b/basic/Module_basic.mk
index e60e83e7e655..a4ff822ef897 100644
--- a/basic/Module_basic.mk
+++ b/basic/Module_basic.mk
@@ -19,6 +19,7 @@ $(eval $(call gb_Module_add_check_targets,basic,\
      CppunitTest_basic_scanner \
      CppunitTest_basic_enable \
      CppunitTest_basic_nested_struct \
+     CppunitTest_basic_coverage \
 ))
 
 endif
diff --git a/basic/qa/basic_coverage/string_left_01.vb b/basic/qa/basic_coverage/string_left_01.vb
new file mode 100644
index 000000000000..ef896bef1009
--- /dev/null
+++ b/basic/qa/basic_coverage/string_left_01.vb
@@ -0,0 +1,25 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+
+Function doUnitTest as Integer
+
+Dim s1 As String
+Dim s2 As String
+
+    s1 = "abc"
+
+    s2 = Left(s1, 2)
+
+    If s2 = "ab" Then
+        doUnitTest = 1
+    Else
+        doUnitTest = 0
+    End If
+
+End Function
diff --git a/basic/qa/basic_coverage/string_right_01.vb b/basic/qa/basic_coverage/string_right_01.vb
new file mode 100644
index 000000000000..65b16c6a8762
--- /dev/null
+++ b/basic/qa/basic_coverage/string_right_01.vb
@@ -0,0 +1,24 @@
+'
+' This file is part of the LibreOffice project.
+'
+' This Source Code Form is subject to the terms of the Mozilla Public
+' License, v. 2.0. If a copy of the MPL was not distributed with this
+' file, You can obtain one at http://mozilla.org/MPL/2.0/.
+'
+
+Function doUnitTest as Integer
+
+Dim s1 As String
+Dim s2 As String
+
+    s1 = "abc"
+
+    s2 = Right(s1, 2)
+
+    If s2 = "bc" Then
+        doUnitTest = 1
+    Else
+        doUnitTest = 0
+    End If
+
+End Function
diff --git a/basic/qa/cppunit/basic_coverage.cxx b/basic/qa/cppunit/basic_coverage.cxx
new file mode 100644
index 000000000000..d78a28f9efc9
--- /dev/null
+++ b/basic/qa/cppunit/basic_coverage.cxx
@@ -0,0 +1,200 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
+/*
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ */
+
+#include "basictest.hxx"
+#include <osl/file.hxx>
+#include "basic/sbmod.hxx"
+#include "basic/sbmeth.hxx"
+
+
+namespace
+{
+
+class Coverage : public BasicTestBase
+{
+private:
+    bool m_bError;
+    int  m_nb_tests;
+    int  m_nb_tests_ok;
+    int  m_nb_tests_ko;
+    int  m_nb_tests_skipped;
+    OUString m_sCurrentTest;
+    void process_directory(OUString sDirName);
+    void process_file(OUString sFileName);
+    void run_test(OUString sFileName, OUString sCode);
+    void test_start(OUString /* sFileName */);
+    void test_failed(void);
+    void test_success(void);
+    void print_summary() {};
+
+    DECL_LINK( CoverageErrorHdl, StarBASIC * );
+
+public:
+    Coverage();
+    ~Coverage();
+
+    void Coverage_Iterator();
+
+    // Adds code needed to register the test suite
+    CPPUNIT_TEST_SUITE(Coverage);
+
+    // Declares the method as a test to call
+    CPPUNIT_TEST(Coverage_Iterator);
+
+    // End of test suite definition
+    CPPUNIT_TEST_SUITE_END();
+};
+
+IMPL_LINK( Coverage, CoverageErrorHdl, StarBASIC *, /*pBasic*/)
+{
+    fprintf(stderr,"%s:(%d:%d)\n",
+            rtl::OUStringToOString( m_sCurrentTest, RTL_TEXTENCODING_UTF8 ).getStr(),
+            StarBASIC::GetLine(), StarBASIC::GetCol1());
+    fprintf(stderr,"Basic error: %s\n", rtl::OUStringToOString( StarBASIC::GetErrorText(), RTL_TEXTENCODING_UTF8 ).getStr() );
+    m_bError = true;
+    return 0;
+}
+
+Coverage::Coverage()
+    : m_bError(false)
+    , m_nb_tests(0)
+    , m_nb_tests_ok(0)
+    , m_nb_tests_ko(0)
+    , m_nb_tests_skipped(0)
+{
+}
+
+Coverage::~Coverage()
+{
+    fprintf(stderr,"basic coverage Summary : skipped:%d pass:%d failed:%d\n", m_nb_tests_skipped, m_nb_tests_ok, m_nb_tests_ko );
+    if(m_nb_tests_ko)
+    {
+        CPPUNIT_FAIL("");
+    }
+}
+
+void Coverage::test_start(OUString sFileName)
+{
+    m_nb_tests += 1;
+    m_sCurrentTest = sFileName;
+}
+
+void Coverage::test_failed()
+{
+    m_nb_tests_ko += 1;
+    fprintf(stderr,"%s,FAIL\n", rtl::OUStringToOString( m_sCurrentTest, RTL_TEXTENCODING_UTF8 ).getStr() );
+
+}
+
+void Coverage::test_success()
+{
+    m_nb_tests_ok += 1;
+    fprintf(stderr,"%s,PASS\n", rtl::OUStringToOString( m_sCurrentTest, RTL_TEXTENCODING_UTF8 ).getStr() );
+}
+
+void Coverage::run_test(OUString /*sFileName*/, OUString sCode)
+{
+    bool result = false;
+    CPPUNIT_ASSERT_MESSAGE( "No resource manager", basicDLL().GetBasResMgr() != NULL );
+    StarBASICRef pBasic = new StarBASIC();
+    ResetError();
+    StarBASIC::SetGlobalErrorHdl( LINK( this, Coverage, CoverageErrorHdl ) );
+
+    SbModule* pMod = pBasic->MakeModule( rtl::OUString( "TestModule" ), sCode );
+    pMod->Compile();
+    if(!m_bError)
+    {
+        SbMethod* pMeth = static_cast<SbMethod*>(pMod->Find( rtl::OUString("doUnitTest"),  SbxCLASS_METHOD ));
+        if(pMeth)
+        {
+            SbxVariableRef refTemp = pMeth;
+            // forces a broadcast
+            SbxVariableRef pNew = new  SbxMethod( *((SbxMethod*)pMeth));
+            if(pNew->GetInteger() == 1 )
+            {
+                result = true;
+            }
+        }
+    }
+    if(result)
+    {
+        test_success();
+    }
+    else
+    {
+        test_failed();
+    }
+}
+
+void Coverage::process_file(OUString sFileName)
+{
+    osl::File aFile(sFileName);
+
+    test_start(sFileName);
+    if(osl::FileBase::E_None == aFile.open(osl_File_OpenFlag_Read))
+    {
+        sal_uInt64 size;
+        sal_uInt64 size_read;
+        if(osl::FileBase::E_None == aFile.getSize(size))
+        {
+            void* buffer = calloc(1, size+1);
+            CPPUNIT_ASSERT(buffer);
+            if(osl::FileBase::E_None == aFile.read( buffer, size, size_read))
+            {
+                if(size == size_read)
+                {
+                    OUString sCode((sal_Char*)buffer, size, RTL_TEXTENCODING_UTF8);
+                    run_test(sFileName, sCode);
+                    return;
+                }
+            }
+        }
+    }
+    test_failed();
+}
+
+void Coverage::process_directory(OUString sDirName)
+{
+    osl::Directory aDir(sDirName);
+    osl::DirectoryItem aItem;
+    osl::FileStatus aFileStatus(osl_FileStatus_Mask_FileURL|osl_FileStatus_Mask_Type);
+
+    if(osl::FileBase::E_None == aDir.open())
+    {
+        while (aDir.getNextItem(aItem) == osl::FileBase::E_None)
+        {
+            aItem.getFileStatus(aFileStatus);
+            if(aFileStatus.isRegular())
+            {
+                process_file(aFileStatus.getFileURL());
+            }
+        }
+    }
+    else
+    {
+    }
+    fprintf(stderr,"end process directory\n");
+}
+
+void Coverage::Coverage_Iterator(void)
+{
+    OUString sDirName = getURLFromSrc("/basic/qa/basic_coverage/");
+
+    CPPUNIT_ASSERT(!sDirName.isEmpty());
+    process_directory(sDirName);
+}
+
+  CPPUNIT_TEST_SUITE_REGISTRATION(Coverage);
+
+}
+CPPUNIT_PLUGIN_IMPLEMENT();
+
+
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */