1
0
mirror of synced 2026-02-26 17:13:17 +00:00

more cleanup of tests

This commit is contained in:
Larry Masinter
2020-12-28 10:33:23 -08:00
parent 89cea11658
commit ed534309ed
45 changed files with 0 additions and 584 deletions

View File

@@ -1,58 +0,0 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "XCL-USER")
(il:filecreated "27-Feb-88 13:23:39" il:{eris}<test>library>rs232>hand>testreceive.\;2 2635
il:|previous| il:|date:| "16-Nov-87 18:09:08" il:{eris}<test>library>rs232>hand>testreceive.\;1
)
; Copyright (c) 1987, 1988 by Xerox Corporation. All rights reserved.
(il:prettycomprint il:testreceivecoms)
(il:rpaqq il:testreceivecoms ((file-environments "TESTRECEIVE")
(il:functions get-data receive-data)))
(define-file-environment "TESTRECEIVE" :package "XCL-USER" :readtable "XCL" :compiler
:compile-file)
(defun get-data (strm)
(il:* il:|;;| "get the data and return the number of characters picked up.")
(let ((chars-received 0))
(loop
(il:* il:|;;|
 "now we start getting data. Just count the number of chars picked up and time how long it takes.")
(cond
((il:readp strm)
(il:bin strm)
(incf chars-received))
(t (return chars-received))))))
(defun receive-data nil
(il:* il:|;;| "hang around until readp goes high (they are sending the data) and then count the number of chars until the data stops. Print out this number of characters and a TIME of the input to standard-output.")
(let (chars-received)
(with-open-stream (input-stream (il:openstream "{RS232}"
'il:input))
(loop (loop
(il:* il:|;;| "wait till readp goes high.")
(when (il:readp input-stream)
(return))
(il:block 100))
(time (setq chars-received (get-data input-stream))
:output *standard-output*)
(format *standard-output* "~%~s characters received.~%"
chars-received)))))
(il:putprops il:testreceive il:copyright ("Xerox Corporation" 1987 1988))
(il:declare\: il:dontcopy
(il:filemap (nil)))
il:stop

View File

@@ -1,29 +0,0 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "XCL-USER")
(il:filecreated "27-Feb-88 13:34:15" il:{eris}<test>library>rs232>hand>testsend.\;2 1072
il:|previous| il:|date:| "16-Nov-87 16:20:15" il:{eris}<test>library>rs232>hand>testsend.\;1)
; Copyright (c) 1987, 1988 by Xerox Corporation. All rights reserved.
(il:prettycomprint il:testsendcoms)
(il:rpaqq il:testsendcoms ((file-environments "TESTSEND")
(il:functions send-data)))
(define-file-environment "TESTSEND" :package "XCL-USER" :readtable "XCL" :compiler :compile-file)
(defun send-data (n)
(il:* il:|;;;| "send n characters across an RS232 stream.")
(with-open-stream (output-stream (il:openstream "{rs232}" 'il:output))
(time (dotimes (i n)
(il:bout output-stream 99))
:output *standard-output*)))
(il:putprops il:testsend il:copyright ("Xerox Corporation" 1987 1988))
(il:declare\: il:dontcopy
(il:filemap (nil)))
il:stop

Binary file not shown.

View File

@@ -1,497 +0,0 @@
%!PS-Adobe-2.0
%%Title: {DSK}<home>larry>ilisp>medley>internal>test>README.ps;1
%%Creator: PostScript Driver Copyright (C) 1988-1992 Venue and others
%%CreationDate: 19-Dec-2020 18:53:07
%%EndComments
/bdef {bind def} bind def
/ldef {load def} bdef
/S /show ldef
/M /moveto ldef
/DR {transform round exch round exch itransform} bdef
/L {gsave newpath setlinewidth 0 setlinecap
M lineto currentpoint stroke grestore M} bdef
/L1 {gsave newpath 0 setdash setgray setlinewidth 0 setlinecap
M lineto currentpoint stroke grestore M} bdef
/F {findfont exch scalefont setfont} bdef
/CLP {newpath M dup 0 rlineto exch 0 exch rlineto
neg 0 rlineto closepath clip newpath} bdef
/R {gsave setgray newpath M dup 0 rlineto exch 0 exch
rlineto neg 0 rlineto closepath eofill grestore} bdef
/ellipsedict 9 dict def
ellipsedict /mtrx matrix put
/ellipse
{ ellipsedict begin
/endangle exch def
/startangle exch def
/orientation exch def
/minorrad exch def
/majorrad exch def
/y exch def
/x exch def
/savematrix mtrx currentmatrix def
x y translate
orientation rotate
majorrad minorrad scale
0 0 1 startangle endangle arc
savematrix setmatrix
end } bdef
/concatprocs
{/proc2 exch cvlit def
/proc1 exch cvlit def
/newproc proc1 length proc2 length add array def
newproc 0 proc1 putinterval
newproc proc1 length proc2 putinterval
newproc cvx
} bdef
/resmatrix matrix def
/findresolution
{72 0 resmatrix defaultmatrix dtransform
/yres exch def /xres exch def
xres dup mul yres dup mul add sqrt
} bdef
/thebitimage
{/maskp exch def
/bihgt exch def
/biwid exch def
/byte 1 string def
/strbufl biwid 8 div ceiling cvi def
/strbuf strbufl string def
maskp not{{1 exch sub} currenttransfer concatprocs settransfer} if
biwid bihgt
maskp { true } { 1 } ifelse
[biwid 0 0 bihgt 0 0]
{/col 0 def
{currentfile byte readhexstring pop 0 get
dup 16#B2 eq {pop
currentfile byte readhexstring pop 0 get 1 add
currentfile byte readhexstring pop pop /nbyte byte 0 get def
{ strbuf col nbyte put /col col 1 add def} repeat}
{dup 16#B3 eq {pop /col col
currentfile byte readhexstring pop
0 get add 1 add def}
{16#B4 eq {currentfile byte readhexstring pop pop} if
strbuf col byte 0 get put /col col 1 add def} ifelse
} ifelse
col strbufl ge { exit } if } loop
strbuf }
maskp { imagemask } { image } ifelse
} bdef
/setuserscreendict 22 dict def
setuserscreendict begin
/tempctm matrix def
/temprot matrix def
/tempscale matrix def
end
/setuserscreen
{setuserscreendict begin
/spotfunction exch def
/screenangle exch def
/cellsize exch def
/m tempctm currentmatrix def
/rm screenangle temprot rotate def
/sm cellsize dup tempscale scale def
sm rm m m concatmatrix m concatmatrix pop
1 0 m dtransform /y1 exch def /x1 exch def
/veclength x1 dup mul y1 dup mul add sqrt def
/frequency findresolution veclength div def
/newscreenangle y1 x1 atan def
m 2 get m 1 get mul m 0 get m 3 get mul sub
0 gt { { neg } /spotfunction load concatprocs
/spotfunction exch def } if
frequency newscreenangle /spotfunction load setscreen
end
} bdef
/setpatterndict 18 dict def
setpatterndict begin
/bitison
{/ybit exch def /xbit exch def
/bytevalue bstring ybit bwidth mul xbit 8 idiv add get def
/mask 1 7 xbit 8 mod sub bitshift def
bytevalue mask and 0 ne
} bdef
end
/bitpatternspotfunction
{setpatterndict begin
/y exch def /x exch def
/xindex x 1 add 2 div bpside mul 1 sub cvi def
/yindex y 1 add 2 div bpside mul 1 sub cvi def
xindex yindex bitison
{/onbits onbits 1 add def 1}
{/offbits offbits 1 add def 0} ifelse
end
} bdef
/setpattern
{setpatterndict begin
/cellsz exch def
/angle exch def
/bwidth exch def
/bpside exch def
/bstring exch def
/onbits 0 def /offbits 0 def
cellsz angle /bitpatternspotfunction load setuserscreen
{} settransfer
offbits offbits onbits add div setgray
end
} bdef
% - - - - - Fraction-setting code, to support NS fonts better - - - - -
/fractiondict 20 dict def
/fractionshow
{ fractiondict begin
/denom exch def
/num exch def
/regfont currentfont def
/fractfont currentfont [.65 0 0 .6 0 0] makefont def
gsave newpath 0 0 moveto
(1) true charpath flattenpath pathbbox
/height exch def pop pop pop
grestore
0 .4 height mul rmoveto
fractfont setfont num show
0 .4 height mul neg rmoveto regfont setfont (\244) show
fractfont setfont denom show regfont setfont end } bdef
/f14 { (1) (4) fractionshow } bdef
/f12 { (1) (2) fractionshow } bdef
/f34 { (3) (4) fractionshow } bdef
/f18 { (1) (8) fractionshow } bdef
/f38 { (3) (8) fractionshow } bdef
/f58 { (5) (8) fractionshow } bdef
/f78 { (7) (8) fractionshow } bdef
/f13 { (1) (3) fractionshow } bdef
/f23 { (2) (3) fractionshow } bdef
/bboxdict 20 dict def
/bboxchk { bboxdict begin
/regfont currentfont def
/chkfont currentfont [1.25 0 0 1.25 0 0] makefont def
gsave newpath 0 0 moveto
(\161) true charpath flattenpath pathbbox
/height exch def pop pop pop
grestore
currentpoint
.2 height mul .3 height mul rmoveto
chkfont setfont (\063) show
moveto
regfont setfont
(\161) show end } bdef
/rencdict 15 dict def
/encodefont { rencdict begin
/newname exch def
/oldfont exch def
/newcodes [
8#001 /Aacute
8#002 /Acircumflex
8#003 /Adieresis
8#004 /Agrave
8#005 /Aring
8#006 /Atilde
8#007 /Ccedilla
8#010 /Eacute
8#011 /Ecircumflex
8#012 /Edieresis
8#013 /Egrave
8#014 /Iacute
8#015 /Icircumflex
8#016 /Idieresis
8#017 /Igrave
8#020 /Ntilde
8#021 /Oacute
8#022 /Ocircumflex
8#023 /Odieresis
8#024 /Ograve
8#025 /Otilde
8#026 /Scaron
8#027 /Uacute
8#030 /Ucircumflex
8#031 /Udieresis
8#032 /Ugrave
8#033 /Ydieresis
8#034 /Zcaron
8#177 /periodinferior
8#201 /aacute
8#202 /acircumflex
8#203 /adieresis
8#204 /agrave
8#205 /aring
8#206 /atilde
8#207 /ccedilla
8#210 /eacute
8#211 /ecircumflex
8#212 /edieresis
8#213 /egrave
8#214 /iacute
8#215 /icircumflex
8#216 /idieresis
8#217 /igrave
8#220 /ntilde
8#221 /oacute
8#222 /ocircumflex
8#223 /odieresis
8#224 /ograve
8#225 /otilde
8#226 /scaron
8#227 /uacute
8#230 /ucircumflex
8#231 /udieresis
8#232 /ugrave
8#233 /ydieresis
8#234 /zcaron
8#235 /Eth
8#236 /eth
8#237 /Thorn
8#240 /thorn
] def
/olddict oldfont findfont def /newfont olddict maxlength dict def
olddict { exch dup /FID ne { dup /Encoding eq
{ exch dup length array copy newfont 3 1 roll put }
{ exch newfont 3 1 roll put } ifelse }
{ pop pop } ifelse } forall
newfont /FontName newname put
newcodes aload pop
newcodes length 2 idiv { newfont /Encoding get 3 1 roll put } repeat
newname newfont definefont pop end } def
/accentdict 10 dict def
/accentor { accentdict begin /scaler exch def /delta exch def
/unders exch def /accents exch def /mainch exch def /scrt (X) def
/w1 mainch stringwidth pop def
currentpoint mainch show currentpoint 4 2 roll
accents { /ch exch def 2 copy moveto
scrt 0 ch put
/w2 scrt stringwidth pop def
w1 w2 sub 2 div delta rmoveto scrt show
/delta delta 150 scaler mul 9 div add def
} forall
unders { /ch exch def 2 copy moveto
scrt 0 ch put
/w2 scrt stringwidth pop def
ch 46 eq { w1 w2 sub 2 div -175 scaler mul 9 div rmoveto scrt show 0 175 rmoveto }
{ w1 w2 sub 2 div 0 rmoveto scrt show } ifelse
} forall
pop pop moveto end } def
%%EndProlog
%%BeginSetup
letter
/imagesizefactor 1 def
%%EndSetup
/Courier /Courier-Acnt encodefont
800 /Courier-Acnt F
%%Page: 1 1
%%BeginPageSetup
/savepage save def
0.01 imagesizefactor mul dup scale
%%EndPageSetup
gsave
0 rotate
79200 61200 0 0 CLP
/Helvetica-Bold /Helvetica-Bold-Acnt encodefont
2400 /Helvetica-Bold-Acnt F
7200 70129 M (Notes on {Medley}<internal>test>) S
1400 /Helvetica-Bold-Acnt F
7200 67108 M (<test> subdirs:) S
/Helvetica /Helvetica-Acnt encodefont
1400 /Helvetica-Acnt F
10800 65708 M (admin, ARs, env, GC, IO , LANGUAGE, Library, loops, lyric, Maiko,) S
7200 64308 M (tools) S
1400 /Helvetica-Bold-Acnt F
7200 62908 M (<test>) S
1400 /Helvetica-Acnt F
(Top level files) S
7200 61508 M ( ) S
1400 /Helvetica-Bold-Acnt F
10800 61508 M (README.TEDIT) S
1400 /Helvetica-Acnt F
( \(this file\)) S
1400 /Helvetica-Bold-Acnt F
10800 60108 M (TEST-RESULTS) S
1400 /Helvetica-Acnt F
( \(contains log from running AUTO tests from 1988\)) S
7200 58708 M ( ) S
1400 /Helvetica-Bold-Acnt F
10800 58708 M (DOT.read-me-first ) S
1400 /Helvetica-Acnt F
( \(originally .read-me-first\)) S
1400 /Helvetica-Bold-Acnt F
7200 54508 M (<test>4045> ) S
1400 /Helvetica-Acnt F
( Deleted) S
1400 /Helvetica-Bold-Acnt F
7200 51708 M (<test>Maiko>) S
1400 /Helvetica-Acnt F
7200 50308 M ( Subdir ARs, AUTO, Aux, HAND, OBSOLETE ) S
7200 48908 M ( Top level files) S
7200 46108 M ( ) S
1400 /Helvetica-Bold-Acnt F
(STACKHAX) S
1400 /Helvetica-Acnt F
( \(has CHECKSTACKSPACE, seems to get tangled up in) S
12000 44708 M (it's own stack) S
7200 43308 M ( ) S
1400 /Helvetica-Bold-Acnt F
(STACKTAKESHI) S
1400 /Helvetica-Acnt F
( \(seems to cause a stack overflow on opurpose,) S
12000 41908 M (which leaves stack clean enough that URAID hard-reset recovers) S
12000 40508 M (from. Suspect timeouts aren't correct) S
7200 39108 M ( ) S
1400 /Helvetica-Bold-Acnt F
(BAD-XREF \() S
1400 /Helvetica-Acnt F
(no compiled file\) ) S
7200 37708 M ( ) S
1400 /Helvetica-Bold-Acnt F
(display.cl) S
1400 /Helvetica-Acnt F
( \(says "from Texas Instruments"\)) S
7200 36308 M ( ) S
1400 /Helvetica-Bold-Acnt F
7200 34908 M (<test>Maiko>ARs) S
1400 /Helvetica-Acnt F
(>) S
10800 33508 M (looks like junk: ) S
7200 32108 M ( ) S
1400 /Helvetica-Bold-Acnt F
(optests ) S
1400 /Helvetica-Acnt F
(& .dfasl \(like AUTO>OPCODES.TEST\)) S
7200 30708 M ( ) S
1400 /Helvetica-Bold-Acnt F
10800 30708 M (ENDLESSPUSHES) S
1400 /Helvetica-Acnt F
7200 29308 M ( ) S
1400 /Helvetica-Bold-Acnt F
10800 29308 M (AR-TEST-CASES.Auto-log) S
1400 /Helvetica-Bold-Acnt F
7200 25108 M (<test>Maiko>AUTO>) S
1400 /Helvetica-Acnt F
7200 23708 M ( ) S
1400 /Helvetica-Bold-Acnt F
(OPCODES.TEST) S
1400 /Helvetica-Acnt F
7200 22308 M ( ) S
1400 /Helvetica-Bold-Acnt F
(OPCODES.DFASL) S
1400 /Helvetica-Acnt F
( ) S
10800 20908 M (may need EXPORTS.ALL to compile) S
7200 19508 M ( ) S
10800 19508 M (most tests succeed) S
7200 18108 M ( test BITBLT-DIAGONALS and BITBLT-SLOPED-LINES fail) S
7200 16708 M ( A little hard to debug because the inspector for 2D arrays fail) S
1400 /Helvetica-Bold-Acnt F
7200 13908 M (<test>Maiko>Aux>) S
1400 /Helvetica-Acnt F
7200 12508 M ( ) S
10800 12508 M (Another cop y of ) S
1400 /Helvetica-Bold-Acnt F
(bbtests ) S
1400 /Helvetica-Acnt F
(and ) S
1400 /Helvetica-Bold-Acnt F
(optests.lisp) S
1400 /Helvetica-Bold-Acnt F
7200 9708 M (<test>Maiko>HAND>) S
1400 /Helvetica-Acnt F
7200 8308 M ( ) S
1400 /Helvetica-Bold-Acnt F
10800 8308 M (MAIKO-ARRAY-TESTS) S
1400 /Helvetica-Acnt F
( and) S
1400 /Helvetica-Bold-Acnt F
( DFASL) S
1400 /Helvetica-Acnt F
( looks like in AUTO) S
grestore savepage restore showpage
%%Page: 2 2
%%BeginPageSetup
/savepage save def
0.01 imagesizefactor mul dup scale
%%EndPageSetup
gsave
0 rotate
79200 61200 0 0 CLP
/Helvetica /Helvetica-Acnt encodefont
1000 /Helvetica-Acnt F
7200 75600 M (2) S
/Helvetica-Bold /Helvetica-Bold-Acnt encodefont
1400 /Helvetica-Bold-Acnt F
7200 68108 M (<test>Maiko>OBSOLETE>) S
7200 66708 M ( ) S
1400 /Helvetica-Acnt F
(Probably incororated into AUTO>) S
1400 /Helvetica-Acnt F
7200 65308 M ( ) S
1400 /Helvetica-Bold-Acnt F
(AREF-TESTER) S
1400 /Helvetica-Acnt F
7200 63908 M ( ) S
1400 /Helvetica-Bold-Acnt F
10800 63908 M (ARRAY-TESTER.TEST ) S
1400 /Helvetica-Acnt F
( ) S
7200 62508 M ( ) S
1400 /Helvetica-Bold-Acnt F
(FLOAT-TESTER) S
1400 /Helvetica-Acnt F
7200 61108 M ( ) S
1400 /Helvetica-Bold-Acnt F
(MAIKO-UNWIND-TESTS) S
1400 /Helvetica-Acnt F
7200 59708 M ( ) S
1400 /Helvetica-Bold-Acnt F
(TESTER) S
1400 /Helvetica-Acnt F
( \(compiled OK\)) S
7200 58308 M ( ) S
1400 /Helvetica-Bold-Acnt F
(unwindtest) S
1400 /Helvetica-Acnt F
7200 56908 M ( ) S
1400 /Helvetica-Bold-Acnt F
(xclopcodetests) S
1400 /Helvetica-Bold-Acnt F
7200 54108 M (<test>Library>) S
1400 /Helvetica-Acnt F
7200 52708 M ( 4045xlpstream> junk) S
7200 51308 M ( Auto> junk\(!\)) S
1400 /Helvetica-Bold-Acnt F
7200 45708 M (<test>loops>) S
7200 44308 M ( LOOPS-SETUP.TEDIT) S
7200 42908 M ( LOOPS-TESTER-.... ) S
1400 /Helvetica-Acnt F
(files) S
1400 /Helvetica-Bold-Acnt F
7200 40108 M (test>Lyric>) S
7200 38708 M ( ) S
1400 /Helvetica-Acnt F
(\(old-versions of) S
1400 /Helvetica-Bold-Acnt F
( DO-TEST .dfasl ) S
1400 /Helvetica-Acnt F
(and) S
1400 /Helvetica-Bold-Acnt F
( .tedit\)) S
7200 35908 M (<test>Tools>) S
1400 /Helvetica-Bold-Acnt F
10800 34508 M (AUTOTEST.TEDIT) S
1400 /Helvetica-Acnt F
( \(originql AUTOTEST.TEDIT-orig\)) S
7200 33108 M ( ) S
1400 /Helvetica-Bold-Acnt F
10800 33108 M (AUTOTEST & .DFASL) S
1400 /Helvetica-Acnt F
( framework for running tests) S
7200 30308 M ( ) S
1400 /Helvetica-Bold-Acnt F
(DO-TEST & .DFASL ) S
1400 /Helvetica-Acnt F
(\(copied newer version from Medley) S
12000 28908 M (internal/library\)) S
7200 27508 M ( ) S
1400 /Helvetica-Bold-Acnt F
(DO-TEST.TEDIT) S
1400 /Helvetica-Acnt F
( on Writing Software Tests) S
7200 26108 M ( \(many other files not reviewed yet\)) S
grestore savepage restore showpage
%%Trailer