<> <> <> <<***************>> <<**** Setup ****>> <<***************>> run BugBaneTests _ BugBaneTests <<****************************************************>> <<**** Syntax tree based tests (try to test most constructs) ****>> <<****************************************************>> <> _ $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"]] <<>> <<***************************>> <<**** CURRENTLY failing ****>> <<***************************>> <> _ &st _ IO.ROS[] _ IO.PutF[&st, "null", [null[]], [null[]], [null[]], [null[]], [null[]]] <> _ &bogus _ AMTypes.Range[LOOPHOLE[TiogaOps.Ref]] _ TestTypeToName[&bogus] <> <<_ Convert.DefaultUnsigned>> _ [] _ &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] <<***************************>> <<**** FORMERLY failing ****>> <<***************************>> <> <> <<>> <> <<_ GraphicsColor.red>> _ [] _ &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] <> <<_ FileIO.Open["BugBaneTests.cm", read, none, 0, [juniper[]]]>> <> _ &text _ Convert.Text[rope[" -3 "]] _ &value _ Convert.Value[unsigned[0]] _ Convert.Parse[&text, &value] <> _ RTQuanta.PagesPerQuantum <> <<_ TiogaOps.GetSelection?>> _ [] _ &world _ WorldVM.LocalWorld[] _ [] _ &TiogaOps _ RTMiniModel.AcquireIRInstance["TiogaOps", &world] _ [] _ &irt _ AMTypes.TVType[&TiogaOps] _ &n _ AMTypes.NameToIndex[&irt, "GetSelection"] _ &type _ AMTypes.IndexToType[&irt, &n] <> <<_ &range _ AMTypes.Range[&type]>> <> _ DefaultArgTest[] <> _ LOOPHOLE[NIL] <> _ gtv _ NIL _ ShowBoth[NIL] <> <<_ RTOSImpl.discardedSpaces>> <> _ ovrimp _ ovr <<_ TestCopy[GVar["ovrimp"]]>> <<_ TestCopy[GVar["ovr"]]>> <> _ objPtr^ <> _ seq3^ <<_ TestCopy[AMTypes.Referent[GVar["seq3"]]]>> <> <> _ vt1 <<_ TestCopy[GVar["vt1"]]>> <> <<>>