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"