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

Run-time error generating line commented out by default

Browse Source
This commit is contained in:
Eddie Runia
1999-05-07 09:25:38 +00:00
parent 6fe6964eba
commit 578d30a0db
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
harbour/tests/working/transfrm.prg
View File

@@ -92,7 +92,8 @@ function Main()
QOut( "1234 ", "@BD 9999 ", transform( 1234 , "@BD 9999" ), " (BUG Fix)" )
QOut( "0 ", "@Z 9999 ", transform( 0 , "@Z 9999" ) )
QOut( "0 ", "@BZ 9999 ", transform( 0 , "@BZ 9999" ) )
QOut( "NIL ", "9 ", transform( NIL , "9" ) )
// QOut( "NIL ", "9 ", transform( NIL , "9" ) )
// ^ Generates error ^
Pause()
QOut( "12/12/1990 ", "99/99/9999 ", transform( ctod("12/12/1990") , "99/99/9999" ) )
QOut( "02/12/1990 ", "99.99.9999 ", transform( ctod("02/12/1990") , "99.99.9999" ) )