42 lines
1.1 KiB
Plaintext
42 lines
1.1 KiB
Plaintext
// Testing Harbour operators management
|
|
|
|
#define CRLF Chr( 13 ) + Chr( 10 )
|
|
|
|
function Main()
|
|
|
|
local a := 1
|
|
local b := 2
|
|
local c := 3
|
|
|
|
QOut( "testing Harbour operators management" )
|
|
|
|
QQOut( "a = ", a, CRLF )
|
|
QQOut( "b = ", b, CRLF )
|
|
QQOut( "c = ", c, CRLF )
|
|
|
|
QQOut( "a + b = ", a + b, CRLF ) // 3
|
|
QQOut( "b - a = ", b - a, CRLF ) // 1
|
|
QQOut( "b * c = ", b * c, CRLF ) // 6
|
|
QQOut( "b * c / 2 = ", b * c / 2, CRLF ) // 3
|
|
|
|
QQOut( "a += b = ", a += b, CRLF ) // 3
|
|
QQOut( "a = ", a, CRLF ) // 3
|
|
QQOut( "a -= b = ", a -= b, CRLF ) // 1
|
|
QQOut( "a = ", a, CRLF ) // 1
|
|
|
|
QQOut( "a < b ", a < b, CRLF ) // TRUE
|
|
QQOut( "a > b ", a > b, CRLF ) // FALSE
|
|
QQOut( "a + b <= c ", a + b <= c, CRLF) // TRUE
|
|
QQOut( "a + b >= c ", a + b >= c, CRLF) // TRUE
|
|
|
|
QQOut( "a *= b = ", a *= b, CRLF ) // 2
|
|
QQOut( "a /= b = ", a /= b, CRLF ) // 1
|
|
QQOut( "a = ", a, CRLF ) // 1
|
|
|
|
QQOut( "b ** 3 = ", b ** 3, CRLF ) // 8
|
|
QQOut( "b ^ 3 = ", b ^ 3, CRLF ) // 8
|
|
|
|
QQOut( "8 % 3 = ", 8 % 3, CRLF ) // 2
|
|
|
|
return nil
|