summaryrefslogtreecommitdiffstats
path: root/automation
diff options
context:
space:
mode:
authorVladimir Glazounov <vg@openoffice.org>2003-03-26 11:07:27 +0000
committerVladimir Glazounov <vg@openoffice.org>2003-03-26 11:07:27 +0000
commita7e51ee05f1d95a384828740ed86bd4763e7237a (patch)
treefcb6252a2ecf27b1b3d6d2e7686af6e764475f85 /automation
parentINTEGRATION: CWS gh3 (1.3.2.1.6); FILE MERGED (diff)
downloadcore-a7e51ee05f1d95a384828740ed86bd4763e7237a.tar.gz
core-a7e51ee05f1d95a384828740ed86bd4763e7237a.zip
INTEGRATION: CWS gh3 (1.1.2.1.6); FILE MERGED
2003/03/18 11:36:18 gh 1.1.2.1.6.1: added debug code
Diffstat (limited to 'automation')
-rw-r--r--automation/source/testtool/objtest.cxx16
1 files changed, 14 insertions, 2 deletions
diff --git a/automation/source/testtool/objtest.cxx b/automation/source/testtool/objtest.cxx
index 15795e63442f..907b43ba1b21 100644
--- a/automation/source/testtool/objtest.cxx
+++ b/automation/source/testtool/objtest.cxx
@@ -2,9 +2,9 @@
*
* $RCSfile: objtest.cxx,v $
*
- * $Revision: 1.2 $
+ * $Revision: 1.3 $
*
- * last change: $Author: hr $ $Date: 2003-03-18 16:03:49 $
+ * last change: $Author: vg $ $Date: 2003-03-26 12:07:27 $
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
@@ -2418,11 +2418,23 @@ void TestToolObj::SFX_NOTIFY( SfxBroadcaster&, const TypeId&,
long nWait = rPar->Get(1)->GetLong();
if( nWait >= 0 )
{
+#ifdef DEBUG
+ Time aStart;
+#endif
Timer aTimer;
aTimer.SetTimeout( nWait );
aTimer.Start();
while ( aTimer.IsActive() )
Application::Yield();
+#ifdef DEBUG
+ Time aEnd;
+ Time aDiff = aEnd - aStart;
+ ULONG aMS = aDiff.GetMSFromTime();
+ if ( Abs( aDiff.GetMSFromTime() - nWait ) > 100 )
+ {
+ DBG_ERROR1("Wait was off limit by %i", aDiff.GetMSFromTime() - nWait )
+ }
+#endif
}
}
else