(FILECREATED "18-Mar-85 12:00:38" {PHYLUM}<MITTAL>LISP>LTCORETESTS.;2
 20100  

      changes to:  (VARS LTCORETESTSCOMS)

      previous date: "15-Mar-85 15:35:48" {PHYLUM}<MITTAL>LISP>LTCORETESTS.;1)


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

(PRETTYCOMPRINT LTCORETESTSCOMS)

(RPAQQ LTCORETESTSCOMS
 ((* File created by MITTAL)
			(* Database of core test instances, i.e., instances neccessary for running 
			   other tests)
			(CLASSES)
			(METHODS)
			(FNS)
			(VARS)
			(INSTANCES * LTCORETESTSINSTANCES)))



(* File created by MITTAL)





(* Database of core test instances, i.e., instances neccessary for running other tests)


(DEFCLASSES)

(RPAQQ LTCORETESTSINSTANCES
 (LTTemplate LTDumpInstance LTLoadInstance LTMethod LTObject LTActiveValue 
					LTFSend LTFGetValue LTFPutValue LTP86 LTP1 LAVGetValue LTP14 
					LTP12 LTP10 LTP9 LAVPutValue LTP19 LTP18 LTP17 LTP16 LTP57 
					LTP54 LTP53 LTP15 LTP13 LTP11 LTP58 LTP56 LTP55 LTP20))
[DEFINST LOOPSTestBasic (LTTemplate "NXR@@E")

         (name #(LTTemplate NIL RememberName))
	 (SetUp (ATEST (SETQ LTV11 (SEND ($ LOOPSTestTemplate1)
					 New))
		       "Create an instance of a Template Class"))
	 (TestExpr (EQ LTV11 (@ (@ LTV11 A)
				A)))
	 (TestDesc "Creation of an instance of Template")
	 (PreTest #((LTFGetValue)
		    NIL MakeBackLink))]


[DEFINST LOOPSTestBasic (LTDumpInstance "OSR@@A")

         (name #(LTDumpInstance NIL RememberName))
	 [SetUp (PROGN (SETQ LTDUMPCOMS LTLOADCOMS)
		       (MAKEFILE (QUOTE LTDUMP))
		       (for x in LTLOADINSTANCES do (SEND (GetObjectRec x)
							  Destroy))
		       (LOAD (QUOTE LTDUMP]
	 [TestExpr (AND (TestLoadedInstances ($ LD4))
			(TestLoadedInstances ($ LD1]
	 (TestDesc "Dumping instances to file")
	 (SubTest #((LTP86)
		    NIL MakeBackLink) Tested? ?)
	 (PreTest #((LTMDestroyInObj LTLoadInstance)
		    NIL MakeBackLink) Tested? ?)
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)]


[DEFINST LOOPSTestBasic (LTLoadInstance "OSR@@A")

         (name #(LTLoadInstance NIL RememberName))
	 (SetUp (LTLoadFile (QUOTE LTLOAD)))
	 [TestExpr (AND (TestLoadedInstances ($ LD4))
			(TestLoadedInstances ($ LD1]
	 (TestDesc "Loading instances from a file")
	 (PreTestOf ?)
	 (SubTest ? Tested? ?)
	 (PreTest #((LTFGetValue)
		    NIL MakeBackLink) Tested? ?)
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)
	 (UsesObj #((LD4 LD3 LD2 LD1 LOOPSTestClassLD)
		    NIL AllowRemove))]


[DEFINST LOOPSTestBasic (LTMethod "OER@@E#")

         (name #(LTMethod NIL RememberName))
	 (SetUp ? Tested? #(? NIL FlashTestBrowser))
	 (TestExpr T)
	 (Tested? #(? NIL InformTestBrowser))
	 (TestDesc "the basic mechanisms for methods")
	 (SubTest #((LTP1)
		    NIL MakeBackLink) Tested? ?)
	 (PreTest #((LTFSend)
		    NIL MakeBackLink) Tested? ?)
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)]


[DEFINST LOOPSTestBasic (LTObject "OER@@E9")

         (name #(LTObject NIL RememberName))]


[DEFINST LOOPSTestBasic (LTActiveValue "OER@@E8")

         (name #(LTActiveValue NIL RememberName))]


[DEFINST LOOPSTestLispFunc (LTFSend "OER@@E*")

         (name #(LTFSend NIL RememberName))
	 (ResetExp (PutValue ($ LTC1)
			     (QUOTE Var1)
			     NotSetValue))
	 (SetUp (SEND ($ LTC1)
		      SENDTest1
		      (QUOTE Var1)
		      5)
		Tested? #(? NIL FlashTestBrowser) FailedExp ?)
	 (TestExpr (EQ (GetValue ($ LTC1)
				 (QUOTE Var1))
		       5)
		   FailedExpr ? HowFailed ?)
	 (Tested? #(? NIL InformTestBrowser) DoneOnce ?)
	 (TestDesc "invoked message executes properly")
	 (PreTestOf ?)
	 (SubTest ? Tested? ? Failed ?)
	 (PreTest #((LTFPutValue LTFGetValue)
		    NIL MakeBackLink) Tested? ? Failed ?)
	 (CasesUsed #((LTC1)
		      NIL MakeBackLink))
	 (SyntaxTest ? Tested? ? Failed ?)
	 (AltTest ? Tested? ? Failed ?)
	 (LispName SEND)]


[DEFINST LOOPSTestLispFunc (LTFGetValue "OER@@E+")

         (name #(LTFGetValue NIL RememberName))
	 (SetUp ? Tested? #(? NIL FlashTestBrowser) FailedExp ?)
	 (TestExpr (EQUAL (GetValue ($ LOOPSTestCases)
				    (QUOTE GV1))
			  (QUOTE LTP10))
		   FailedExpr ? HowFailed ?)
	 (Tested? #(? NIL InformTestBrowser) DoneOnce ?)
	 (TestDesc "GetValue")
	 (PreTestOf ?)
	 (SubTest #((LAVGetValue LTP14 LTP12 LTP10 LTP9)
		    NIL MakeBackLink) Tested? ? Failed ?)
	 (PreTest #(NIL NIL MakeBackLink) Tested? ? Failed ?)
	 (SyntaxTest ? Tested? ? Failed ?)
	 (AltTest ? Tested? ? Failed ?)
	 (UsesObj #((LOOPSTestCases)
		    NIL AllowRemove))
	 (LispName GetValue)]


[DEFINST LOOPSTestLispFunc (LTFPutValue "OER@@E2")

         (name #(LTFPutValue NIL RememberName))
	 (ResetExp (PutValue ($ LTCA2)
			     (QUOTE PV1)
			     (QUOTE Value)))
	 (SetUp (SETQ LTV21 (PutValue ($ LTCA2)
				      (QUOTE PV1)
				      (QUOTE PutValue)))
		Tested? #(? NIL FlashTestBrowser) FailedExp ?)
	 (TestExpr (ANDALL (EQUAL (GetValue ($ LTCA2)
					    (QUOTE PV1))
				  (QUOTE PutValue))
			   (ATEST (EQUAL LTV21 (QUOTE PutValue))
				  "PutValue returns newValue"))
		   FailedExpr ? HowFailed ?)
	 (Tested? #(? NIL InformTestBrowser) DoneOnce ?)
	 (TestDesc "PutValue")
	 (PreTestOf ?)
	 (SubTest #((LAVPutValue LTP19 LTP18 LTP17 LTP16)
		    NIL MakeBackLink) Tested? ? Failed ?)
	 (PreTest #((LTFGetValue)
		    NIL MakeBackLink) Tested? ? Failed ?)
	 (CasesUsed #((LTCA2)
		      NIL MakeBackLink))
	 (SyntaxTest ? Tested? ? Failed ?)
	 (AltTest ? Tested? ? Failed ?)
	 (UsesObj #((LOOPSTestClass1)
		    NIL AllowRemove))
	 (LispName PutValue)]


[DEFINST LOOPSTestPrimitive (LTP86 "Y←SC@8e")

         (name #(LTP86 NIL RememberName))
	 [SetUp (PROGN (LTLoadFile (QUOTE LTLOAD))
		       (SETQ LTDUMPCCOMS LTLOADCOMS)
		       (MAKEFILE (QUOTE LTDUMPC)
				 (QUOTE (C F)))
		       (for x in LTLOADINSTANCES do (← (GetObjectRec x)
						       Destroy))
		       (LOAD (QUOTE LTDUMPC.DCOM]
	 [TestExpr (AND (TestLoadedInstances ($ LD4))
			(TestLoadedInstances ($ LD1]
	 (TestDesc "Dumping instances to file and compiling file")
	 (SubTestOf #((LTDumpInstance)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP1 "OGR@@E")

         (name #(LTP1 NIL RememberName))
	 (ResetExp (PutValue ($ LTC2)
			     (QUOTE Var2)
			     NotSetValue))
	 (SetUp (SEND ($ LTC2)
		      SENDTest2
		      (QUOTE Var2)
		      7))
	 (TestExpr (EQ (GetValue ($ LTC2)
				 (QUOTE Var2))
		       7))
	 (TestDesc "local method overrides inherited method")
	 (SubTest ? Tested? ?)
	 (PreTest #((LTFGetValue LTFPutValue)
		    BuildPreTest MakeBackLink) Tested? ?)
	 (CasesUsed #((LTC2)
		      NIL MakeBackLink))
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)
	 (UsesObj #((LOOPSTestSuper)
		    NIL AllowRemove))
	 (SubTestOf #((LTMethod)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LAVGetValue "OYR@@E~")

         (name #(LAVGetValue NIL RememberName))
	 (TestExpr (EQUAL (GetValue ($ LTCF1)
				    (QUOTE AV1))
			  (QUOTE LTC6)))
	 (TestDesc "Active Value: default GetFn")
	 (PreTestOf ?)
	 (SubTest #((LTP57 LTP54 LTP53)
		    NIL MakeBackLink) Tested? ?)
	 (PreTest ? Tested? ?)
	 (CasesUsed #((LTCF1)
		      NIL MakeBackLink))
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)
	 (UsesObj #((LOOPSTestClass6)
		    NIL AllowRemove))
	 (SubTestOf #((LTFGetValue)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP14 "ONR@@A")

         (name #(LTP14 NIL RememberName))
	 (ResetExp (SEND ($ LOOPSTestClass1)
			 Delete
			 (QUOTE IV)
			 (QUOTE GV2)))
	 (SetUp (SEND ($ LOOPSTestClass1)
		      Add
		      (QUOTE IV)
		      (QUOTE GV2)
		      (QUOTE LTP14)))
	 (TestExpr (EQUAL (GetValue ($ LTCA1)
				    (QUOTE GV2))
			  (QUOTE LTP14)))
	 (TestDesc "GetValue works for a newly added IV to class")
	 (SubTest #((LTP15)
		    NIL MakeBackLink) Tested? ?)
	 (PreTest #((LTMDeleteInClass LTMAdd)
		    BuildPreTest MakeBackLink) Tested? ?)
	 (CasesUsed #((LTCA1)
		      NIL MakeBackLink))
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)
	 (UsesObj #((LOOPSTestClass1)
		    NIL AllowRemove))
	 (SubTestOf #((LTFGetValue)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP12 "ONR@@A")

         (name #(LTP12 NIL RememberName))
	 (TestExpr (EQUAL (GetValue ($ LTC6)
				    (QUOTE GV1))
			  (QUOTE LTP12)))
	 (TestDesc "GetValue gets local over inherited")
	 (SubTest #((LTP13)
		    NIL MakeBackLink) Tested? ?)
	 (PreTest ? Tested? ?)
	 (CasesUsed #((LTC6)
		      NIL MakeBackLink))
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)
	 (UsesObj #((LOOPSTestCases)
		    NIL AllowRemove))
	 (SubTestOf #((LTFGetValue)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP10 "ONR@@A")

         (name #(LTP10 NIL RememberName))
	 (TestExpr (EQUAL (GetValue ($ LTC5)
				    (QUOTE GV1))
			  (QUOTE LTP10)))
	 (TestDesc "GetValue inherits value")
	 (SubTest #((LTP11)
		    NIL MakeBackLink) Tested? ?)
	 (PreTest ? Tested? ?)
	 (CasesUsed #((LTC5)
		      NIL MakeBackLink))
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)
	 (UsesObj #((LOOPSTestCases)
		    NIL AllowRemove))
	 (SubTestOf #((LTFGetValue)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP9 "ONR@@A")

         (name #(LTP9 NIL RememberName))
	 (TestExpr (EQUAL (GetValue ($ LTC4)
				    (QUOTE Var4)
				    (QUOTE Prop1))
			  2))
	 (TestDesc "GetValue a prop")
	 (PreTestOf ?)
	 (SubTest ? Tested? ?)
	 (PreTest ? Tested? ?)
	 (CasesUsed #((LTC4)
		      NIL MakeBackLink))
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)
	 (SubTestOf #((LTFGetValue)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LAVPutValue "OYR@@E
")

         (name #(LAVPutValue NIL RememberName))
	 (ResetExp (PutValue ($ LTCF2)
			     (QUOTE AV3)
			     (QUOTE LTC6)))
	 [SetUp (SETQ LTV21 (PutValue ($ LTCF2)
				      (QUOTE AV3)
				      (QUOTE LAVPut]
	 (TestExpr (ANDALL (EQUAL (GetValue ($ LTCF2)
					    (QUOTE AV3))
				  (QUOTE LAVPut))
			   (ATEST (EQUAL LTV21 (QUOTE LAVPut))
				  "PutValue returns newValue")))
	 (TestDesc "Active Value: Put using default fn")
	 (SubTest #((LTP58 LTP56 LTP55)
		    NIL MakeBackLink))
	 (PreTest #((LAVGetValue)
		    BuildPreTest MakeBackLink))
	 (CasesUsed #((LTCF2)
		      NIL MakeBackLink))
	 (UsesObj #((LOOPSTestClass6)
		    NIL AllowRemove))
	 (SubTestOf #((LTFPutValue)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP19 "ONR@@A
")

         (name #(LTP19 NIL RememberName))
	 [ResetExp (PROGN (SEND ($ LTCA4)
				Destroy)
			  (SEND ($ LOOPSTestClass1)
				Delete
				(QUOTE IV)
				(QUOTE NewPV1]
	 [SetUp (PROGN (SEND ($ LOOPSTestClass1)
			     New
			     (QUOTE LTCA4))
		       (SEND ($ LOOPSTestClass1)
			     Add
			     (QUOTE IV)
			     (QUOTE NewPV1)
			     (QUOTE DEF))
		       (SETQ LTV21 (PutValue ($ LTCA4)
					     (QUOTE NewPV1)
					     (QUOTE LTP19]
	 (TestExpr (ANDALL (EQUAL (GetValue ($ LTCA4)
					    (QUOTE NewPV1))
				  (QUOTE LTP19))
			   (ATEST (EQUAL LTV21 (QUOTE LTP19))
				  "PutValue returns newValue")))
	 (TestDesc "PutValue works for a newly added IV to class")
	 (SubTest #((LTP20)
		    NIL MakeBackLink) Tested? ?)
	 (PreTest #((LTMNew LTMDeleteInClass LTMAdd)
		    BuildPreTest MakeBackLink) Tested? ?)
	 (CasesUsed #((LTCA4)
		      NIL MakeBackLink))
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)
	 (UsesObj #((LOOPSTestClass1)
		    NIL AllowRemove))
	 (SubTestOf #((LTFPutValue)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP18 "ONR@@A
")

         (name #(LTP18 NIL RememberName))
	 (ResetExp (PutValue ($ LTCA3)
			     (QUOTE PV2)
			     NotSetValue
			     (QUOTE Prop1)))
	 [SetUp (SETQ LTV21 (PutValue ($ LTCA3)
				      (QUOTE PV2)
				      (QUOTE LTP18)
				      (QUOTE Prop1]
	 (TestExpr (ANDALL (EQUAL (GetValue ($ LTCA3)
					    (QUOTE PV2)
					    (QUOTE Prop1))
				  (QUOTE LTP18))
			   (ATEST (EQUAL LTV21 (QUOTE LTP18))
				  "PutValue returns newValue")))
	 (TestDesc "PutValue a prop on an inherited IV")
	 (PreTest #((LTP9)
		    BuildPreTest MakeBackLink))
	 (CasesUsed #((LTCA3)
		      NIL MakeBackLink))
	 (SubTestOf #((LTFPutValue)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP17 "ONR@@A
")

         (name #(LTP17 NIL RememberName))
	 (ResetExp (PutValue ($ LTCA3)
			     (QUOTE PV2)
			     NotSetValue))
	 [SetUp (SETQ LTV21 (PutValue ($ LTCA3)
				      (QUOTE PV2)
				      (QUOTE LTP17]
	 (TestExpr (ANDALL (EQUAL (GetValue ($ LTCA3)
					    (QUOTE PV2))
				  (QUOTE LTP17))
			   (ATEST (EQUAL LTV21 (QUOTE LTP17))
				  "PutValue returns newValue")))
	 (TestDesc "PutValue on an inherited IV")
	 (CasesUsed #((LTCA3)
		      NIL MakeBackLink))
	 (SubTestOf #((LTFPutValue)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP16 "ONR@@A
")

         (name #(LTP16 NIL RememberName))
	 (ResetExp (PutValue ($ LTCA2)
			     (QUOTE PV1)
			     (QUOTE LTP16)
			     NIL))
	 [SetUp (SETQ LTV21 (PutValue ($ LTCA2)
				      (QUOTE PV1)
				      (QUOTE LTP16)
				      (QUOTE Prop1]
	 (TestExpr (ANDALL (EQUAL (GetValue ($ LTCA2)
					    (QUOTE PV1)
					    (QUOTE Prop1))
				  (QUOTE LTP16))
			   (ATEST (EQUAL LTV21 (QUOTE LTP16))
				  "PutValue returns newValue")))
	 (TestDesc "PutValue a prop on a local IV")
	 (PreTest #((LTP9)
		    BuildPreTest MakeBackLink))
	 (CasesUsed #((LTCA2)
		      NIL MakeBackLink))
	 (SubTestOf #((LTFPutValue)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP57 "OYR@@E")

         (name #(LTP57 NIL RememberName))
	 (TestExpr (EQUAL (GetValue ($ LTCF1)
				    (QUOTE AV5))
			  (QUOTE LTP57)))
	 (TestDesc "Embedded Active Val: Get using user fn")
	 (SubTest ? Tested? ?)
	 (PreTest #((LTFGetLocalState)
		    BuildPreTest MakeBackLink) Tested? ?)
	 (CasesUsed #((LTCF1)
		      NIL MakeBackLink))
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)
	 (UsesObj #((LOOPSTestClass6)
		    NIL AllowRemove))
	 (SubTestOf #((LAVGetValue)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP54 "OYR@@E")

         (name #(LTP54 NIL RememberName))
	 (TestExpr (EQUAL (GetValue ($ LTCF1)
				    (QUOTE AV2))
			  (QUOTE LTC6)))
	 (TestDesc "Active Val: Get using user fn")
	 (SubTest ? Tested? ?)
	 (PreTest #((LTFGetLocalState)
		    BuildPreTest MakeBackLink) Tested? ?)
	 (CasesUsed #((LTCF1)
		      NIL MakeBackLink))
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)
	 (UsesObj #((LOOPSTestClass6)
		    NIL AllowRemove))
	 (SubTestOf #((LAVGetValue)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP53 "OYR@@E")

         (name #(LTP53 NIL RememberName))
	 (TestExpr (EQUAL (GetValue ($ LTCF1)
				    (QUOTE AV1)
				    (QUOTE Prop1))
			  (QUOTE LTCP6)))
	 (TestDesc "Active Value: Get prop using default fn")
	 (SubTest ? Tested? ?)
	 (PreTest ? Tested? ?)
	 (CasesUsed #((LTCF1)
		      NIL MakeBackLink))
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)
	 (UsesObj #((LOOPSTestClass6)
		    NIL AllowRemove))
	 (SubTestOf #((LAVGetValue)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP15 "ONR@@A!")

         (name #(LTP15 NIL RememberName))
	 (ResetExp (SEND ($ LOOPSTestClass1)
			 Delete
			 (QUOTE IV)
			 (QUOTE GV2)
			 (QUOTE Prop1)))
	 (SetUp (SEND ($ LOOPSTestClass1)
		      Add
		      (QUOTE IV)
		      (QUOTE GV2)
		      (QUOTE LTP15)
		      (QUOTE Prop1)))
	 (TestExpr (EQUAL (GetValue ($ LTCA1)
				    (QUOTE GV2)
				    (QUOTE Prop1))
			  (QUOTE LTP15)))
	 (TestDesc "GetValue works for a newly added IVProp to class")
	 (SubTest ? Tested? ?)
	 (PreTest #((LTMDeleteInClass LTMAdd)
		    BuildPreTest MakeBackLink) Tested? ?)
	 (CasesUsed #((LTCA1)
		      NIL MakeBackLink))
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)
	 (UsesObj #((LOOPSTestClass1)
		    NIL AllowRemove))
	 (SubTestOf #((LTP14)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP13 "ONR@@A")

         (name #(LTP13 NIL RememberName))
	 (TestExpr (EQUAL (GetValue ($ LTC6)
				    (QUOTE GV1)
				    (QUOTE Prop1))
			  (QUOTE LTP11)))
	 (TestDesc "GetValue inherits prop, though var has local value")
	 (SubTest ? Tested? ?)
	 (PreTest ? Tested? ?)
	 (CasesUsed #((LTC6)
		      NIL MakeBackLink))
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)
	 (SubTestOf #((LTP12)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP11 "ONR@@A")

         (name #(LTP11 NIL RememberName))
	 (TestExpr (EQUAL (GetValue ($ LTC5)
				    (QUOTE GV1)
				    (QUOTE Prop1))
			  (QUOTE LTP11)))
	 (TestDesc "GetValue inherits prop")
	 (SubTest ? Tested? ?)
	 (PreTest ? Tested? ?)
	 (CasesUsed #((LTC5)
		      NIL MakeBackLink))
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)
	 (UsesObj #((LOOPSTestCases)
		    NIL AllowRemove))
	 (SubTestOf #((LTP10)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP58 "OYR@@E")

         (name #(LTP58 NIL RememberName))
	 (ResetExp (PutValue ($ LTCF2)
			     (QUOTE AV6)
			     (QUOTE LTC6)))
	 [SetUp (SETQ LTV21 (PutValue ($ LTCF2)
				      (QUOTE AV6)
				      (QUOTE LTP58]
	 (TestExpr (ANDALL (EQUAL (GetValue ($ LTCF2)
					    (QUOTE AV6))
				  (QUOTE LTP58))
			   (ATEST (EQUAL LTV21 (QUOTE LTP58))
				  "PutValue returns newValue")))
	 (TestDesc "Embedded Active Val: Put using user fn")
	 (PreTest #((LTFPutLocalState)
		    BuildPreTest MakeBackLink))
	 (CasesUsed #((LTCF2)
		      NIL MakeBackLink))
	 (UsesObj #((LOOPSTestClass6)
		    NIL AllowRemove))
	 (SubTestOf #((LAVPutValue)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP56 "OYR@@E")

         (name #(LTP56 NIL RememberName))
	 (ResetExp (PutValue ($ LTCF2)
			     (QUOTE AV4)
			     (QUOTE LTC6)))
	 [SetUp (SETQ LTV21 (PutValue ($ LTCF2)
				      (QUOTE AV4)
				      (QUOTE LTP56]
	 (TestExpr (ANDALL (EQUAL (GetValue ($ LTCF2)
					    (QUOTE AV4))
				  (QUOTE LTP56))
			   (ATEST (EQUAL LTV21 (QUOTE LTP56))
				  "PutValue returns newValue")))
	 (TestDesc "Active Value: Put using user fn")
	 (PreTest #((LTFPutLocalState)
		    BuildPreTest MakeBackLink))
	 (CasesUsed #((LTCF2)
		      NIL MakeBackLink))
	 (UsesObj #((LOOPSTestClass6)
		    NIL AllowRemove))
	 (SubTestOf #((LAVPutValue)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP55 "OYR@@E")

         (name #(LTP55 NIL RememberName))
	 (ResetExp (PutValue ($ LTCF2)
			     (QUOTE AV3)
			     (QUOTE LTCP6)
			     (QUOTE Prop1)))
	 [SetUp (SETQ LTV21 (PutValue ($ LTCF2)
				      (QUOTE AV3)
				      (QUOTE LTP55)
				      (QUOTE Prop1]
	 (TestExpr (ANDALL (EQUAL (GetValue ($ LTCF2)
					    (QUOTE AV3)
					    (QUOTE Prop1))
				  (QUOTE LTP55))
			   (ATEST (EQUAL LTV21 (QUOTE LTP55))
				  "PutValue returns newValue")))
	 (TestDesc "Active Value: Put prop using default fn")
	 (CasesUsed #((LTCF2)
		      NIL MakeBackLink))
	 (UsesObj #((LOOPSTestClass6)
		    NIL AllowRemove))
	 (SubTestOf #((LAVPutValue)
		      NIL MakeBackLink))]


[DEFINST LOOPSTestPrimitive (LTP20 "ONR@@A
")

         (name #(LTP20 NIL RememberName))
	 [ResetExp (PROGN (SEND ($ LTCA5)
				Destroy)
			  (SEND ($ LOOPSTestClass1)
				Delete
				(QUOTE IV)
				(QUOTE SecondNewPV1]
	 [SetUp (PROGN (SEND ($ LOOPSTestClass1)
			     New
			     (QUOTE LTCA5))
		       (SEND ($ LOOPSTestClass1)
			     Add
			     (QUOTE IV)
			     (QUOTE SecondNewPV1)
			     (QUOTE Def))
		       (SEND ($ LOOPSTestClass1)
			     Add
			     (QUOTE IVProp)
			     (QUOTE SecondNewPV1)
			     (QUOTE Def)
			     (QUOTE Prop1))
		       (SETQ LTV21 (PutValue ($ LTCA5)
					     (QUOTE SecondNewPV1)
					     (QUOTE LTP20)
					     (QUOTE Prop1]
	 (TestExpr (ANDALL (EQUAL (GetValue ($ LTCA5)
					    (QUOTE SecondNewPV1)
					    (QUOTE Prop1))
				  (QUOTE LTP20))
			   (ATEST (EQUAL LTV21 (QUOTE LTP20))
				  "PutValue returns newValue")))
	 (TestDesc "PutValue: a prop on a newly added IV to class")
	 (SubTest ? Tested? ?)
	 (PreTest #(NIL BuildPreTest MakeBackLink) Tested? ?)
	 (CasesUsed #((LTCA5)
		      NIL MakeBackLink))
	 (SyntaxTest ? Tested? ?)
	 (AltTest ? Tested? ?)
	 (UsesObj #((LOOPSTestClass1)
		    NIL AllowRemove))
	 (SubTestOf #((LTP19)
		      NIL MakeBackLink))]


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