REBOL [
]

;; [---------------------------------------------------------------------------]
;; [ This is a tester for the glb.r module.  It tests what it can, things      ]
;; [ that can be displayed simply.                                             ]
;; [---------------------------------------------------------------------------]

do %../modules/glb.r

TEST-GLB-DATES-AND-TIMES: does [
    print "Testing date and time functions"
    print ""
    print "GLB-NOW should be current date-time"
    print ["GLB-NOW = " GLB-NOW]
    print ""
    print "GLB-YYYYMMDD should be current yyyymmdd date"
    print ["GLB-YYYYMMDD = " GLB-YYYYMMDD]
    print ""
    print "GLB-MMDDYY should be current mmddyy date"
    print ["GLB-MMDDYY = " GLB-MMDDYY]
    print ""
    print "GLB-HHMMSS should be above time in hhmmss format"
    print ["GLB-HHMMSS = " GLB-HHMMSS]
    print ""
    GLB-PAUSE "Check results, 'enter' to continue or enter 'quit' to quit"
    print ""
]

TEST-GLB-SUBSTRING: does [
    print "Testing GLB-SUBSTRING"
    print ""
    print "0         1        2         3         4         5         6" 
    print "123456789012345678901234567890123456789012345678901234567890"
    print "------------------------------------------------------------"
    TEST-TXT: "This is a test of the emergency broadcast system.  Had this "
    print TEST-TXT
    print ""
    print rejoin [
        "GLB-SUBSTRING TEST-TXT 1 4 = '"
        GLB-SUBSTRING TEST-TXT 1 4
        "'"
    ]
    print rejoin [
        "GLB-SUBSTRING TEST-TXT 9 9 = '"
        GLB-SUBSTRING TEST-TXT 9 9
        "'"
    ]
    print rejoin [
        "GLB-SUBSTRING TEST-TXT 23 31 = '"
        GLB-SUBSTRING TEST-TXT 23 31
        "'"
    ]
    print rejoin [
        "GLB-SUBSTRING TEST-TXT 52 -1 = '"
        GLB-SUBSTRING TEST-TXT 52 -1
        "'"
    ]
    print rejoin [
        "GLB-SUBSTRING TEST-TXT 31 23 = '"
        GLB-SUBSTRING TEST-TXT 31 23
        "'"
    ]
    print ""
    GLB-PAUSE "Check results, 'enter' to continue or enter 'quit' to quit"
    print ""
]

TEST-GLB-BASE-FILENAME: does [
    print "Testing GLB-BASE-FILENAME"
    TEST-FILENAME: %/L/applications/steve/documentation/manual.html
    print ""
    print ["TEST-FILENAME = " TEST-FILENAME]
    print ["GLB-BASE-FILENAME TEST-FILENAME = " 
        GLB-BASE-FILENAME TEST-FILENAME]
    print ["datetype of result is " type? GLB-BASE-FILENAME TEST-FILENAME]
    print ""
    GLB-PAUSE "Check results, 'enter' to continue or enter 'quit' to quit"
    print ""
]

TEST-GLB-FILLER: does [
    print "Testing GLB-FILLER"
    print ""
    print rejoin [
        "GLB-FILLER 10 = '"
        GLB-FILLER 10
        "'"
    ] 
    print rejoin [
        "GLB-FILLER 0 = '"
        GLB-FILLER 0
        "'"
    ] 
    print rejoin [
        "GLB-FILLER 20 = '"
        GLB-FILLER 20
        "'"
    ] 
    print rejoin [
        "GLB-FILLER 1 = '"
        GLB-FILLER 1
        "'"
    ] 
    print ""
    GLB-PAUSE "Check results, 'enter' to continue or enter 'quit' to quit"
    print ""
]

TEST-GLB-ZEROFILL: does [
    print "Testing GLB-ZEROFILL"
    TEST-NUM-1: $215.99
    TEST-NUM-2: 84302
    TEST-NUM-3: "1,562,856.45"
    print ""
    print rejoin [
        "GLB-ZEROFILL "
        TEST-NUM-1
        " 6 = '"
        GLB-ZEROFILL TEST-NUM-1 6
        "'"
    ]
    print rejoin [
        "GLB-ZEROFILL "
        TEST-NUM-2
        " 8 = '"
        GLB-ZEROFILL TEST-NUM-2 8
        "'"
    ]
    print rejoin [
        "GLB-ZEROFILL "
        TEST-NUM-3
        " 10 = '"
        GLB-ZEROFILL TEST-NUM-3 10
        "'"
    ]
    print ""
    GLB-PAUSE "Check results, 'enter' to continue or enter 'quit' to quit"
    print ""
]

TEST-GLB-INSERT-DECIMAL: does [
    print "Testing GLB-INSERT-DECIMAL"
    TEST-DEC: "123456"
    print ""
    print rejoin [
        "GLB-INSERT-DECIMAL '"
        TEST-DEC
        "' 2 = '"
        GLB-INSERT-DECIMAL "123456" 2
        "'"
    ]
    print ""
    GLB-PAUSE "Check results, 'enter' to continue or enter 'quit' to quit"
    print ""
]

TEST-GLB-SPACEFILL: does [
    print "Testing GLB-SPACEFILL"
    TEST-STR: "Who am I"
    print ""
    print rejoin [
        "GLB-SPACEFILL '"
        TEST-STR
        "' 10 = '"
        GLB-SPACEFILL TEST-STR 10
        "'"
    ]
    print ""
    GLB-PAUSE "Check results, 'enter' to continue or enter 'quit' to quit"
    print ""
]

TEST-GLB-IS-NUMERIC: does [
    print "Testing GLB-IS-NUMERIC"
    TEST-NUMERIC-1: "1234567"
    TEST-NUMERIC-2: "123ABC"
    print ""
    print rejoin [
        "GLB-IS-NUMERIC '"
        TEST-NUMERIC-1
        "' is "
        GLB-IS-NUMERIC TEST-NUMERIC-1
    ]
    print rejoin [
        "GLB-IS-NUMERIC '"
        TEST-NUMERIC-2
        "' is "
        GLB-IS-NUMERIC TEST-NUMERIC-2
    ]
    print ""
    GLB-PAUSE "Check results, 'enter' to continue or enter 'quit' to quit"
    print ""
]

TEST-GLB-IS-ALPHABETIC: does [
    print "Testing GLB-IS-ALPHABETIC"
    TEST-ALPHABETIC-1: "1234567"
    TEST-ALPHABETIC-2: "123ABC"
    TEST-ALPHABETIC-3: "ABCdef"
    print ""
    print rejoin [
        "GLB-IS-ALPHABETIC '"
        TEST-ALPHABETIC-1
        "' is "
        GLB-IS-ALPHABETIC TEST-ALPHABETIC-1
    ]
    print rejoin [
        "GLB-IS-ALPHABETIC '"
        TEST-ALPHABETIC-2
        "' is "
        GLB-IS-ALPHABETIC TEST-ALPHABETIC-2
    ]
    print rejoin [
        "GLB-IS-ALPHABETIC '"
        TEST-ALPHABETIC-3
        "' is "
        GLB-IS-ALPHABETIC TEST-ALPHABETIC-3
    ]
    print ""
    GLB-PAUSE "Check results, 'enter' to continue or enter 'quit' to quit"
    print ""
]
 
TEST-CHECK-MMDDYYYY: does [
    print "Testing GLB-CHECK-MMDDYYYY"
    TEST-MMDDYYYY-1: "01/01/2000"
    TEST-MMDDYYYY-2: "4/1/2001"
    TEST-MMDDYYYY-3: "05/32/2003"
    TEST-MMDDYYYY-4: "A6/99/9999"
    print ""
    print rejoin [
        "GLB-CHECK-MMDDYYYY '"
        TEST-MMDDYYYY-1
        "' returns "
        GLB-CHECK-MMDDYYYY TEST-MMDDYYYY-1
        newline
        "Message is: "
        GLB-CHECK-MMDDYYYY-MSG
    ]
    print rejoin [
        "GLB-CHECK-MMDDYYYY '"
        TEST-MMDDYYYY-2
        "' returns "
        GLB-CHECK-MMDDYYYY TEST-MMDDYYYY-2
        newline
        "Message is: "
        GLB-CHECK-MMDDYYYY-MSG
    ]
    print rejoin [
        "GLB-CHECK-MMDDYYYY '"
        TEST-MMDDYYYY-3
        "' returns "
        GLB-CHECK-MMDDYYYY TEST-MMDDYYYY-3
        newline
        "Message is: "
        GLB-CHECK-MMDDYYYY-MSG
    ]
    print rejoin [
        "GLB-CHECK-MMDDYYYY '"
        TEST-MMDDYYYY-4
        "' returns "
        GLB-CHECK-MMDDYYYY TEST-MMDDYYYY-4
        newline
        "Message is: "
        GLB-CHECK-MMDDYYYY-MSG
    ]
    print ""
    GLB-PAUSE "Check results, 'enter' to continue or enter 'quit' to quit"
    print ""
]

TEST-GLB-DATES-AND-TIMES
TEST-GLB-SUBSTRING
TEST-GLB-BASE-FILENAME
TEST-GLB-FILLER
TEST-GLB-ZEROFILL
TEST-GLB-INSERT-DECIMAL
TEST-GLB-SPACEFILL
TEST-GLB-IS-NUMERIC
TEST-GLB-IS-ALPHABETIC
TEST-CHECK-MMDDYYYY