fdo#84000 - unit test timers / main-loop bits.

At least test Unix platforms.

Change-Id: I960343cb9622474fe48687a5e458e1c6dbe55358

vcl/CppunitTest_vcl_timer.mk

+# -*- Mode: makefile-gmake; tab-width: 4; indent-tabs-mode: t -*-
+#
+# 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,vcl_timer))
+
+$(eval $(call gb_CppunitTest_set_include,vcl_timer,\
+    $$(INCLUDE) \
+    -I$(SRCDIR)/vcl/inc \
+))
+
+$(eval $(call gb_CppunitTest_add_exception_objects,vcl_timer, \
+	vcl/qa/cppunit/timer \
+))
+
+$(eval $(call gb_CppunitTest_use_externals,vcl_timer,boost_headers))
+
+$(eval $(call gb_CppunitTest_use_libraries,vcl_timer, \
+	comphelper \
+	cppu \
+	cppuhelper \
+	sal \
+	salhelper \
+	test \
+	unotest \
+	vcl \
+	$(gb_UWINAPI) \
+))
+
+$(eval $(call gb_CppunitTest_use_api,vcl_timer,\
+	udkapi \
+	offapi \
+))
+
+$(eval $(call gb_CppunitTest_use_ure,vcl_timer))
+$(eval $(call gb_CppunitTest_use_vcl,vcl_timer))
+
+$(eval $(call gb_CppunitTest_use_components,vcl_timer,\
+	configmgr/source/configmgr \
+	i18npool/util/i18npool \
+	ucb/source/core/ucb1 \
+))
+
+$(eval $(call gb_CppunitTest_use_configuration,vcl_timer))
+
+# vim: set noet sw=4 ts=4:

vcl/Module_vcl.mk

@@ -100,4 +100,10 @@ $(eval $(call gb_Module_add_check_targets,vcl,\
 	CppunitTest_vcl_wmf_test \
 ))
 
+ifeq ($(GUIBASE),unx)
+$(eval $(call gb_Module_add_check_targets,vcl,\
+	CppunitTest_vcl_timer \
+))
+endif
+
 # vim: set noet sw=4 ts=4:

vcl/qa/cppunit/timer.cxx

+/* -*- 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/.
+ */
+/*
+ * Timers are evil beasties across platforms ...
+ */
+
+#include <test/bootstrapfixture.hxx>
+
+#include <osl/thread.hxx>
+#include <salhelper/thread.hxx>
+
+#include <vcl/timer.hxx>
+#include <vcl/svapp.hxx>
+
+/// Avoid our timer tests just wedging the build if they fail.
+class WatchDog : public osl::Thread
+{
+    sal_Int32 mnSeconds;
+public:
+    WatchDog(sal_Int32 nSeconds) :
+        Thread(),
+        mnSeconds( nSeconds )
+    {
+        create();
+    }
+    virtual void SAL_CALL run() SAL_OVERRIDE
+    {
+        TimeValue aWait;
+        aWait.Seconds = mnSeconds;
+        aWait.Nanosec = 1000000; // +1ms
+        osl::Thread::wait( aWait );
+        CPPUNIT_ASSERT_MESSAGE("watchdog triggered", false);
+    }
+};
+
+static WatchDog aWatchDog( 10 /* 10 secs should be enough */);
+
+class TimerTest : public test::BootstrapFixture
+{
+public:
+    TimerTest() : BootstrapFixture(true, false) {}
+
+    void testWatchdog();
+    void testDurations();
+    void testAutoTimer();
+    void testRecursiveTimer();
+    void testSlowTimerCallback();
+
+    CPPUNIT_TEST_SUITE(TimerTest);
+    CPPUNIT_TEST(testDurations);
+    CPPUNIT_TEST(testAutoTimer);
+    CPPUNIT_TEST(testRecursiveTimer);
+    CPPUNIT_TEST(testSlowTimerCallback);
+
+    CPPUNIT_TEST_SUITE_END();
+};
+
+void TimerTest::testWatchdog()
+{
+    // out-wait the watchdog.
+    TimeValue aWait;
+    aWait.Seconds = 12;
+    aWait.Nanosec = 0;
+    osl::Thread::wait( aWait );
+}
+
+// --------------------------------------------------------------------
+
+class TimerBool : public Timer
+{
+    bool &mrBool;
+public:
+    TimerBool( sal_uLong nMS, bool &rBool ) :
+        Timer(), mrBool( rBool )
+    {
+        SetTimeout( nMS );
+        Start();
+        mrBool = false;
+    }
+    virtual void Timeout()
+    {
+        mrBool = true;
+        Application::EndYield();
+    }
+};
+
+void TimerTest::testDurations()
+{
+    static const sal_uLong aDurations[] = { 0, 1, 500, 1000 };
+    for (size_t i = 0; i < SAL_N_ELEMENTS( aDurations ); i++)
+    {
+        bool bDone = false;
+        TimerBool aTimer( aDurations[i], bDone );
+        while( !bDone )
+        {
+            Application::Yield();
+        }
+    }
+}
+
+// --------------------------------------------------------------------
+
+class AutoTimerCount : public AutoTimer
+{
+    sal_Int32 &mrCount;
+public:
+    AutoTimerCount( sal_uLong nMS, sal_Int32 &rCount ) :
+        AutoTimer(), mrCount( rCount )
+    {
+        SetTimeout( nMS );
+        Start();
+        mrCount = 0;
+    }
+    virtual void Timeout()
+    {
+        mrCount++;
+    }
+};
+
+void TimerTest::testAutoTimer()
+{
+    sal_Int32 nCount = 0;
+    AutoTimerCount aCount(1, nCount);
+    while (nCount < 100) {
+        Application::Yield();
+    }
+}
+
+// --------------------------------------------------------------------
+
+class YieldTimer : public Timer
+{
+public:
+    YieldTimer( sal_uLong nMS ) : Timer()
+    {
+        SetTimeout( nMS );
+        Start();
+    }
+    virtual void Timeout()
+    {
+        for (int i = 0; i < 100; i++)
+            Application::Yield();
+    }
+};
+
+void TimerTest::testRecursiveTimer()
+{
+    sal_Int32 nCount = 0;
+    YieldTimer aCount(5);
+    AutoTimerCount aCountUp( 3, nCount );
+    while (nCount < 20)
+        Application::Yield();
+}
+
+// --------------------------------------------------------------------
+
+class SlowCallbackTimer : public Timer
+{
+    bool &mbSlow;
+public:
+    SlowCallbackTimer( sal_uLong nMS, bool &bBeenSlow ) :
+        Timer(), mbSlow( bBeenSlow )
+    {
+        SetTimeout( nMS );
+        Start();
+        mbSlow = false;
+    }
+    virtual void Timeout()
+    {
+        TimeValue aWait;
+        aWait.Seconds = 1;
+        aWait.Nanosec = 0;
+        osl::Thread::wait( aWait );
+        mbSlow = true;
+    }
+};
+
+void TimerTest::testSlowTimerCallback()
+{
+    bool bBeenSlow = false;
+    sal_Int32 nCount = 0;
+    AutoTimerCount aHighFreq(1, nCount);
+    SlowCallbackTimer aSlow(250, bBeenSlow);
+    while (!bBeenSlow)
+        Application::Yield();
+    while (nCount < 200)
+        Application::Yield();
+}
+
+CPPUNIT_TEST_SUITE_REGISTRATION(TimerTest);
+
+CPPUNIT_PLUGIN_IMPLEMENT();
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */