REBOL [
    Title "Tester for pclprt.r"
]

do %../modules/pclprt.r

PCLPRT-TEST-1: does [
    PCLPRT-OPEN
    PCLPRT-PRINT "Test line 1"
    PCLPRT-PRINT "Test line 2"
    PCLPRT-PRINT/DOUBLE "Test line 3"
    PCLPRT-PRINT "This line should have a blank line above it"
    PCLPRT-EJECT
    PCLPRT-PRINT "This line should be on the next page"
    PCLPRT-CLOSE
]

PCLPRT-TEST-2: does [
    PCLPRT-OPEN
    PCLPRT-SET-LINEPRINTER
    PCLPRT-PRINT rejoin [
    "123456789*123456789*123456789*123456789*123456789*"
    "123456789*123456789*123456789*123456789*123456789*"
    "123456789*123456789*123456789*123456789*123456789*"
    "123456789*12345"
    ]
    PCLPRT-PRINT rejoin [
    "        10        20        30        40        50"
    "        60        70        80        90       100"
    "       110       120       130       140       150"
    "       160  165"
    ]
    PCLPRT-PRINT rejoin [
    "--------------------------------------------------"
    "--------------------------------------------------"
    "--------------------------------------------------"
    "---------------"
    ]
    PCLPRT-PRINT "TEST LINE 4"
    PCLPRT-PRINT "TEST LINE 5"
    PCLPRT-PRINT "TEST LINE 6"
    PCLPRT-PRINT "TEST LINE 7"
    PCLPRT-PRINT "TEST LINE 8"
    PCLPRT-PRINT "TEST LINE 9"
    PCLPRT-PRINT "TEST LINE 10"
    PCLPRT-PRINT "TEST LINE 11"
    PCLPRT-PRINT "TEST LINE 12"
    PCLPRT-PRINT "TEST LINE 13"
    PCLPRT-PRINT "TEST LINE 14"
    PCLPRT-PRINT "TEST LINE 15"
    PCLPRT-PRINT "TEST LINE 16"
    PCLPRT-PRINT "TEST LINE 17"
    PCLPRT-PRINT "TEST LINE 18"
    PCLPRT-PRINT "TEST LINE 19"
    PCLPRT-PRINT "TEST LINE 20"
    PCLPRT-PRINT "TEST LINE 21"
    PCLPRT-PRINT "TEST LINE 22"
    PCLPRT-PRINT "TEST LINE 23"
    PCLPRT-PRINT "TEST LINE 24"
    PCLPRT-PRINT "TEST LINE 25"
    PCLPRT-PRINT "TEST LINE 26"
    PCLPRT-PRINT "TEST LINE 27"
    PCLPRT-PRINT "TEST LINE 28"
    PCLPRT-PRINT "TEST LINE 29"
    PCLPRT-PRINT "TEST LINE 30"
    PCLPRT-PRINT "TEST LINE 31"
    PCLPRT-PRINT "TEST LINE 32"
    PCLPRT-PRINT "TEST LINE 33"
    PCLPRT-PRINT "TEST LINE 34"
    PCLPRT-PRINT "TEST LINE 35"
    PCLPRT-PRINT "TEST LINE 36"
    PCLPRT-PRINT "TEST LINE 37"
    PCLPRT-PRINT "TEST LINE 38"
    PCLPRT-PRINT "TEST LINE 39"
    PCLPRT-PRINT "TEST LINE 40"
    PCLPRT-PRINT "TEST LINE 41"
    PCLPRT-PRINT "TEST LINE 42"
    PCLPRT-PRINT "TEST LINE 43"
    PCLPRT-PRINT "TEST LINE 44"
    PCLPRT-PRINT "TEST LINE 45"
    PCLPRT-PRINT "TEST LINE 46"
    PCLPRT-PRINT "TEST LINE 47"
    PCLPRT-PRINT "TEST LINE 48"
    PCLPRT-PRINT "TEST LINE 49"
    PCLPRT-PRINT "TEST LINE 50"
    PCLPRT-PRINT "TEST LINE 51"
    PCLPRT-PRINT "TEST LINE 52"
    PCLPRT-PRINT "TEST LINE 53"
    PCLPRT-PRINT "TEST LINE 54"
    PCLPRT-PRINT "TEST LINE 55"
    PCLPRT-PRINT "TEST LINE 56"
    PCLPRT-PRINT "TEST LINE 57"
    PCLPRT-PRINT "TEST LINE 58"
    PCLPRT-CLOSE
]

PCLPRT-TEST-3: does [
    PCLPRT-LP-PROGRAM: "PCLPRT-TESTER"
    PCLPRT-LP-REPORT: "Test harness for pclprt.r"
    PCLPRT-LP-OPEN
    PCLPRT-LP-PRINT "TEST LINE 1"
    PCLPRT-LP-PRINT "TEST LINE 2"
    PCLPRT-LP-PRINT "TEST LINE 3"
    PCLPRT-LP-PRINT "TEST LINE 4"
    PCLPRT-LP-PRINT "TEST LINE 5"
    PCLPRT-LP-PRINT "TEST LINE 6"
    PCLPRT-LP-PRINT "TEST LINE 7"
    PCLPRT-LP-PRINT "TEST LINE 8"
    PCLPRT-LP-PRINT "TEST LINE 9"
    PCLPRT-LP-PRINT "TEST LINE 10"
    PCLPRT-LP-PRINT "TEST LINE 11"
    PCLPRT-LP-PRINT "TEST LINE 12"
    PCLPRT-LP-PRINT "TEST LINE 13"
    PCLPRT-LP-PRINT "TEST LINE 14"
    PCLPRT-LP-PRINT "TEST LINE 15"
    PCLPRT-LP-PRINT "TEST LINE 16"
    PCLPRT-LP-PRINT "TEST LINE 17"
    PCLPRT-LP-PRINT "TEST LINE 18"
    PCLPRT-LP-PRINT "TEST LINE 19"
    PCLPRT-LP-PRINT "TEST LINE 20"
    PCLPRT-LP-PRINT "TEST LINE 21"
    PCLPRT-LP-PRINT "TEST LINE 22"
    PCLPRT-LP-PRINT "TEST LINE 23"
    PCLPRT-LP-PRINT "TEST LINE 24"
    PCLPRT-LP-PRINT "TEST LINE 25"
    PCLPRT-LP-PRINT "TEST LINE 26"
    PCLPRT-LP-PRINT "TEST LINE 27"
    PCLPRT-LP-PRINT "TEST LINE 28"
    PCLPRT-LP-PRINT "TEST LINE 29"
    PCLPRT-LP-PRINT "TEST LINE 30"
    PCLPRT-LP-PRINT "TEST LINE 31"
    PCLPRT-LP-PRINT "TEST LINE 32"
    PCLPRT-LP-PRINT "TEST LINE 33"
    PCLPRT-LP-PRINT "TEST LINE 34"
    PCLPRT-LP-PRINT "TEST LINE 35"
    PCLPRT-LP-PRINT "TEST LINE 36"
    PCLPRT-LP-PRINT "TEST LINE 37"
    PCLPRT-LP-PRINT "TEST LINE 38"
    PCLPRT-LP-PRINT "TEST LINE 39"
    PCLPRT-LP-PRINT "TEST LINE 40"
    PCLPRT-LP-PRINT "TEST LINE 41"
    PCLPRT-LP-PRINT "TEST LINE 42"
    PCLPRT-LP-PRINT "TEST LINE 43"
    PCLPRT-LP-PRINT "TEST LINE 44"
    PCLPRT-LP-PRINT "TEST LINE 45"
    PCLPRT-LP-PRINT "TEST LINE 46"
    PCLPRT-LP-PRINT "TEST LINE 47"
    PCLPRT-LP-PRINT "TEST LINE 48"
    PCLPRT-LP-PRINT "TEST LINE 49"
    PCLPRT-LP-PRINT "TEST LINE 50"
    PCLPRT-LP-PRINT "TEST LINE 51"
    PCLPRT-LP-PRINT "TEST LINE 52"
    PCLPRT-LP-PRINT "TEST LINE 53"
    PCLPRT-LP-PRINT "TEST LINE 54"
    PCLPRT-LP-PRINT "TEST LINE 55"
    PCLPRT-LP-PRINT "TEST LINE 56"
    PCLPRT-LP-PRINT "TEST LINE 57"
    PCLPRT-LP-PRINT "TEST LINE 58"
    PCLPRT-LP-PRINT "TEST LINE 59"
    PCLPRT-LP-PRINT "TEST LINE 60"
    PCLPRT-LP-PRINT "TEST LINE 61"
    PCLPRT-LP-PRINT "TEST LINE 62"
    PCLPRT-LP-PRINT "TEST LINE 63"
    PCLPRT-LP-PRINT "TEST LINE 64"
    PCLPRT-LP-PRINT "TEST LINE 65"
    PCLPRT-LP-CLOSE
]

;PCLPRT-TEST-1

;PCLPRT-TEST-2

PCLPRT-TEST-3

alert "file sent to printer"