32 lines
733 B
Plaintext
32 lines
733 B
Plaintext
//
|
|
// $Id$
|
|
//
|
|
|
|
// Testing Harbour strings management runtime library
|
|
|
|
function Main()
|
|
|
|
QOut( "Testing Harbour strings management runtime library" )
|
|
|
|
QOut( "Chr( 97 ) = ", Chr( 97 ) )
|
|
|
|
QOut( "Lower( 'ABCdE' ) = ", Lower( "ABCdE" ) )
|
|
|
|
QOut( "Replicate( 'abc', 5 ) = ", Replicate( "abc", 5 ) )
|
|
|
|
QOut( '"*" + Space( 5 ) + "*" = ', "*" + Space( 5 ) + "*" )
|
|
|
|
QOut( '"*" + LTrim( " test" ) + "*" = ', "*" + LTrim( " test" ) + "*" )
|
|
|
|
QOut( 'SubStr( "abcdef", 2, 3 ) = ', SubStr( "abcdef", 2, 3 ) )
|
|
|
|
QOut( 'Asc( "a" ) = ', Asc( "a" ) )
|
|
|
|
QOut( 'IsDigit( "123" ) = ', IsDigit( "123" ) )
|
|
|
|
QOut( 'Right( "world", 2 ) = ', Right( "world", 2 ) )
|
|
|
|
QOut( 'Left( "world", 2 ) = ', Left( "world", 2 ) )
|
|
|
|
return nil
|