run BugBaneTests_ BugBaneTests_ $OK_ $BAD_ "abc"_ ""_ NIL_ TRUE_ FALSE_ 'C_ 1_ 0_ 1.2_ 1.2E7_ 177777777B_ IF TRUE THEN $OK ELSE $BAD_ IF FALSE THEN $BAD ELSE $OK_ IF NOT TRUE THEN $BAD ELSE $OK_ IF 1 = 1 THEN $OK ELSE $BAD_ IF 1 # 1 THEN $BAD ELSE $OK_ IF 1 = 2  THEN $BAD ELSE $OK_ IF 1 # 2 THEN $OK ELSE $BAD_ IF 1+2 = 3 THEN $OK ELSE $BAD_ IF 1-2 = -1 THEN $OK ELSE $BAD_ IF 2*3 = 6 THEN $OK ELSE $BAD_ IF 5 / 2 = 2 THEN $OK ELSE $BAD_ IF 5 MOD 2 = 1 THEN $OK ELSE $BAD_ IF MAX [5, 2, -1] = 5 THEN $OK ELSE $BAD_ IF MIN [5, 2, -1] = -1 THEN $OK ELSE $BAD_ IF MAX [5, 2.1, -1] = 5 THEN $OK ELSE $BAD_ IF MIN [5, 2.2, -1.1] = -1.1 THEN $OK ELSE $BAD_ IF 1 < 2 THEN $OK ELSE $BAD_ IF 2 < 1 THEN $BAD ELSE $OK_ IF 2 <= 3 THEN $OK ELSE $BAD_ IF 3 <= 2 THEN $BAD ELSE $OK_ IF 1 > 2 THEN $BAD ELSE $OK_ IF 2 > 1 THEN $OK ELSE $BAD_ IF 2 >= 3 THEN $BAD ELSE $OK_ IF 3 >= 2 THEN $OK ELSE $BAD_ IF 1.1 = 1.1 THEN $OK ELSE $BAD_ IF 1.1 # 1.1 THEN $BAD ELSE $OK_ IF 1.1 = 2.1 THEN $BAD ELSE $OK_ IF 1.1 # 2.1 THEN $OK ELSE $BAD_ IF 1.1 < 2 THEN $OK ELSE $BAD_ IF 2 < 1.1 THEN $BAD ELSE $OK_ IF 2.1 <= 3 THEN $OK ELSE $BAD_ IF 3 <= 2.1 THEN $BAD ELSE $OK_ IF 1.1 > 2 THEN $BAD ELSE $OK_ IF 2 > 1.1 THEN $OK ELSE $BAD_ IF 2.1 >= 3 THEN $BAD ELSE $OK_ IF 3 >= 2.1 THEN $OK ELSE $BAD_ IF - (1) = -1 THEN $OK ELSE $BAD_ IF - (1.2)  = -1.2 THEN $OK ELSE $BAD_ IF - (0.0) = 0.0 THEN $OK ELSE $BAD_ IF ABS[-1]  = 1 THEN $OK ELSE $BAD_ IF ABS[1]  = 1 THEN $OK ELSE $BAD_ IF ABS[1.2] = 1.2 THEN $OK ELSE $BAD_ IF ABS[-1.2] = 1.2 THEN $OK ELSE $BAD_ IF ABS[0.0] = 0.0 THEN $OK ELSE $BAD_ &r _ "abcdef"_ IF Rope.Fetch[&r, 3] = &r.Fetch[3] THEN $OK ELSE $BAD_ &list _ LIST["abc", 1, TRUE, $Foo]_ &cons _ CONS[&list.first, &list.rest]_ NEW[INT _ 1]_ NEW[ROPE _ "abc"]_ at1 _ ALL[[FALSE, TRUE]]_ &array _ AT3[[FALSE, TRUE], [FALSE, TRUE]]_ at3 _ [[FALSE, TRUE], [FALSE, TRUE]]_ &rec _ RT1[2, 400B, $bar, $bar]_ rt1 _ [2, 400B, $bar, $bar]_ VT1[FALSE, blue["sky"]]_ &st _ IO.ROS[]_ IO.PutF[&st, "null", [null[]], [null[]], [null[]], [null[]], [null[]]]_ &bogus _ AMTypes.Range[LOOPHOLE[TiogaOps.Ref]]_ TestTypeToName[&bogus]_ [] _ &world _ WorldVM.LocalWorld[]_ [] _ &Convert _ RTMiniModel.AcquireIRInstance["Convert", &world]_ [] _ &irt _ AMTypes.TVType[&Convert]_ &n _ AMTypes.NameToIndex[&irt, "DefaultUnsigned"]_ &tv _ AMTypes.IndexToTV[&Convert, &n]_ &union _ AMTypes.IndexToTV[&tv, 1]_ AMTypes.Variant[&union]_ objPtr _ @objArray[3]_ [] _ &world _ WorldVM.LocalWorld[]_ [] _ &GraphicsColor _ RTMiniModel.AcquireIRInstance["GraphicsColor", &world]_ [] _ &irt _ AMTypes.TVType[&GraphicsColor]_ &n _ AMTypes.NameToIndex[&irt, "red"]_ &tv _ AMTypes.IndexToTV[&GraphicsColor, &n]_ &green _ AMTypes.IndexToTV[&tv, 3]_ &text _ Convert.Text[rope["  -3  "]]_ &value _ Convert.Value[unsigned[0]]_ Convert.Parse[&text, &value]_ RTQuanta.PagesPerQuantum_ [] _ &world _ WorldVM.LocalWorld[]_ [] _ &TiogaOps _ RTMiniModel.AcquireIRInstance["TiogaOps", &world]_ [] _ &irt _ AMTypes.TVType[&TiogaOps]_ &n _ AMTypes.NameToIndex[&irt, "GetSelection"]_ &type _ AMTypes.IndexToType[&irt, &n]_ DefaultArgTest[]_ LOOPHOLE[NIL]_ gtv _ NIL_ ShowBoth[NIL]_ ovrimp_ ovr_ objPtr^_ seq3^_ vt1  
  BugBaneTests.cmRuss Atkinson, April 4, 1983 1:33 pmThis file contains tests that are currently known to fail, or have failed in the past.  Tests are commented if they loop or produce uncaught errors instead of just messages.*******************  Setup  ***************************************************************************  Syntax tree based tests (try to test most constructs)  ********************************************************simple constantsconditional stuffarithmetic operationsRope operationsConstructors of various flavors*******************************  CURRENTLY failing  *******************************bug in AMTypes.Assignbug in AMTypes.TypeToNamebug in AMTypes.Tag_ Convert.DefaultUnsignedthe next line raises ERROR in RTTypesBridgeImpl.TVToLCcoercion of LONG POINTER to POINTER*******************************  FORMERLY failing  *******************************bug in AMTypes.Lengthdoes not subtract out the base of the Tagbug in RTTypedVariablesImpl.BuildEmbeddedTV_ GraphicsColor.redthe next line raises ERROR in RTTypedVariablesImpl.BuildEmbeddedTVbug in AMVariablesImpl.DoAssign_ FileIO.Open["BugBaneTests.cm", read, none, 0, [juniper[]]]bug in AMTypes.DoAssign (assignment of RC-containing variant records)old bug in interface record stuffbug in AMTypes_ TiogaOps.GetSelection?the next line causes a bug in AMTypes which hangs the system_ &range _ AMTypes.Range[&type]bug in AMTypes.Assign (default values for zones don't work)LOOPHOLE[NIL]assignment of NIL to a REF ANY variable (TVSize[NIL] breaks)arrays of opaque values (loops in RTTypes.UnderType)_ RTOSImpl.discardedSpacesoverlaid records (Copy not allowed? how do we protect against dangling frames?)_ TestCopy[GVar["ovrimp"]]_ TestCopy[GVar["ovr"]]dereference of POINTER (just needs better error message, I think)sequences_ TestCopy[AMTypes.Referent[GVar["seq3"]]]gets Error[typeFault] in RTTypedVariablesImpl.Loopholevariant records_ TestCopy[GVar["vt1"]]gets Error[typeFault] in RTTypedVariablesImpl.LoopholeЭ╩в  Ш JЪЬЩJЪЬ$Щ$JШ JЪЬнЩнJШ JЪЬЩJЪЬЩЪЬЩJШJШЧJШ JЪЬ4Щ4JЪЬAЩAЪЬ4Щ4JШ ЪЬЩJШJШJШJШJШJШJШJШJШJШJШJШJШJШ ЧЩJШJШJШ JШ ЧЪЬЩJЪЬ╧kЬЭЬЭЬШJЪЬЭЬЭЬЭЬШJЪЬЭЬЭЬЭЬШJЪЬЭЬЭЬЭЬШJЪЬЭЬ	ЭЬЭЬШJЪЬЭЬ
ЭЬЭЬШ JЪЬЭЬ	ЭЬЭЬШJЪЬЭЬЭЬЭЬШ!JЪ	ЬЭЬЭЬЭЬЭЬШ#JЪ	ЬЭЬЭЬЭЬЭЬШ*JЪ	ЬЭЬЭЬЭЬЭЬШ+JЪ	ЬЭЬЭЬЭЬЭЬШ,JЪ	ЬЭЬЭЬЭЬЭЬШ1JЪЬЭЬЭЬЭЬШJЪЬЭЬЭЬЭЬШJЪЬЭЬЭЬЭЬШJЪЬЭЬЭЬЭЬШJЪЬЭЬЭЬЭЬШJЪЬЭЬЭЬЭЬШJЪЬЭЬЭЬЭЬШJЪЬЭЬЭЬЭЬШJЪЬЭЬЭЬЭЬШ!JЪЬЭЬЭЬЭЬШ!JЪЬЭЬЭЬЭЬШ!JЪЬЭЬЭЬЭЬШ!JЪЬЭЬ	ЭЬЭЬШJЪЬЭЬ	ЭЬЭЬШJЪЬЭЬ
ЭЬЭЬШ JЪЬЭЬ
ЭЬЭЬШ JЪЬЭЬ	ЭЬЭЬШJЪЬЭЬ	ЭЬЭЬШJЪЬЭЬ
ЭЬЭЬШ JЪЬЭЬ
ЭЬЭЬШ JЪЬЭЬЭЬЭЬШ"JЪЬЭЬЭЬЭЬШ'JЪЬЭЬЭЬЭЬШ%JЪ	ЬЭЬЭЬ
ЭЬЭЬШ$JЪ	ЬЭЬЭЬ	ЭЬЭЬШ#JЪ	ЬЭЬЭЬЭЬЭЬШ&JЪ	ЬЭЬЭЬЭЬЭЬШ'JЪ	ЬЭЬЭЬЭЬЭЬШ&JШ ЧЪЬЩJШJЪЬЭЬ!ЭЬЭЬШ7JШ ЧЩJЪЬ
ЭЬЭЬШ$JЪЬ
ЭЬШ'JЪЬЭЬЭЬШJЪЬЭЬЭЬ	ШJЪЬЭЬЭЬЭЬШJЪ	ЬЭЬЭЬЭЬЭЬШ,JЪ	Ь
ЭЬЭЬЭЬЭЬШ&JШ!JШJЪЬЭЬШJШ ЧЧJЩ JЪЬЩJЪЬЩЪЬЩJШ ЪЬЩJЪЬШJЪЬHШHJШ ЧЪЬЩJЪЬЭЬШ0JШЧJШ ЪЬЩJЪЬЩJШ$JШBJШ&JШ3JШ'JШ$JЪЬ6Щ6JШЧJШ ЪЬ#Щ#JШЧЧJШ JЪЬЩJЪЬЩЪЬЩJШ ЪЬЩJЪЬ)Щ)JЩ ЧЪЬ+Щ+JЪЬЩJШ$JШNJШ,JШ'JШ-JЪЬBЩBJШ$JШ ЧЪЬЩJЪЬ<Щ<JШ ЧЪЬEЩEJШ&JШ%JШJШ ЧЪЬ!Щ!JШJШ ЧЪЬЩJЪЬЩJШ$JШDJШ'JШ0JШ'JЪЬ<Щ<JЪЬЩJШ ЧЪЬ;Щ;JШJШ ЧЪЬЩJЪЬЭЬЭЬШJШ ЧЪЬ<Щ<JЪЬЭШJЪЬЭЬШJШ ЧЪЬ4Щ4JЪЬЩJШ ЧЪЬOЩOJШJШJЪЬЩJЪЬЩJШ ЧЪЬAЩAJШ	JШ ЧЪЬ	Щ	JШJЪЬ*Щ*JЪЬ6Щ6JШ ЧЪЬЩJШJЪЬЩJЪЬ6Щ6JЩ ЧЧЧ ЕЧ    ╨  |  