github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-29 05:16:11 +00:00
Code Issues Projects Releases Wiki Activity

Clean out useless / obsolete / duplicate tests

Browse Source
This commit is contained in:
Larry Masinter
2020-12-21 15:10:01 -08:00
parent 9b4fcdac64
commit 7958f65c95
647 changed files with 0 additions and 1168 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
internal/test/Maiko/ARs/AR-TEST-CASE.Auto-log
View File

@@ -1,73 +0,0 @@
(10019 PASS "DANIELS" "23-Jun-88 20:18:21")
(10216 PASS "DANIELS" "23-Jun-88 20:52:14")
(10217 PASS "DANIELS" "23-Jun-88 20:56:20")
(10219 PASS "DANIELS" "23-Jun-88 20:58:45")
(10220 PASS "DANIELS" "23-Jun-88 22:01:47")
(10221 FAIL "DANIELS" "23-Jun-88 22:22:53")
(10226 PASS "DANIELS" "23-Jun-88 22:26:08")
(10230 PASS "DANIELS" "23-Jun-88 22:29:54")
(10253 PASS "DANIELS" "23-Jun-88 22:33:29")
(10255 PASS "DANIELS" "23-Jun-88 22:37:02")
(10275 PASS "DANIELS" "23-Jun-88 22:39:03")
(10283 PASS "DANIELS" "24-Jun-88 16:37:03")
(10295 PASS "DANIELS" "24-Jun-88 16:37:49")
(10321 FAIL "DANIELS" "24-Jun-88 16:46:20")
(10333 PASS "DANIELS" "24-Jun-88 16:53:48")
(10334 PASS "DANIELS" "24-Jun-88 16:59:19")
(10355 PASS "DANIELS" "24-Jun-88 17:00:54")
(10358 PASS "DANIELS" "24-Jun-88 17:02:14")
(10359 PASS "DANIELS" "24-Jun-88 17:03:17")
(10361 FAIL "DANIELS" "24-Jun-88 17:05:38")
(10383 PASS "DANIELS" "24-Jun-88 17:14:10")
(10387 PASS "DANIELS" "24-Jun-88 17:49:10")
(10388 PASS "DANIELS" "24-Jun-88 17:49:29")
(10390 PASS "DANIELS" "24-Jun-88 17:55:34")
(10397 PASS "DANIELS" "24-Jun-88 17:56:36")
(10398 PASS "DANIELS" "24-Jun-88 17:58:17")
(10399 PASS "DANIELS" "24-Jun-88 18:00:03")
(10400 PASS "DANIELS" "24-Jun-88 18:08:52")
(10423 PASS "DANIELS" "24-Jun-88 18:25:45")
(10426 PASS "DANIELS" "24-Jun-88 18:28:34")
(10450 PASS "DANIELS" "24-Jun-88 18:33:26")
(10459 PASS "DANIELS" "24-Jun-88 18:36:20")
(10461 PASS "DANIELS" "24-Jun-88 18:39:08")
(10466 PASS "DANIELS" "24-Jun-88 18:40:53")
(10375 PASS "DANIELS" "24-Jun-88 19:36:02")
(10019 PASS "DANIELS" "30-Jun-88 16:41:06")
(10216 PASS "DANIELS" "30-Jun-88 16:41:12")
(10217 PASS "DANIELS" "30-Jun-88 16:41:15")
(10219 PASS "DANIELS" "30-Jun-88 16:41:24")
(10220 PASS "DANIELS" "30-Jun-88 16:41:26")
(10224 PASS "DANIELS" "30-Jun-88 16:41:28")
(10226 PASS "DANIELS" "30-Jun-88 16:41:30")
(10230 PASS "DANIELS" "30-Jun-88 16:41:32")
(10253 PASS "DANIELS" "30-Jun-88 16:41:34")
(10255 PASS "DANIELS" "30-Jun-88 16:41:37")
(10275 PASS "DANIELS" "30-Jun-88 16:41:39")
(10283 PASS "DANIELS" "30-Jun-88 16:41:41")
(10295 PASS "DANIELS" "30-Jun-88 16:41:43")
(10305 PASS "DANIELS" "30-Jun-88 16:41:46")
(10309 PASS "DANIELS" "30-Jun-88 16:41:48")
(10333 PASS "DANIELS" "30-Jun-88 16:41:50")
(10334 PASS "DANIELS" "30-Jun-88 16:41:52")
(10355 PASS "DANIELS" "30-Jun-88 16:41:54")
(10358 PASS "DANIELS" "30-Jun-88 16:41:56")
(10359 PASS "DANIELS" "30-Jun-88 16:41:58")
(10375 PASS "DANIELS" "30-Jun-88 16:42:01")
(10383 PASS "DANIELS" "30-Jun-88 16:42:04")
(10387 PASS "DANIELS" "30-Jun-88 16:42:06")
(10388 PASS "DANIELS" "30-Jun-88 16:42:10")
(10390 PASS "DANIELS" "30-Jun-88 16:42:12")
(10397 PASS "DANIELS" "30-Jun-88 16:42:16")
(10398 PASS "DANIELS" "30-Jun-88 16:42:20")
(10399 PASS "DANIELS" "30-Jun-88 16:42:23")
(10400 PASS "DANIELS" "30-Jun-88 16:42:27")
(10420 PASS "DANIELS" "30-Jun-88 16:42:30")
(10423 PASS "DANIELS" "30-Jun-88 16:42:34")
(10426 PASS "DANIELS" "30-Jun-88 16:42:37")
(10450 PASS "DANIELS" "30-Jun-88 16:42:40")
(10459 PASS "DANIELS" "30-Jun-88 16:42:42")
(10461 PASS "DANIELS" "30-Jun-88 16:42:45")
(10466 PASS "DANIELS" "30-Jun-88 16:42:48")
(10386 FAIL "DANIELS" "30-Jun-88 17:03:29")
(10386 PASS "DANIELS" "30-Jun-88 20:05:56")

20
internal/test/Maiko/ARs/ENDLESS-PUSHES
View File

@@ -1,20 +0,0 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(filecreated "30-Jun-88 20:04:14" {eris}<test>maiko>ars>endless-pushes.\;1 655
|changes| |to:| (vars endless-pushescoms)
(functions endless-pushes))
; Copyright (c) 1988 by Xerox Corporation. All rights reserved.
(prettycomprint endless-pushescoms)
(rpaqq endless-pushescoms ((functions endless-pushes)))
(cl:defun endless-pushes ()
(while t when (prog nil
(return (eq 0 (logand 1 (return))))) do (print "hi")))
(putprops endless-pushes copyright ("Xerox Corporation" 1988))
(declare\: dontcopy
(filemap (nil)))
stop

BIN
internal/test/Maiko/ARs/ENDLESS-PUSHES.DFASL
View File

Binary file not shown.

BIN
internal/test/Maiko/ARs/optests.dfasl
View File

Binary file not shown.

26
internal/test/Maiko/ARs/optests.lisp
View File

@@ -1,26 +0,0 @@
;;; Random opcode tests
(in-package "XCL-USER")
(defun copy.n.test (use-ufn)
"Tests a case of the COPY.N opcode. Both (COPY.N.TEST NIL) and (COPY.N.TEST T) should return :OK"
(if use-ufn
(progn ((il:opcodes il:copy) 2 1 :ok -1 -2) ; the COPY compensates for a POP
(funcall (il:\\getufnentry 'il:copy.n) 4))
((il:opcodes il:copy.n 4) 2 1 :ok -1 -2)))
(defun store.n.test (use-ufn)
"Tests a case of the STORE.N opcode. Both (STORE.N.TEST NIL) and (STORE.N.TEST T) should return the list (5 4 t 2 1)"
(if use-ufn
(progn ((il:opcodes il:copy) 5 4 3 2 1)
(funcall (il:\\getufnentry 'il:store.n) t 4))
((il:opcodes il:store.n 4) 5 4 3 2 1 t))
((il:opcodes il:applyfn) 5 'list))
(defun pop.n.test (use-ufn)
"Tests a case of the STORE.N opcode. Both (POP.N.TEST NIL) and (POP.N.TEST T) should return 2"
(if use-ufn
(progn ((il:opcodes il:copy) 4 3 2 1 0)
(funcall (il:\\getufnentry 'il:pop.n) 2))
((il:opcodes il:pop.n 2) 4 3 2 1 0)))

26
internal/test/Maiko/Aux/optests.lisp
View File

@@ -1,26 +0,0 @@
;;; Random opcode tests
(in-package "XCL-USER")
(defun copy.n.test (use-ufn)
"Tests a case of the COPY.N opcode. Both (COPY.N.TEST NIL) and (COPY.N.TEST T) should return :OK"
(if use-ufn
(progn ((il:opcodes il:copy) 2 1 :ok -1 -2) ; the COPY compensates for a POP
(funcall (il:\\getufnentry 'il:copy.n) 4))
((il:opcodes il:copy.n 4) 2 1 :ok -1 -2)))
(defun store.n.test (use-ufn)
"Tests a case of the STORE.N opcode. Both (STORE.N.TEST NIL) and (STORE.N.TEST T) should return the list (5 4 t 2 1)"
(if use-ufn
(progn ((il:opcodes il:copy) 5 4 3 2 1)
(funcall (il:\\getufnentry 'il:store.n) t 4))
((il:opcodes il:store.n 4) 5 4 3 2 1 t))
((il:opcodes il:applyfn) 5 'list))
(defun pop.n.test (use-ufn)
"Tests a case of the STORE.N opcode. Both (POP.N.TEST NIL) and (POP.N.TEST T) should return 2"
(if use-ufn
(progn ((il:opcodes il:copy) 4 3 2 1 0)
(funcall (il:\\getufnentry 'il:pop.n) 2))
((il:opcodes il:pop.n 2) 4 3 2 1 0)))

BIN
internal/test/Maiko/HAND/MAIKO-ARRAY-TESTS.DFASL
View File

Binary file not shown.

0
internal/test/Maiko/Aux/bbtests → internal/test/Maiko/OBSOLETE/Aux/bbtests
View File

0
internal/test/Maiko/BAD-XREF → internal/test/Maiko/OBSOLETE/BAD-XREF
View File

0
internal/test/Maiko/HAND/MAIKO-ARRAY-TESTS → internal/test/Maiko/OBSOLETE/HAND/MAIKO-ARRAY-TESTS
View File

0
internal/test/Maiko/STACKHAX → internal/test/Maiko/OBSOLETE/STACKHAX
View File

0
internal/test/Maiko/STACKHAX.LCOM → internal/test/Maiko/OBSOLETE/STACKHAX.LCOM
View File

0
internal/test/Maiko/STACKTAKESHI → internal/test/Maiko/OBSOLETE/STACKTAKESHI
View File

0
internal/test/Maiko/STACKTAKESHI.LCOM → internal/test/Maiko/OBSOLETE/STACKTAKESHI.LCOM
View File

0
internal/test/Maiko/display.cl → internal/test/Maiko/OBSOLETE/display.cl
View File