(FILECREATED "18-Mar-85 15:16:05" {PHYLUM}<MITTAL>LISP>LTINTERLOOPSTESTS.;2
 1600   

      changes to:  (VARS LTINTERLOOPSTESTSCOMS)

      previous date: "18-Mar-85 10:10:41" {PHYLUM}<MITTAL>LISP>LTINTERLOOPSTESTS.;1)


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT LTINTERLOOPSTESTSCOMS)

(RPAQQ LTINTERLOOPSTESTSCOMS
 ((* File created by MITTAL)
			      (* tests specific to Interloops only)
			      (CLASSES)
			      (METHODS)
			      (FNS)
			      (VARS)
			      (INSTANCES LTP67 LTP69)))



(* File created by MITTAL)





(* tests specific to Interloops only)


(DEFCLASSES)
[DEFINST LOOPSTestPrimitive (LTP67 "O\R@@[k")

         (name #(LTP67H NIL RememberName))
	 (SetUp ?)
	 (TestExpr (EQUAL (GetMethod ($ LOOPSTestClassL1)
				     (QUOTE M2))
			  (QUOTE LOOPSTestClassL1.M2)))
	 (TestDesc "GetMethod: local selector over inherited")
	 (PreTest ? Tested? T)
	 (UsesObj #((LOOPSTestCases LOOPSTestClassL1)
		    NIL AllowRemove))
	 (SubTestOf #((LTFGetMethod)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP69 "O\R@@[m")

         (name #(LTP69H NIL RememberName))
	 (SetUp ?)
	 (TestExpr (EQUAL (GetMethod ($ LOOPSTestClassL1)
				     (QUOTE GM4))
			  (QUOTE LOOPSTestCases.GM4)))
	 (TestDesc "GetMethod: inherited selector")
	 (SubTest #(NIL NIL MakeBackLink))
	 (PreTest ? Tested? T)
	 (UsesObj #((LOOPSTestCases LOOPSTestClassL1)
		    NIL AllowRemove))
	 (SubTestOf #((LTFGetMethod)
		      NIL MakeBackLink))]


(PUTPROPS LTINTERLOOPSTESTS COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP