//
// $Id$
//

// Testing SET

STATIC s_cNewLine

#include "set.ch"
request dbfntx
function Main()
// for Clipper, this drags in the terminal driver
@ Row(), col() say ""

   s_cNewLine := HB_OSNewLine()

   TestLine( "_SET_EXACT",        1)
   TestLine( "_SET_FIXED",        2)
   TestLine( "_SET_DECIMALS",     3)
   TestLine( "_SET_DATEFORMAT",   4)
   TestLine( "_SET_EPOCH",        5)
   TestLine( "_SET_PATH",         6)
   TestLine( "_SET_DEFAULT",      7)

   TestLine( "_SET_EXCLUSIVE",    8)
   TestLine( "_SET_SOFTSEEK",     9)
   TestLine( "_SET_UNIQUE",       10)
   TestLine( "_SET_DELETED",      11)

   TestLine( "_SET_CANCEL",       12)
   TestLine( "_SET_DEBUG",        13)
   TestLine( "_SET_TYPEAHEAD",    14)

   TestLine( "_SET_COLOR",        15)
   TestLine( "_SET_CURSOR",       16)
   TestLine( "_SET_CONSOLE",      17)
   TestLine( "_SET_ALTERNATE",    18)
   TestLine( "_SET_ALTFILE",      19)
   TestLine( "_SET_DEVICE",       20)
   TestLine( "_SET_EXTRA",        21)
   TestLine( "_SET_EXTRAFILE",    22)
   TestLine( "_SET_PRINTER",      23)
   TestLine( "_SET_PRINTFILE",    24)
   TestLine( "_SET_MARGIN",       25)

   TestLine( "_SET_BELL",         26)
   TestLine( "_SET_CONFIRM",      27)
   TestLine( "_SET_ESCAPE",       28)
   TestLine( "_SET_INSERT",       29)
   TestLine( "_SET_EXIT",         30)
   TestLine( "_SET_INTENSITY",    31)
   TestLine( "_SET_SCOREBOARD",   32)
   TestLine( "_SET_DELIMITERS",   33)
   TestLine( "_SET_DELIMCHARS",   34)

   TestLine( "_SET_WRAP",         35)
   TestLine( "_SET_MESSAGE",      36)
   TestLine( "_SET_MCENTER",      37)
   TestLine( "_SET_SCROLLBREAK",  38)

#ifdef _SET_EVENTMASK
   TestLine( "_SET_EVENTMASK",    39)

   TestLine( "_SET_VIDEOMODE",    40)

   TestLine( "_SET_MBLOCKSIZE",   41)
   TestLine( "_SET_MFILEEXT",     42)

   TestLine( "_SET_STRICTREAD",   43)
   TestLine( "_SET_OPTIMIZE",     44)
   TestLine( "_SET_AUTOPEN",      45)
   TestLine( "_SET_AUTORDER",     46)
   TestLine( "_SET_AUTOSHARE",    47)
#endif

#ifdef _SET_LANGUAGE
   TestLine( "_SET_LANGUAGE",    100)
   TestLine( "_SET_IDLEREPEAT",  101)
   TestLine( "_SET_FILECASE",    102)
   TestLine( "_SET_DIRCASE",     103)
   TestLine( "_SET_DIRSEPARATOR",104)
   Set(_SET_DIRSEPARATOR, "/")
   TestLine( "_SET_DIRSEPARATOR",104)
#endif

return nil

proc testline( c, n )
   outstd( s_cNewLine )
   outstd( str( n, 3 ) )
   outstd( " " )
   outstd( Padr( c, 20 ) )
   outstd( Set( n ) )
return
