fcl-js/tests/tcparser.pp

168   AssertEquals(Msg+'Identifier has correct name',S2,S1);
238   AssertEquals('Expression value type correct', jstNumber,TJSLiteral(X.A).Value.ValueType);
239   AssertEquals('Expression value correct', 1.0,TJSLiteral(X.A).Value.AsNumber);
253   AssertEquals('Expression value type correct', jstString,TJSLiteral(X.A).Value.ValueType);
254   AssertEquals('Expression value correct', 'string',TJSLiteral(X.A).Value.AsString);
268   AssertEquals('Expression value type correct', jstBoolean,TJSLiteral(X.A).Value.ValueType);
269   AssertEquals('Expression value correct', False, TJSLiteral(X.A).Value.AsBoolean);
295     AssertEquals('Expression value type correct', jstNull,TJSLiteral(X.A).Value.ValueType);
296     AssertEquals('Expression value correct', True, TJSLiteral(X.A).Value.IsNull);
312   AssertEquals('Expression LHS name correct', 'a',TJSPrimaryExpressionIdent(SA.LHS).Name);
315   AssertEquals('Expression value type correct', jstNumber,TJSLiteral(SA.Expr).Value.ValueType);
316   AssertEquals('Expression value correct', 1.0, TJSLiteral(SA.Expr).Value.AsNumber);
332   AssertEquals('Expression LHS name correct', 'a',TJSPrimaryExpressionIdent(SA.LHS).Name);
335   AssertEquals('Expression value type correct', jstString,TJSLiteral(SA.Expr).Value.ValueType);
336   AssertEquals('Expression value correct', 'string', TJSLiteral(SA.Expr).Value.AsString);
352   AssertEquals('Expression LHS name correct', 'a',TJSPrimaryExpressionIdent(SA.LHS).Name);
355   AssertEquals('Expression value type correct', jstBoolean,TJSLiteral(SA.Expr).Value.ValueType);
356   AssertEquals('Expression value correct', False, TJSLiteral(SA.Expr).Value.AsBoolean);
371   AssertEquals('Expression LHS name correct', 'a',TJSPrimaryExpressionIdent(SA.LHS).Name);
374   AssertEquals('Expression value type correct', jstBoolean,TJSLiteral(SA.Expr).Value.ValueType);
375   AssertEquals('Expression value correct', True, TJSLiteral(SA.Expr).Value.AsBoolean);
391   AssertEquals('Expression LHS name correct', 'a',TJSPrimaryExpressionIdent(SA.LHS).Name);
394   AssertEquals('Expression value type correct', jstNull,TJSLiteral(SA.Expr).Value.ValueType);
395   AssertEquals('Expression value correct', True, TJSLiteral(SA.Expr).Value.IsNull);
410   AssertEquals('Expression LHS name correct', 'a',TJSPrimaryExpressionIdent(SA.LHS).Name);
413   AssertEquals('Expression value type correct', 'b',TJSPrimaryExpressionIdent(SA.Expr).Name);
430   AssertEquals('Expression LHS name correct', 'a',TJSPrimaryExpressionIdent(SA.LHS).Name);
433   AssertEquals('Expression value type correct', jstNumber,TJSLiteral(SA.Expr).Value.ValueType);
434   AssertEquals('Expression value correct', 1.0, TJSLiteral(SA.Expr).Value.AsNumber);
451   AssertEquals('Expression LHS name correct', 'a',TJSPrimaryExpressionIdent(SA.LHS).Name);
454   AssertEquals('Expression value type correct', jstNumber,TJSLiteral(SA.Expr).Value.ValueType);
455   AssertEquals('Expression value correct', 1.0, TJSLiteral(SA.Expr).Value.AsNumber);
472   AssertEquals('Expression LHS name correct', 'a',TJSPrimaryExpressionIdent(SA.LHS).Name);
475   AssertEquals('Expression value type correct', jstNumber,TJSLiteral(SA.Expr).Value.ValueType);
476   AssertEquals('Expression value correct', 1.0, TJSLiteral(SA.Expr).Value.AsNumber);
493   AssertEquals('Expression LHS name correct', 'a',TJSPrimaryExpressionIdent(SA.LHS).Name);
496   AssertEquals('Expression value type correct', jstNumber,TJSLiteral(SA.Expr).Value.ValueType);
497   AssertEquals('Expression value correct', 1.0, TJSLiteral(SA.Expr).Value.AsNumber);
514   AssertEquals('Expression LHS name correct', 'a',TJSPrimaryExpressionIdent(SA.LHS).Name);
517   AssertEquals('Expression value type correct', jstNumber,TJSLiteral(SA.Expr).Value.ValueType);
518   AssertEquals('Expression value correct', 1.0, TJSLiteral(SA.Expr).Value.AsNumber);
535   AssertEquals('Expression LHS name correct', 'a',TJSPrimaryExpressionIdent(SA.LHS).Name);
538   AssertEquals('Expression value type correct', jstNumber,TJSLiteral(SA.Expr).Value.ValueType);
539   AssertEquals('Expression value correct', 1.0, TJSLiteral(SA.Expr).Value.AsNumber);
556   AssertEquals('Expression LHS name correct', 'a',TJSPrimaryExpressionIdent(SA.LHS).Name);
559   AssertEquals('Expression value type correct', jstNumber,TJSLiteral(SA.Expr).Value.ValueType);
560   AssertEquals('Expression value correct', 1.0, TJSLiteral(SA.Expr).Value.AsNumber);
577   AssertEquals('Expression LHS name correct', 'a',TJSPrimaryExpressionIdent(SA.LHS).Name);
580   AssertEquals('Expression value type correct', jstNumber,TJSLiteral(SA.Expr).Value.ValueType);
581   AssertEquals('Expression value correct', 1.0, TJSLiteral(SA.Expr).Value.AsNumber);
598   AssertEquals('Expression LHS name correct', 'a',TJSPrimaryExpressionIdent(SA.LHS).Name);
601   AssertEquals('Expression value type correct', jstNumber,TJSLiteral(SA.Expr).Value.ValueType);
602   AssertEquals('Expression value correct', 1.0, TJSLiteral(SA.Expr).Value.AsNumber);
619   AssertEquals('Expression LHS name correct', 'a',TJSPrimaryExpressionIdent(SA.LHS).Name);
622   AssertEquals('Expression value type correct', jstNumber,TJSLiteral(SA.Expr).Value.ValueType);
623   AssertEquals('Expression value correct', 1.0, TJSLiteral(SA.Expr).Value.AsNumber);
640   AssertEquals('Expression LHS name correct', 'a',TJSPrimaryExpressionIdent(SA.LHS).Name);
643   AssertEquals('Expression value type correct', jstNumber,TJSLiteral(SA.Expr).Value.ValueType);
644   AssertEquals('Expression value correct', 1.0, TJSLiteral(SA.Expr).Value.AsNumber);
664   AssertEquals('Expression left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
665   AssertEquals('Expression left operand value correct', 1.0, TJSLiteral(E.A).Value.AsNumber);
667   AssertEquals('Expression left operand type correct', jstNumber, TJSLiteral(E.B).Value.ValueType);
668   AssertEquals('Expression right operand value correct', 2.0,TJSLiteral(E.B).Value.AsNumber);
687   AssertEquals('Expression left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
688   AssertEquals('Expression left operand value correct', 1.0, TJSLiteral(E.A).Value.AsNumber);
690   AssertEquals('Expression left operand type correct', jstNumber, TJSLiteral(E.B).Value.ValueType);
691   AssertEquals('Expression right operand value correct', 2.0,TJSLiteral(E.B).Value.AsNumber);
711   AssertEquals('Expression left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
712   AssertEquals('Expression left operand value correct', 1.0, TJSLiteral(E.A).Value.AsNumber);
714   AssertEquals('Expression left operand type correct', jstNumber, TJSLiteral(E.B).Value.ValueType);
715   AssertEquals('Expression right operand value correct', 2.0,TJSLiteral(E.B).Value.AsNumber);
734   AssertEquals('Expression left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
735   AssertEquals('Expression left operand value correct', 1.0, TJSLiteral(E.A).Value.AsNumber);
737   AssertEquals('Expression left operand type correct', jstNumber, TJSLiteral(E.B).Value.ValueType);
738   AssertEquals('Expression right operand value correct', 2.0,TJSLiteral(E.B).Value.AsNumber);
757   AssertEquals('Expression left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
758   AssertEquals('Expression left operand value correct', 1.0, TJSLiteral(E.A).Value.AsNumber);
760   AssertEquals('Expression left operand type correct', jstNumber, TJSLiteral(E.B).Value.ValueType);
761   AssertEquals('Expression right operand value correct', 2.0,TJSLiteral(E.B).Value.AsNumber);
780   AssertEquals('Expression left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
781   AssertEquals('Expression left operand value correct', 1.0, TJSLiteral(E.A).Value.AsNumber);
783   AssertEquals('Expression left operand type correct', jstNumber, TJSLiteral(E.B).Value.ValueType);
784   AssertEquals('Expression right operand value correct', 2.0,TJSLiteral(E.B).Value.AsNumber);
803   AssertEquals('Expression left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
804   AssertEquals('Expression left operand value correct', 1.0, TJSLiteral(E.A).Value.AsNumber);
806   AssertEquals('Expression left operand type correct', jstNumber, TJSLiteral(E.B).Value.ValueType);
807   AssertEquals('Expression right operand value correct', 2.0,TJSLiteral(E.B).Value.AsNumber);
826   AssertEquals('Expression left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
827   AssertEquals('Expression left operand value correct', 1.0, TJSLiteral(E.A).Value.AsNumber);
829   AssertEquals('Expression left operand type correct', jstNumber, TJSLiteral(E.B).Value.ValueType);
830   AssertEquals('Expression right operand value correct', 2.0,TJSLiteral(E.B).Value.AsNumber);
847   AssertEquals('Expression operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
848   AssertEquals('Expression operand value correct', 1.0, TJSLiteral(E.A).Value.AsNumber);
865   AssertEquals('Expression operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
866   AssertEquals('Expression operand value correct', 1.0, TJSLiteral(E.A).Value.AsNumber);
884   AssertEquals('Expression operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
885   AssertEquals('Expression operand value correct', 1.0, TJSLiteral(E.A).Value.AsNumber);
904   AssertEquals('Expression operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
905   AssertEquals('Expression operand value correct', 1.0, TJSLiteral(E.A).Value.AsNumber);
929 …AssertEquals('Multiplication left operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueTyp…
930   AssertEquals('Multiplication left operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
931 …AssertEquals('Multiplication right operand type correct', jstNumber, TJSLiteral(R.B).Value.ValueTy…
932   AssertEquals('Multiplication right operand value correct', 3.0, TJSLiteral(R.B).Value.AsNumber);
934   AssertEquals('Addition left operand type correct', jstNumber, TJSLiteral(E.B).Value.ValueType);
935   AssertEquals('Expression right operand value correct', 4.0,TJSLiteral(E.B).Value.AsNumber);
960 …AssertEquals('Multiplication left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueTyp…
961   AssertEquals('Multiplication left operand value correct', 2.0, TJSLiteral(E.A).Value.AsNumber);
962   AssertEquals('Addition left operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueType);
963   AssertEquals('Multiplication right operand value correct', 3.0, TJSLiteral(R.A).Value.AsNumber);
965   AssertEquals('Addition left operand type correct', jstNumber, TJSLiteral(R.B).Value.ValueType);
966   AssertEquals('Addition right operand value correct', 4.0,TJSLiteral(R.B).Value.AsNumber);
991 …AssertEquals('Multiplication left operand type correct', jstNumber, TJSLiteral(E.B).Value.ValueTyp…
992   AssertEquals('Multiplication left operand value correct', 2.0, TJSLiteral(E.B).Value.AsNumber);
993   AssertEquals('Addition left operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueType);
994   AssertEquals('Multiplication right operand value correct', 3.0, TJSLiteral(R.A).Value.AsNumber);
996   AssertEquals('Addition left operand type correct', jstNumber, TJSLiteral(R.B).Value.ValueType);
997   AssertEquals('Addition right operand value correct', 4.0,TJSLiteral(R.B).Value.AsNumber);
1035 …AssertEquals('Multiplication left operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueTyp…
1036   AssertEquals('Multiplication left operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
1037 …AssertEquals('Multiplication right operand type correct', jstNumber, TJSLiteral(R.B).Value.ValueTy…
1038   AssertEquals('Multiplication right operand value correct', 3.0, TJSLiteral(R.B).Value.AsNumber);
1040   AssertEquals('Addition left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
1041   AssertEquals('Addition left operand value correct', 4.0,TJSLiteral(E.A).Value.AsNumber);
1066 …AssertEquals('Multiplication left operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueTyp…
1067   AssertEquals('Multiplication left operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
1068 …AssertEquals('Multiplication right operand type correct', jstNumber, TJSLiteral(R.B).Value.ValueTy…
1069   AssertEquals('Multiplication right operand value correct', 3.0, TJSLiteral(R.B).Value.AsNumber);
1071 …AssertEquals('subtraction right operand type correct', jstNumber, TJSLiteral(E.B).Value.ValueType);
1072   AssertEquals('subtraction right operand value correct', 4.0,TJSLiteral(E.B).Value.AsNumber);
1096 …AssertEquals('Multiplication left operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueTyp…
1097   AssertEquals('Multiplication left operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
1098 …AssertEquals('Multiplication right operand type correct', jstNumber, TJSLiteral(R.B).Value.ValueTy…
1099   AssertEquals('Multiplication right operand value correct', 3.0, TJSLiteral(R.B).Value.AsNumber);
1101   AssertEquals('Subtraction left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
1102   AssertEquals('Subtraction left operand value correct', 4.0,TJSLiteral(E.A).Value.AsNumber);
1126   AssertEquals('Div left operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueType);
1127   AssertEquals('Div left operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
1128   AssertEquals('Div right operand type correct', jstNumber, TJSLiteral(R.B).Value.ValueType);
1129   AssertEquals('Div right operand value correct', 3.0, TJSLiteral(R.B).Value.AsNumber);
1131   AssertEquals('Addition right operand type correct', jstNumber, TJSLiteral(E.B).Value.ValueType);
1132   AssertEquals('Addition right operand value correct', 4.0,TJSLiteral(E.B).Value.AsNumber);
1157   AssertEquals('Div left operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueType);
1158   AssertEquals('Div left operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
1159   AssertEquals('Div right operand type correct', jstNumber, TJSLiteral(R.B).Value.ValueType);
1160   AssertEquals('Div right operand value correct', 3.0, TJSLiteral(R.B).Value.AsNumber);
1162   AssertEquals('Addition left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
1163   AssertEquals('Addition left operand value correct', 4.0,TJSLiteral(E.A).Value.AsNumber);
1187   AssertEquals('mod left operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueType);
1188   AssertEquals('mod left operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
1189   AssertEquals('mod right operand type correct', jstNumber, TJSLiteral(R.B).Value.ValueType);
1190   AssertEquals('mod right operand value correct', 3.0, TJSLiteral(R.B).Value.AsNumber);
1192   AssertEquals('Addition right operand type correct', jstNumber, TJSLiteral(E.B).Value.ValueType);
1193   AssertEquals('Addition right operand value correct', 4.0,TJSLiteral(E.B).Value.AsNumber);
1218   AssertEquals('Mod left operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueType);
1219   AssertEquals('Mod left operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
1220   AssertEquals('Mod right operand type correct', jstNumber, TJSLiteral(R.B).Value.ValueType);
1221   AssertEquals('Mod right operand value correct', 3.0, TJSLiteral(R.B).Value.AsNumber);
1223   AssertEquals('Addition left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
1224   AssertEquals('Addition left operand value correct', 4.0,TJSLiteral(E.A).Value.AsNumber);
1247   AssertEquals('++ operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueType);
1248   AssertEquals('++ operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
1250   AssertEquals('Addition left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
1251   AssertEquals('Addition left operand value correct', 4.0,TJSLiteral(E.A).Value.AsNumber);
1273   AssertEquals('-- operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueType);
1274   AssertEquals('-- operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
1276   AssertEquals('Addition left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
1277   AssertEquals('Addition left operand value correct', 4.0,TJSLiteral(E.A).Value.AsNumber);
1300   AssertEquals('++ operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueType);
1301   AssertEquals('++ operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
1303 …AssertEquals('Multiplication left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueTyp…
1304   AssertEquals('Multiplication left operand value correct', 4.0,TJSLiteral(E.A).Value.AsNumber);
1326   AssertEquals('-- operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueType);
1327   AssertEquals('-- operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
1329 …AssertEquals('Multiplication left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueTyp…
1330   AssertEquals('Multiplication left operand value correct', 4.0,TJSLiteral(E.A).Value.AsNumber);
1353   AssertEquals('++ operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueType);
1354   AssertEquals('++ operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
1356   AssertEquals('Addition left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
1357   AssertEquals('Addition left operand value correct', 4.0,TJSLiteral(E.A).Value.AsNumber);
1380     AssertEquals('inv operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueType);
1381     AssertEquals('inv operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
1383     AssertEquals('Addition left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
1384     AssertEquals('Addition left operand value correct', 4.0,TJSLiteral(E.A).Value.AsNumber);
1407   AssertEquals('Inv operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueType);
1408   AssertEquals('Inv operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
1410 …AssertEquals('Multiplication left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueTyp…
1411   AssertEquals('Multiplication left operand value correct', 4.0,TJSLiteral(E.A).Value.AsNumber);
1434     AssertEquals('Not operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueType);
1435     AssertEquals('Not operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
1437     AssertEquals('Addition left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
1438     AssertEquals('Addition left operand value correct', 4.0,TJSLiteral(E.A).Value.AsNumber);
1455   AssertEquals('Function name correct','abc',TJSPrimaryExpressionIdent(C.Expr).Name);
1472   AssertEquals('Function name correct','abc',TJSPrimaryExpressionIdent(C.Expr).Name);
1477   AssertEquals('First argument name correct','d',TJSPrimaryExpressionIdent(E).Name);
1494   AssertEquals('Function name correct','abc',TJSPrimaryExpressionIdent(C.Expr).Name);
1499   AssertEquals('First argument name correct','d',TJSPrimaryExpressionIdent(E).Name);
1503   AssertEquals('Second argument name correct','e',TJSPrimaryExpressionIdent(E).Name);
1517   AssertEquals('Member name operand type correct', jstNumber, TJSLiteral(B.Name).Value.ValueType);
1518   AssertEquals('Member name operand value correct', 1.0, TJSLiteral(B.Name).Value.AsNumber);
1520   AssertEquals('Array name correct','A',TJSPrimaryExpressionIdent(B.Mexpr).Name);
1534   AssertEquals('Member name operand type correct', jstString, TJSLiteral(B.Name).Value.ValueType);
1535   AssertEquals('Member name operand value correct', 'propname', TJSLiteral(B.Name).Value.AsString);
1537   AssertEquals('Array name correct','A',TJSPrimaryExpressionIdent(B.Mexpr).Name);
1552   AssertEquals('Member name identifier correct', 'B', TJSPrimaryExpressionIdent(B.Name).Name);
1554   AssertEquals('Array name correct','A',TJSPrimaryExpressionIdent(B.Mexpr).Name);
1568   AssertEquals('variable name correct registered', 'a', V.Name);
1585   AssertEquals('variable name correct registered', 'a', V.name);
1589   AssertEquals('variable name correct registered', 'b', V.Name);
1604   AssertEquals('variable name correct registered', 'a', V.Name);
1607   AssertEquals('Member name identifier correct', 'b', TJSPrimaryExpressionIdent(V.init).Name);
1622   AssertEquals('variable name correct registered', 'a', V.Name);
1627   AssertEquals('variable name correct registered', 'c', V.Name);
1630   AssertEquals('Member name identifier correct', 'b', TJSPrimaryExpressionIdent(V.init).Name);
2146   AssertEquals('Expression value type correct', jstNumber,L.Value.ValueType);
2147   AssertEquals('Expression value correct', 123,L.Value.AsNumber);
2166   AssertEquals('Have correct label','loc',LS.TheLabel.Name);
2184   AssertEquals('Expression value type correct', jstNumber,L.Value.ValueType);
2185   AssertEquals('Expression value correct', 123,L.Value.AsNumber);
2201   AssertEquals('Have correct (empty) label','',C.TargetName);
2219   AssertEquals('Have correct  label','a',C.TargetName);
2236   AssertEquals('Have correct  label','a',C.TargetName);
2336   AssertEquals('Have correct (empty) label','',C.TargetName);
2386   AssertEquals('Not operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueType);
2387   AssertEquals('Not operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
2389 …AssertEquals('Multiplication left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueTyp…
2390   AssertEquals('Multiplication left operand value correct', 4.0,TJSLiteral(E.A).Value.AsNumber);
2412 …AssertEquals('Multiplication left operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueTyp…
2413   AssertEquals('Multiplication left operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
2415   AssertEquals('Addition left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
2416   AssertEquals('Expression right operand value correct', 4.0,TJSLiteral(E.A).Value.AsNumber);
2439 …AssertEquals('Multiplication left operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueTyp…
2440   AssertEquals('Multiplication left operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
2442   AssertEquals('Addition left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
2443   AssertEquals('Expression right operand value correct', 4.0,TJSLiteral(E.A).Value.AsNumber);
2465 …AssertEquals('Multiplication left operand type correct', jstNumber, TJSLiteral(R.A).Value.ValueTyp…
2466   AssertEquals('Multiplication left operand value correct', 2.0, TJSLiteral(R.A).Value.AsNumber);
2468   AssertEquals('Addition left operand type correct', jstNumber, TJSLiteral(E.A).Value.ValueType);
2469   AssertEquals('Expression right operand value correct', 4.0,TJSLiteral(E.A).Value.AsNumber);
2483   AssertEquals('Expression value type correct', jstBoolean,TJSLiteral(X.A).Value.ValueType);
2484   AssertEquals('Expression value correct', True, TJSLiteral(X.A).Value.AsBoolean);