fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2007-05-17 00:36 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* harbour/utils/hbtest/rt_misc.prg
     ! SET EOLs guarded with __HARBOUR__ to make it compile on
       other platforms.
This commit is contained in:
Viktor Szakats
2007-05-16 22:38:16 +00:00
parent c1ceed3cf0
commit 8a97824666
2 changed files with 16 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2007-05-17 00:36 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* harbour/utils/hbtest/rt_misc.prg
! SET EOLs guarded with __HARBOUR__ to make it compile on
other platforms.
2007-05-17 00:20 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/TODO
* removed some not longer necessary TODO/TOFIX

14
harbour/utils/hbtest/rt_misc.prg
View File

@@ -58,7 +58,10 @@
#include "rt_vars.ch"
FUNCTION Main_MISC()
LOCAL oError, cEOL
LOCAL oError
#ifdef __HARBOUR__
LOCAL cEOL
#endif
/* Some random error object tests taken from the separate test source */
@@ -715,7 +718,10 @@ FUNCTION Main_MISC()
#endif
/* MLCTOPOS() */
cEOL := SET( _SET_EOL, CHR(13) + CHR( 10 ) )
#ifdef __HARBOUR__
cEOL := Set( _SET_EOL, CHR(13) + CHR( 10 ) )
#endif
TEST_LINE( MLCTOPOS( 'A message from me', 10, 2, 0 ) , 11 )
TEST_LINE( MLCTOPOS( 'A message from me', 5, 2, 0, 4, .F. ) , 6 )
@@ -763,7 +769,9 @@ FUNCTION Main_MISC()
TEST_LINE( MLCTOPOS( , , , ) , 1 )
TEST_LINE( MLCTOPOS( , .T., , ) , 1 )
SET( _SET_EOL, cEOL )
#ifdef __HARBOUR__
Set( _SET_EOL, cEOL )
#endif
RETURN NIL