(FILECREATED "20-Mar-85 11:28:23" {INDIGO}<LOOPS>SOURCES>TESTER>LTHARMONYONLYTESTS.;2
 1804   

      changes to:  (INSTANCES LTP67 LTP69)
		   (VARS LTHARMONYINSTANCES)

      previous date: "18-Mar-85 15:04:24" {INDIGO}<LOOPS>SOURCES>TESTER>LTHARMONYONLYTESTS.;1)


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

(PRETTYCOMPRINT LTHARMONYONLYTESTSCOMS)

(RPAQQ LTHARMONYONLYTESTSCOMS
 ((* File created by MITTAL)
			       (* Database of tests used ONLY upto (and before)
				  the Harmony release of Loops)
			       (CLASSES)
			       (METHODS)
			       (FNS)
			       (VARS)
			       (INSTANCES * LTHARMONYINSTANCES)))



(* File created by MITTAL)





(* Database of tests used ONLY upto (and before) the Harmony release of Loops)


(DEFCLASSES)

(RPAQQ LTHARMONYINSTANCES
 (LTP67 LTP69))
[DEFINST LOOPSTestPrimitive (LTP67 LTP67H "MRU0.RUC1.9J8.142")

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


[DEFINST LOOPSTestPrimitive (LTP69 LTP69H "MRU0.RUC1.9J8.143")

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


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