see README for status
This commit is contained in:
Larry Masinter
Binary file not shown.
Binary file not shown.
Binary file not shown.
File diff suppressed because one or more lines are too long
Binary file not shown.
Binary file not shown.
Binary file not shown.
497
internal/test/README.ps
Normal file
497
internal/test/README.ps
Normal file
@@ -0,0 +1,497 @@
|
||||
%!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
|
||||
File diff suppressed because one or more lines are too long
BIN
internal/test/tools/AUTOTEST.DFASL
Normal file
BIN
internal/test/tools/AUTOTEST.DFASL
Normal file
Binary file not shown.
Binary file not shown.
File diff suppressed because one or more lines are too long
Binary file not shown.
Binary file not shown.
Reference in New Issue
Block a user