/*
 * Harbour Project source code:
 * Regression tests for the runtime library (math)
 *
 * Copyright 1999-2001 Viktor Szakats (harbour syenar.net)
 * www - http://harbour-project.org
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2, or (at your option)
 * any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this software; see the file COPYING.txt.  If not, write to
 * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
 *
 * As a special exception, the Harbour Project gives permission for
 * additional uses of the text contained in its release of Harbour.
 *
 * The exception is that, if you link the Harbour libraries with other
 * files to produce an executable, this does not by itself cause the
 * resulting executable to be covered by the GNU General Public License.
 * Your use of that executable is in no way restricted on account of
 * linking the Harbour library code into it.
 *
 * This exception does not however invalidate any other reasons why
 * the executable file might be covered by the GNU General Public License.
 *
 * This exception applies only to the code released by the Harbour
 * Project under the name Harbour.  If you copy code from other
 * Harbour Project or Free Software Foundation releases into a copy of
 * Harbour, as the General Public License permits, the exception does
 * not apply to the code that you add in this way.  To avoid misleading
 * anyone as to the status of such modified files, you must delete
 * this exception notice from them.
 *
 * If you write modifications of your own for Harbour, it is your choice
 * whether to permit this exception to apply to your modifications.
 * If you do not wish that, delete this exception notice.
 *
 */

#include "rt_main.ch"

/* Don't change the position of this #include. */
#include "rt_vars.ch"

PROCEDURE Main_MATH()

   LOCAL l, s, o

   MEMVAR s0, s1, v2
   PRIVATE s0 := "V2", s1 := "V", v2

   /* Log() */

   HBTEST Log( "A" )                      IS "E 1 BASE 1095 Argument error (LOG) OS:0 #:0 A:1:C:A F:S"
   HBTEST Str( Log( -1 ) )                IS "***********************"
// HBTEST Str( Log( 0 ) )                 IS "***********************"
   HBTEST Str( Log( 1 ) )                 IS "         0.00"
   HBTEST Str( Log( 12 ) )                IS "         2.48"
   HBTEST Str( Log( snIntP ) )            IS "         2.30"
#ifdef __HARBOUR__
   HBTEST Str( Log( @snIntP ) )           IS "         2.30"  /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1095 Argument error (LOG) OS:0 #:0 A:1:U:10 F:S" */
#endif

   /* Sqrt() */

   HBTEST Sqrt( "A" )                     IS "E 1 BASE 1097 Argument error (SQRT) OS:0 #:0 A:1:C:A F:S"
   HBTEST Sqrt( -1 )                      IS 0
   HBTEST Sqrt( 0 )                       IS 0
   HBTEST Sqrt( 4 )                       IS 2
   HBTEST Str( Sqrt( snIntP ) )           IS "         3.16"
#ifdef __HARBOUR__
   HBTEST Str( Sqrt( @snIntP ) )          IS "         3.16"  /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1097 Argument error (SQRT) OS:0 #:0 A:1:U:10 F:S" */
#endif
   HBTEST Str( Sqrt( 4 ), 21, 18 )        IS " 2.000000000000000000"
   HBTEST Str( Sqrt( 3 ), 21, 18 )        IS " 1.732050807568877000"

   /* Abs() */

   HBTEST Abs( "A" )                      IS "E 1 BASE 1089 Argument error (ABS) OS:0 #:0 A:1:C:A F:S"
   HBTEST Abs( 0 )                        IS 0
   HBTEST Abs( 10 )                       IS 10
   HBTEST Abs( -10 )                      IS 10
   HBTEST Str( Abs( snIntN ) )            IS "        10"
#ifdef __HARBOUR__
   HBTEST Str( Abs( @snIntN ) )           IS "        10"  /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1089 Argument error (ABS) OS:0 #:0 A:1:U:-10 F:S" */
#endif
   HBTEST Abs( Month( sdDate ) )          IS 3
   HBTEST Abs( -Month( sdDate ) )         IS 3
   HBTEST Str( Abs( Year( sdDateE ) ) )   IS "    0"
   HBTEST Str( Abs( -Year( sdDateE ) ) )  IS "         0"
   HBTEST Str( Abs( Year( sdDate ) ) )    IS " 1984"
   HBTEST Str( Abs( -Year( sdDate ) ) )   IS "      1984"
   HBTEST Str( Abs( Month( sdDate ) ) )   IS "  3"
   HBTEST Str( Abs( -Month( sdDate ) ) )  IS "         3"
   HBTEST Str( Abs( 0 ) )                 IS "         0"
   HBTEST Str( Abs( 0.0 ) )               IS "         0.0"
   HBTEST Str( Abs( -0 ) )                IS "         0"
   HBTEST Str( Abs( 150 ) )               IS "       150"
   HBTEST Str( Abs( -150 ) )              IS "       150"
   HBTEST Str( Abs( 150.245 ) )           IS "       150.245"
   HBTEST Str( Abs( -150.245 ) )          IS "       150.245"
   HBTEST Str( Abs( Val( "0" ) ) )        IS "0"
   HBTEST Str( Abs( Val( "-0" ) ) )       IS " 0"
   HBTEST Str( Abs( Val( "150" ) ) )      IS "150"
   HBTEST Str( Abs( Val( "-150" ) ) )     IS "       150"
   HBTEST Str( Abs( Val( "150.245" ) ) )  IS "       150.245"
   HBTEST Str( Abs( Val( "-150.245" ) ) ) IS "       150.245"
   HBTEST Abs( 0.1 )                      IS 0.1
   HBTEST Abs( 10.5 )                     IS 10.5
   HBTEST Abs( -10.7 )                    IS 10.7
   HBTEST Abs( 10.578 )                   IS 10.578
   HBTEST Abs( -10.578 )                  IS 10.578
   HBTEST Abs( 100000 )                   IS 100000
   HBTEST Abs( -100000 )                  IS 100000

   /* Exp() */

   HBTEST Exp( "A" )                      IS "E 1 BASE 1096 Argument error (EXP) OS:0 #:0 A:1:C:A F:S"
   HBTEST Exp( 0 )                        IS 1.00
   HBTEST Str( Exp( 15 ) )                IS "   3269017.37"
   HBTEST Str( Exp( snIntZ ) )            IS "         1.00"
#ifdef __HARBOUR__
   HBTEST Str( Exp( @snIntZ ) )           IS "         1.00"  /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1096 Argument error (EXP) OS:0 #:0 A:1:U:0 F:S" */
#endif
   HBTEST Round( Exp( 1 ), 2 )            IS 2.72
   HBTEST Str( Exp( 1 ), 20, 10 )         IS "        2.7182818285"
   HBTEST Round( Exp( 10 ), 2 )           IS 22026.47
   HBTEST Str( Exp( 10 ), 20, 10 )        IS "    22026.4657948067"

   /* Round() */

   HBTEST Round( snDoubleP, snIntZ )      IS 11
#ifdef __HARBOUR__
   HBTEST Round( @snDoubleP, @snIntZ )    IS 11  /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1094 Argument error (ROUND) OS:0 #:0 A:2:U:10.567;U:0 F:S" */
#endif
   HBTEST Round( NIL, 0 )                 IS "E 1 BASE 1094 Argument error (ROUND) OS:0 #:0 A:2:U:NIL;N:0 F:S"
   HBTEST Round( 0, NIL )                 IS "E 1 BASE 1094 Argument error (ROUND) OS:0 #:0 A:2:N:0;U:NIL F:S"
   HBTEST Round( 0, 0 )                   IS 0
   HBTEST Round( 0, 2 )                   IS 0.00
   HBTEST Round( 0, -2 )                  IS 0
   HBTEST Round( 0.5, 0 )                 IS 1
   HBTEST Round( 0.5, 1 )                 IS 0.5
   HBTEST Round( 0.5, 2 )                 IS 0.50
   HBTEST Round( 0.5, -1 )                IS 0
   HBTEST Round( 0.5, -2 )                IS 0
   HBTEST Round( 0.50, 0 )                IS 1
   HBTEST Round( 0.50, 1 )                IS 0.5
   HBTEST Round( 0.50, 2 )                IS 0.50
   HBTEST Round( 0.50, -1 )               IS 0
   HBTEST Round( 0.50, -2 )               IS 0
   HBTEST Round( 0.55, 0 )                IS 1
   HBTEST Round( 0.55, 1 )                IS 0.6
   HBTEST Round( 0.55, 2 )                IS 0.55
   HBTEST Round( 0.55, -1 )               IS 0
   HBTEST Round( 0.55, -2 )               IS 0
   HBTEST Round( 0.557, 0 )               IS 1
   HBTEST Round( 0.557, 1 )               IS 0.6
   HBTEST Round( 0.557, 2 )               IS 0.56
   HBTEST Round( 0.557, -1 )              IS 0
   HBTEST Round( 0.557, -2 )              IS 0
   HBTEST Round( 50, 0 )                  IS 50
   HBTEST Round( 50, 1 )                  IS 50.0
   HBTEST Round( 50, 2 )                  IS 50.00
   HBTEST Round( 50, -1 )                 IS 50
   HBTEST Round( 50, -2 )                 IS 100
   HBTEST Round( 10.50, 0 )               IS 11
   HBTEST Round( 10.50, -1 )              IS 10
   HBTEST Round( 500000, 0 )              IS 500000
   HBTEST Round( 500000, 1 )              IS 500000.0
   HBTEST Round( 500000, 2 )              IS 500000.00
   HBTEST Round( 500000, -1 )             IS 500000
   HBTEST Round( 500000, -2 )             IS 500000
   HBTEST Round( 500000, -2 )             IS 500000
   HBTEST Round( 5000000000, 0 )          IS 5000000000
   HBTEST Round( 5000000000, 1 )          IS 5000000000.0
   HBTEST Round( 5000000000, 2 )          IS 5000000000.00
   HBTEST Round( 5000000000, -1 )         IS 5000000000
   HBTEST Round( 5000000000, -2 )         IS 5000000000
   HBTEST Round( 5000000000, -2 )         IS 5000000000
   HBTEST Round( 5000000000.129, 0 )      IS 5000000000
   HBTEST Round( 5000000000.129, 1 )      IS 5000000000.1
   HBTEST Round( 5000000000.129, 2 )      IS 5000000000.13
   HBTEST Round( 5000000000.129, -1 )     IS 5000000000
   HBTEST Round( 5000000000.129, -2 )     IS 5000000000
   HBTEST Round( 5000000000.129, -2 )     IS 5000000000
   HBTEST Round( -0.5, 0 )                IS -1
   HBTEST Round( -0.5, 1 )                IS -0.5
   HBTEST Round( -0.5, 2 )                IS -0.50
   HBTEST Round( -0.5, -1 )               IS 0
   HBTEST Round( -0.5, -2 )               IS 0
   HBTEST Round( -0.50, 0 )               IS -1
   HBTEST Round( -0.50, 1 )               IS -0.5
   HBTEST Round( -0.50, 2 )               IS -0.50
   HBTEST Round( -0.50, -1 )              IS 0
   HBTEST Round( -0.50, -2 )              IS 0
   HBTEST Round( -0.55, 0 )               IS -1
   HBTEST Round( -0.55, 1 )               IS -0.6
   HBTEST Round( -0.55, 2 )               IS -0.55
   HBTEST Round( -0.55, -1 )              IS 0
   HBTEST Round( -0.55, -2 )              IS 0
   HBTEST Round( -0.557, 0 )              IS -1
   HBTEST Round( -0.557, 1 )              IS -0.6
   HBTEST Round( -0.557, 2 )              IS -0.56
   HBTEST Round( -0.557, -1 )             IS 0
   HBTEST Round( -0.557, -2 )             IS 0
   HBTEST Round( -50, 0 )                 IS -50
   HBTEST Round( -50, 1 )                 IS -50.0
   HBTEST Round( -50, 2 )                 IS -50.00
   HBTEST Round( -50, -1 )                IS -50
   HBTEST Round( -50, -2 )                IS -100
   HBTEST Round( -10.50, 0 )              IS -11
   HBTEST Round( -10.50, -1 )             IS -10
   HBTEST Round( -500000, 0 )             IS -500000
   HBTEST Round( -500000, 1 )             IS -500000.0
   HBTEST Round( -500000, 2 )             IS -500000.00
   HBTEST Round( -500000, -1 )            IS -500000
   HBTEST Round( -500000, -2 )            IS -500000
   HBTEST Round( -500000, -2 )            IS -500000
   HBTEST Round( -5000000000, 0 )         IS -5000000000
   HBTEST Round( -5000000000, 1 )         IS -5000000000.0
   HBTEST Round( -5000000000, 2 )         IS -5000000000.00
   HBTEST Round( -5000000000, -1 )        IS -5000000000
   HBTEST Round( -5000000000, -2 )        IS -5000000000
   HBTEST Round( -5000000000, -2 )        IS -5000000000
   HBTEST Round( -5000000000.129, 0 )     IS -5000000000
   HBTEST Round( -5000000000.129, 1 )     IS -5000000000.1
   HBTEST Round( -5000000000.129, 2 )     IS -5000000000.13
   HBTEST Round( -5000000000.129, -1 )    IS -5000000000
   HBTEST Round( -5000000000.129, -2 )    IS -5000000000
   HBTEST Round( -5000000000.129, -2 )    IS -5000000000

   /* Int() */

   HBTEST Int( NIL )                       IS "E 1 BASE 1090 Argument error (INT) OS:0 #:0 A:1:U:NIL F:S"
   HBTEST Int( "A" )                       IS "E 1 BASE 1090 Argument error (INT) OS:0 #:0 A:1:C:A F:S"
   HBTEST Int( {} )                        IS "E 1 BASE 1090 Argument error (INT) OS:0 #:0 A:1:A:{.[0].} F:S"
   HBTEST Int( 0 )                         IS 0
   HBTEST Int( 0.0 )                       IS 0
   HBTEST Int( 10 )                        IS 10
   HBTEST Int( snIntP )                    IS 10
#ifdef __HARBOUR__
   HBTEST Int( @snIntP )                   IS 10  /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1090 Argument error (INT) OS:0 #:0 A:1:U:10 F:S" */
#endif
   HBTEST Int( -10 )                       IS -10
   HBTEST Int( 100000 )                    IS 100000
   HBTEST Int( -100000 )                   IS -100000
   HBTEST Int( 10.5 )                      IS 10
   HBTEST Int( -10.5 )                     IS -10
   HBTEST Str( Int( Val( "100.290" ) ) )   IS "100"
   HBTEST Str( Int( Val( "  100.290" ) ) ) IS "  100"
   HBTEST Str( Int( Val( " 100" ) ) )      IS " 100"
   HBTEST Int( 5000000000.90 )             IS 5000000000
   HBTEST Int( -5000000000.90 )            IS -5000000000
   HBTEST Int( 5000000000 )                IS 5000000000
   HBTEST Int( -5000000000 )               IS -5000000000
   HBTEST Int( 5000000000 ) / 100000       IS 50000
   HBTEST Int( -5000000000 ) / 100000      IS -50000

   /* Min()/Max() */

   HBTEST Max( NIL, NIL )                                     IS "E 1 BASE 1093 Argument error (MAX) OS:0 #:0 A:2:U:NIL;U:NIL F:S"
   HBTEST Max( 10, NIL )                                      IS "E 1 BASE 1093 Argument error (MAX) OS:0 #:0 A:2:N:10;U:NIL F:S"
   HBTEST Max( hb_SToD( "19800101" ), 10 )                    IS "E 1 BASE 1093 Argument error (MAX) OS:0 #:0 A:2:D:0d19800101;N:10 F:S"
   HBTEST Max( hb_SToD( "19800101" ), hb_SToD( "19800101" ) ) IS hb_SToD( "19800101" )
   HBTEST Max( hb_SToD( "19800102" ), hb_SToD( "19800101" ) ) IS hb_SToD( "19800102" )
   HBTEST Max( hb_SToD( "19800101" ), hb_SToD( "19800102" ) ) IS hb_SToD( "19800102" )
   HBTEST Max( snIntP, snLongP )                              IS 100000
#ifdef __HARBOUR__
   HBTEST Max( @snIntP, @snLongP )                            IS 100000  /* Bug in CA-Cl*pper, it will return: "E 1 BASE 1093 Argument error (MAX) OS:0 #:0 A:2:U:10;U:100000 F:S" */
#endif
   HBTEST Min( NIL, NIL )                                     IS "E 1 BASE 1092 Argument error (MIN) OS:0 #:0 A:2:U:NIL;U:NIL F:S"
   HBTEST Min( 10, NIL )                                      IS "E 1 BASE 1092 Argument error (MIN) OS:0 #:0 A:2:N:10;U:NIL F:S"
   HBTEST Min( hb_SToD( "19800101" ), 10 )                    IS "E 1 BASE 1092 Argument error (MIN) OS:0 #:0 A:2:D:0d19800101;N:10 F:S"
   HBTEST Min( hb_SToD( "19800101" ), hb_SToD( "19800101" ) ) IS hb_SToD( "19800101" )
   HBTEST Min( hb_SToD( "19800102" ), hb_SToD( "19800101" ) ) IS hb_SToD( "19800101" )
   HBTEST Min( hb_SToD( "19800101" ), hb_SToD( "19800102" ) ) IS hb_SToD( "19800101" )
   HBTEST Min( snIntP, snLongP )                              IS 10
#ifdef __HARBOUR__
   HBTEST Min( @snIntP, @snLongP )                            IS 10      /* Bug in CA-Cl*pper, it will return: "E 1 BASE 1092 Argument error (MIN) OS:0 #:0 A:2:U:10;U:100000 F:S" */
#endif

   /* Decimals handling */

   HBTEST Str( Max( 10, 12 )           )  IS "        12"
   HBTEST Str( Max( 10.50, 10 )        )  IS "        10.50"
   HBTEST Str( Max( 10, 9.50 )         )  IS "        10"
   HBTEST Str( Max( 100000, 10 )       )  IS "    100000"
   HBTEST Str( Max( 20.50, 20.670 )    )  IS "        20.670"
   HBTEST Str( Max( 20.5125, 20.670 )  )  IS "        20.670"
   HBTEST Str( Min( 10, 12 )           )  IS "        10"
   HBTEST Str( Min( 10.50, 10 )        )  IS "        10"
   HBTEST Str( Min( 10, 9.50 )         )  IS "         9.50"
   HBTEST Str( Min( 100000, 10 )       )  IS "        10"
   HBTEST Str( Min( 20.50, 20.670 )    )  IS "        20.50"
   HBTEST Str( Min( 20.5125, 20.670 )  )  IS "        20.5125"
   HBTEST Str( Val( "0x10" )           )  IS "   0"
   HBTEST Str( Val( "0X10" )           )  IS "   0"
   HBTEST Str( Val( "15E2" )           )  IS "  15"
   HBTEST Str( Val( "15E21" )          )  IS "   15"
   HBTEST Str( Val( "15.1A10" )        )  IS "15.1000"
   HBTEST Str( Val( "15.1A1" )         )  IS "15.100"
   HBTEST Str( Val( "A" )              )  IS "0"
   HBTEST Str( Val( "AAA0" )           )  IS "   0"
   HBTEST Str( Val( "AAA2" )           )  IS "   0"
   HBTEST Str( Val( "" )               )  IS "         0"
   HBTEST Str( Val( "0" )              )  IS "0"
   HBTEST Str( Val( " 0" )             )  IS " 0"
   HBTEST Str( Val( "-0" )             )  IS " 0"
   HBTEST Str( Val( "00" )             )  IS " 0"
   HBTEST Str( Val( "1" )              )  IS "1"
   HBTEST Str( Val( "15" )             )  IS "15"
   HBTEST Str( Val( "200" )            )  IS "200"
   HBTEST Str( Val( " 200" )           )  IS " 200"
   HBTEST Str( Val( "200 " )           )  IS " 200"
   HBTEST Str( Val( " 200 " )          )  IS "  200"
   HBTEST Str( Val( "-200" )           )  IS "-200"
   HBTEST Str( Val( " -200" )          )  IS " -200"
   HBTEST Str( Val( "-200 " )          )  IS " -200"
   HBTEST Str( Val( " -200 " )         )  IS "  -200"
   HBTEST Str( Val( "15.0" )           )  IS "15.0"
   HBTEST Str( Val( "15.00" )          )  IS "15.00"
   HBTEST Str( Val( "15.000" )         )  IS "15.000"
   HBTEST Str( Val( "15.001 " )        )  IS "15.0010"
   HBTEST Str( Val( "100000000" )      )  IS "100000000"
   HBTEST Str( Val( "5000000000" )     )  IS "5000000000"
   HBTEST Str( 10                      )  IS "        10"
   HBTEST Str( 15.0                    )  IS "        15.0"
   HBTEST Str( 10.1                    )  IS "        10.1"
   HBTEST Str( 15.00                   )  IS "        15.00"
// HBTEST Str( Log( 0 )                )  IS "***********************"
   HBTEST Str( 100.2 * 200.12          )  IS "     20052.024"
   HBTEST Str( 100.20 * 200.12         )  IS "     20052.0240"
   HBTEST Str( 1000.2 * 200.12         )  IS "    200160.024"
   HBTEST Str( 100 / 1000              )  IS "         0.10"
   HBTEST Str( 100 / 100000            )  IS "         0.00"
   HBTEST Str( 10 * 10                 )  IS "       100"
   HBTEST Str( 100 / 10                )  IS "        10"
   HBTEST Str( 100 / 13                )  IS "         7.69"
   HBTEST Str( 100.0 / 10              )  IS "        10.00"
   HBTEST Str( 100.0 / 10.00           )  IS "        10.00"
   HBTEST Str( 100.0 / 10.000          )  IS "        10.00"
   HBTEST Str( 100 / 10.00             )  IS "        10.00"
   HBTEST Str( 100 / 10.000            )  IS "        10.00"
   HBTEST Str( 100.00 / 10.0           )  IS "        10.00"
   HBTEST Str( sdDate - sdDateE        )  IS "   2445785"
   HBTEST Str( sdDate - sdDate         )  IS "         0"
   HBTEST Str( 1234567890 * 1234567890 )  IS " 1524157875019052000"  /* real val is 1524157875019052100 */

   /* Mod() */

   HBTEST Mod()                           IS "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:U:NIL;U:NIL F:S"
   HBTEST Mod( NIL )                      IS "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:U:NIL;U:NIL F:S"
   HBTEST Mod( 100 )                      IS "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:N:100;U:NIL F:S"
   HBTEST Mod( "A", "B" )                 IS "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:C:A;C:B F:S"
   HBTEST Mod( "A", 100 )                 IS "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:C:A;N:100 F:S"
   HBTEST Mod( 100, "B" )                 IS "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:N:100;C:B F:S"
   HBTEST Mod( NIL, NIL )                 IS "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:U:NIL;U:NIL F:S"
   HBTEST Mod( 100, 60, "A" )             IS 40.00

   HBTEST Mod( 1, 0 )                     IS "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:1;N:0 F:S"
   HBTEST Mod( 1, NIL )                   IS "E 1 BASE 1085 Argument error (%) OS:0 #:0 A:2:N:1;U:NIL F:S"
   HBTEST Str( Mod( 1, 0   ) )            IS "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:1;N:0 F:S"
   HBTEST Str( Mod( 2, 4   ) )            IS "         2.00"
   HBTEST Str( Mod( 4, 2   ) )            IS "         0.00"
   HBTEST Str( Mod( 4, 2.0 ) )            IS "         0.00"
   HBTEST Str( Mod( 2, 4.0 ) )            IS "         2.00"
   HBTEST Str( Mod( 8, 3   ) )            IS "         2.00"

   HBTEST Str( Mod(  3,  3 ) )            IS "         0.00"
   HBTEST Str( Mod(  3,  2 ) )            IS "         1.00"
   HBTEST Str( Mod(  3,  1 ) )            IS "         0.00"
   HBTEST Str( Mod(  3,  0 ) )            IS "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:3;N:0 F:S"
   HBTEST Str( Mod(  3, -1 ) )            IS "         0.00"
   HBTEST Str( Mod(  3, -2 ) )            IS "        -1.00"
   HBTEST Str( Mod(  3, -3 ) )            IS "         0.00"
   HBTEST Str( Mod( -3,  3 ) )            IS "         0.00"
   HBTEST Str( Mod( -3,  2 ) )            IS "         1.00"
   HBTEST Str( Mod( -3,  1 ) )            IS "         0.00"
   HBTEST Str( Mod( -3,  0 ) )            IS "E 5 BASE 1341 Zero divisor (%) OS:0 #:0 A:2:N:-3;N:0 F:S"
   HBTEST Str( Mod( -3, -1 ) )            IS "         0.00"
   HBTEST Str( Mod( -3, -2 ) )            IS "        -1.00"
   HBTEST Str( Mod( -3, -3 ) )            IS "         0.00"
   HBTEST Str( Mod(  3,  3 ) )            IS "         0.00"
   HBTEST Str( Mod(  2,  3 ) )            IS "         2.00"
   HBTEST Str( Mod(  1,  3 ) )            IS "         1.00"
   HBTEST Str( Mod(  0,  3 ) )            IS "         0.00"
   HBTEST Str( Mod( -1,  3 ) )            IS "         2.00"
   HBTEST Str( Mod( -2,  3 ) )            IS "         1.00"
   HBTEST Str( Mod( -3,  3 ) )            IS "         0.00"
   HBTEST Str( Mod(  3, -3 ) )            IS "         0.00"
   HBTEST Str( Mod(  2, -3 ) )            IS "        -1.00"
   HBTEST Str( Mod(  1, -3 ) )            IS "        -2.00"
   HBTEST Str( Mod(  0, -3 ) )            IS "         0.00"
   HBTEST Str( Mod( -1, -3 ) )            IS "        -1.00"
   HBTEST Str( Mod( -2, -3 ) )            IS "        -2.00"
   HBTEST Str( Mod( -3, -3 ) )            IS "         0.00"

   /* <OP>assign and (pre/post)(inc/dec)rementation */
   o := ErrorNew()
   o:oscode := 1
   HBTEST o:oscode                        IS 1
   o:oscode++
   HBTEST o:oscode                        IS 2
   HBTEST o:oscode++                      IS 2
   ++o:oscode
   HBTEST o:oscode                        IS 4
   HBTEST ++o:oscode                      IS 5
   o:oscode += 10
   HBTEST o:oscode                        IS 15
   HBTEST o:oscode += 200                 IS 215

   l := 1
   HBTEST l                               IS 1
   l++
   HBTEST l                               IS 2
   HBTEST l++                             IS 2
   ++l
   HBTEST l                               IS 4
   HBTEST ++l                             IS 5
   l += 10
   HBTEST l                               IS 15
   HBTEST l += 200                        IS 215

   mnIntN := 1
   HBTEST mnIntN                          IS 1
   mnIntN++
   HBTEST mnIntN                          IS 2
   HBTEST mnIntN++                        IS 2
   ++mnIntN
   HBTEST mnIntN                          IS 4
   HBTEST ++mnIntN                        IS 5
   mnIntN += 10
   HBTEST mnIntN                          IS 15
   HBTEST mnIntN += 200                   IS 215

   snIntN := 1
   HBTEST snIntN                          IS 1
   snIntN++
   HBTEST snIntN                          IS 2
   HBTEST snIntN++                        IS 2
   ++snIntN
   HBTEST snIntN                          IS 4
   HBTEST ++snIntN                        IS 5
   snIntN += 10
   HBTEST snIntN                          IS 15
   HBTEST snIntN += 200                   IS 215

#ifdef __HARBOUR__

   o := ErrorNew()
   s := "oscode"
   o:&s := 1
   HBTEST o:&(s)                          IS 1
   o:&s++
   HBTEST o:&(s)                          IS 2
   HBTEST o:&(s)++                        IS 2
   ++o:&s
   HBTEST o:&(s)                          IS 4
   HBTEST ++o:&(s)                        IS 5
   o:&s += 10
   HBTEST o:&(s)                          IS 15
   HBTEST o:&(s) += 200                   IS 215

   WITH OBJECT ErrorNew()
      :&(s) := 1
      HBTEST :&(s)                           IS 1
      :&(s)++
      HBTEST :&(s)                           IS 2
      HBTEST :&(s)++                         IS 2
      ++:&(s)
      HBTEST :&(s)                           IS 4
      HBTEST ++:&(s)                         IS 5
      :&(s) += 10
      HBTEST :&(s)                           IS 15
      HBTEST :&(s) += 200                    IS 215
   ENDWITH

   WITH OBJECT ErrorNew()
      :oscode := 1
      HBTEST :oscode                         IS 1
      :oscode++
      HBTEST :oscode                         IS 2
      HBTEST :oscode++                       IS 2
      ++:oscode
      HBTEST :oscode                         IS 4
      HBTEST ++:oscode                       IS 5
      :oscode += 10
      HBTEST :oscode                         IS 15
      HBTEST :oscode += 200                  IS 215
   ENDWITH

   &s0 := 1
   HBTEST &s0                             IS 1
   &s0++
   HBTEST &s0                             IS 2
   HBTEST &(s0)++                         IS 2
   ++&s0
   HBTEST &s0                             IS 4
   HBTEST ++&(s0)                         IS 5
   &s0 += 10
   HBTEST &s0                             IS 15
   HBTEST &(s0) += 200                    IS 215

   &s1.2 := 1
   HBTEST &s1.2                           IS 1
   &s1.2++
   HBTEST &s1.2                           IS 2
   HBTEST &s1.2++                         IS 2
   ++&s1.2
   HBTEST &s1.2                           IS 4
   HBTEST ++&s1.2                         IS 5
   &s1.2 += 10
   HBTEST &s1.2                           IS 15
   HBTEST &s1.2 += 200                    IS 215

#endif

   RETURN

/* Don't change the position of this #include. */
#include "rt_init.ch"