Mirrors/webamp
1
0
Fork 0
mirror of https://github.com/captbaritone/webamp.git synced 2026-07-22 09:37:17 +00:00
Code Issues Projects Releases Wiki Activity

add basic maki operator tests (#802)

Browse source
This commit is contained in:
jberg 2019-07-09 20:36:45 -07:00 • committed by Jordan Eldredge
parent eae24a1263
commit 10fa928c1e
8 changed files with 1108 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

277
experiments/modern/src/maki-interpreter/reference/maki_compiler/v1.1.1.b3 (Winamp 3.0 build 488d)/basicTests.m Executable file
View file

@ -0,0 +1,277 @@
#include "lib/std.mi"
System.onScriptLoaded()
{
Int sum = 2 + 2;
if (sum == 4) {
messageBox("2 + 2 = 4", "Success", 0, "");
} else {
messageBox("2 + 2 = 4", "Fail", 1, "");
}
Float sumFloat = 2.2 + 2.2;
if (sumFloat == 4.4) {
messageBox("2.2 + 2.2 = 4.4", "Success", 0, "");
} else {
messageBox("2.2 + 2.2 = 4.4", "Fail", 1, "");
}
if (3 - 2 == 1) {
messageBox("3 - 2 = 1", "Success", 0, "");
} else {
messageBox("3 - 2 = 1", "Fail", 1, "");
}
if (3 - -2 == 5) {
messageBox("3 - -2 = 5", "Success", 0, "");
} else {
messageBox("3 - -2 = 5", "Fail", 1, "");
}
if (3.5 - 2 == 1.5) {
messageBox("3.5 - 2 = 1.5", "Success", 0, "");
} else {
messageBox("3.5 - 2 = 1.5", "Fail", 1, "");
}
if (2 * 3 == 6) {
messageBox("2 * 3 = 6", "Success", 0, "");
} else {
messageBox("2 * 3 = 6", "Fail", 1, "");
}
if (2 * 1.5 == 3) {
messageBox("2 * 1.5 = 3", "Success", 0, "");
} else {
messageBox("2 * 1.5 = 3", "Fail", 1, "");
}
if (6 / 3 == 2) {
messageBox("6 / 3 = 2", "Success", 0, "");
} else {
messageBox("6 / 3 = 2", "Fail", 1, "");
}
if (3 / 2 == 1.5) {
messageBox("3 / 2 = 1.5", "Success", 0, "");
} else {
messageBox("3 / 2 = 1.5", "Fail", 1, "");
}
if (5 % 2 == 1) {
messageBox("5 % 2 = 1", "Success", 0, "");
} else {
messageBox("5 % 2 = 1", "Fail", 1, "");
}
if (5.5 % 2 == 1) {
messageBox("5.5 % 2 = 1 (implict casting)", "Success", 0, "");
} else {
messageBox("5.5 % 2 = 1 (implict casting)", "Fail", 1, "");
}
if (3 & 2 == 2) {
messageBox("3 & 2 = 2", "Success", 0, "");
} else {
messageBox("3 & 2 = 2", "Fail", 1, "");
}
if (3 | 2 == 3) {
messageBox("3 | 2 = 3", "Success", 0, "");
} else {
messageBox("3 | 2 = 3", "Fail", 1, "");
}
if (2 << 1 == 4) {
messageBox("2 << 1 = 4", "Success", 0, "");
} else {
messageBox("2 << 1 = 4", "Fail", 1, "");
}
if (4 >> 1 == 2) {
messageBox("4 >> 1 = 2", "Success", 0, "");
} else {
messageBox("4 >> 1 = 2", "Fail", 1, "");
}
if (2.5 << 1 == 4) {
messageBox("2.5 << 1 = 4 (implict casting)", "Success", 0, "");
} else {
messageBox("2.5 << 1 = 4 (implict casting)", "Fail", 1, "");
}
if (4.5 >> 1 == 2) {
messageBox("4.5 >> 1 = 2 (implict casting)", "Success", 0, "");
} else {
messageBox("4.5 >> 1 = 2 (implict casting)", "Fail", 1, "");
}
Int one = 1;
Int two = 2;
if (one != two) {
messageBox("1 != 2", "Success", 0, "");
} else {
messageBox("1 != 2", "Fail", 1, "");
}
if (one < two) {
messageBox("1 < 2", "Success", 0, "");
} else {
messageBox("1 < 2", "Fail", 1, "");
}
if (two > one) {
messageBox("2 > 1", "Success", 0, "");
} else {
messageBox("2 > 1", "Fail", 1, "");
}
if (sum == sumFloat) {
messageBox("[int] 4 = [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("[int] 4 = [float] 4.4 (autocasting types)", "Fail", 1, "");
}
if (sum <= sumFloat) {
messageBox("[int] 4 <= [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("[int] 4 <= [float] 4.4 (autocasting types)", "Fail", 1, "");
}
if (sum >= sumFloat) {
messageBox("[int] 4 >= [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("[int] 4 >= [float] 4.4 (autocasting types)", "Fail", 1, "");
}
if (!(sum < sumFloat)) {
messageBox("! [int] 4 < [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("! [int] 4 < [float] 4.4 (autocasting types)", "Fail", 1, "");
}
if (!(sum > sumFloat)) {
messageBox("! [int] 4 > [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("! [int] 4 > [float] 4.4 (autocasting types)", "Fail", 1, "");
}
Int tempOne = 1;
if (tempOne++ == one) {
messageBox("1++ = 1", "Success", 0, "");
} else {
messageBox("1++ = 1", "Fail", 1, "");
}
if (tempOne == two) {
messageBox("1++ (after incremeent) = 2", "Success", 0, "");
} else {
messageBox("1++ (after incremeent) = 2", "Fail", 1, "");
}
tempOne = 1;
Int tempTwo = 2;
if (tempTwo-- == two) {
messageBox("2-- = 2", "Success", 0, "");
} else {
messageBox("2-- = 2", "Fail", 1, "");
}
if (tempTwo-- == one) {
messageBox("2-- (after decrement) = 1", "Success", 0, "");
} else {
messageBox("2-- (after decrement) = 1", "Fail", 1, "");
}
tempTwo = 2;
if (++tempOne == 2) {
messageBox("++1 = 2", "Success", 0, "");
} else {
messageBox("++1 = 2", "Fail", 1, "");
}
tempOne = 1;
// Fails to compile with: "Expression: cb != NULL"
// ????
// if (--tempOne == 0) {
// messageBox("++1 = 2", "Success", 0, "");
// } else {
// messageBox("++1 = 2", "Fail", 1, "");
// }
Boolean f = false;
if (!f) {
messageBox("!f", "Success", 0, "");
} else {
messageBox("!f", "Fail", 1, "");
}
if (!0) {
messageBox("!0", "Success", 0, "");
} else {
messageBox("!0", "Fail", 1, "");
}
if (!1 == false) {
messageBox("!1 == false", "Success", 0, "");
} else {
messageBox("!1 == false", "Fail", 1, "");
}
if (1 == true) {
messageBox("1 == true", "Success", 0, "");
} else {
messageBox("1 == true", "Fail", 1, "");
}
if (0 == false) {
messageBox("0 == false", "Success", 0, "");
} else {
messageBox("0 == false", "Fail", 1, "");
}
if (true && true) {
messageBox("true && true", "Success", 0, "");
} else {
messageBox("true && true", "Fail", 1, "");
}
if (!(true && false)) {
messageBox("!(true && false)", "Success", 0, "");
} else {
messageBox("!(true && false)", "Fail", 1, "");
}
if (!(false && false)) {
messageBox("!(false && false)", "Success", 0, "");
} else {
messageBox("!(false && false)", "Fail", 1, "");
}
if (true || true) {
messageBox("true || true", "Success", 0, "");
} else {
messageBox("true || true", "Fail", 1, "");
}
if (true || false) {
messageBox("true || false", "Success", 0, "");
} else {
messageBox("true || false", "Fail", 1, "");
}
if (false || true) {
messageBox("false || true", "Success", 0, "");
} else {
messageBox("false || true", "Fail", 1, "");
}
if (!(false || false)) {
messageBox("!(false || false)", "Success", 0, "");
} else {
messageBox("!(false || false)", "Fail", 1, "");
}
}

BIN
experiments/modern/src/maki-interpreter/reference/maki_compiler/v1.1.1.b3 (Winamp 3.0 build 488d)/basicTests.maki Executable file
View file

Binary file not shown.

277
experiments/modern/src/maki-interpreter/reference/maki_compiler/v1.1.1.b3 (Winamp 3.0 full)/basicTests.m Executable file
View file

@ -0,0 +1,277 @@
#include "lib/std.mi"
System.onScriptLoaded()
{
Int sum = 2 + 2;
if (sum == 4) {
messageBox("2 + 2 = 4", "Success", 0, "");
} else {
messageBox("2 + 2 = 4", "Fail", 1, "");
}
Float sumFloat = 2.2 + 2.2;
if (sumFloat == 4.4) {
messageBox("2.2 + 2.2 = 4.4", "Success", 0, "");
} else {
messageBox("2.2 + 2.2 = 4.4", "Fail", 1, "");
}
if (3 - 2 == 1) {
messageBox("3 - 2 = 1", "Success", 0, "");
} else {
messageBox("3 - 2 = 1", "Fail", 1, "");
}
if (3 - -2 == 5) {
messageBox("3 - -2 = 5", "Success", 0, "");
} else {
messageBox("3 - -2 = 5", "Fail", 1, "");
}
if (3.5 - 2 == 1.5) {
messageBox("3.5 - 2 = 1.5", "Success", 0, "");
} else {
messageBox("3.5 - 2 = 1.5", "Fail", 1, "");
}
if (2 * 3 == 6) {
messageBox("2 * 3 = 6", "Success", 0, "");
} else {
messageBox("2 * 3 = 6", "Fail", 1, "");
}
if (2 * 1.5 == 3) {
messageBox("2 * 1.5 = 3", "Success", 0, "");
} else {
messageBox("2 * 1.5 = 3", "Fail", 1, "");
}
if (6 / 3 == 2) {
messageBox("6 / 3 = 2", "Success", 0, "");
} else {
messageBox("6 / 3 = 2", "Fail", 1, "");
}
if (3 / 2 == 1.5) {
messageBox("3 / 2 = 1.5", "Success", 0, "");
} else {
messageBox("3 / 2 = 1.5", "Fail", 1, "");
}
if (5 % 2 == 1) {
messageBox("5 % 2 = 1", "Success", 0, "");
} else {
messageBox("5 % 2 = 1", "Fail", 1, "");
}
if (5.5 % 2 == 1) {
messageBox("5.5 % 2 = 1 (implict casting)", "Success", 0, "");
} else {
messageBox("5.5 % 2 = 1 (implict casting)", "Fail", 1, "");
}
if (3 & 2 == 2) {
messageBox("3 & 2 = 2", "Success", 0, "");
} else {
messageBox("3 & 2 = 2", "Fail", 1, "");
}
if (3 | 2 == 3) {
messageBox("3 | 2 = 3", "Success", 0, "");
} else {
messageBox("3 | 2 = 3", "Fail", 1, "");
}
if (2 << 1 == 4) {
messageBox("2 << 1 = 4", "Success", 0, "");
} else {
messageBox("2 << 1 = 4", "Fail", 1, "");
}
if (4 >> 1 == 2) {
messageBox("4 >> 1 = 2", "Success", 0, "");
} else {
messageBox("4 >> 1 = 2", "Fail", 1, "");
}
if (2.5 << 1 == 4) {
messageBox("2.5 << 1 = 4 (implict casting)", "Success", 0, "");
} else {
messageBox("2.5 << 1 = 4 (implict casting)", "Fail", 1, "");
}
if (4.5 >> 1 == 2) {
messageBox("4.5 >> 1 = 2 (implict casting)", "Success", 0, "");
} else {
messageBox("4.5 >> 1 = 2 (implict casting)", "Fail", 1, "");
}
Int one = 1;
Int two = 2;
if (one != two) {
messageBox("1 != 2", "Success", 0, "");
} else {
messageBox("1 != 2", "Fail", 1, "");
}
if (one < two) {
messageBox("1 < 2", "Success", 0, "");
} else {
messageBox("1 < 2", "Fail", 1, "");
}
if (two > one) {
messageBox("2 > 1", "Success", 0, "");
} else {
messageBox("2 > 1", "Fail", 1, "");
}
if (sum == sumFloat) {
messageBox("[int] 4 = [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("[int] 4 = [float] 4.4 (autocasting types)", "Fail", 1, "");
}
if (sum <= sumFloat) {
messageBox("[int] 4 <= [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("[int] 4 <= [float] 4.4 (autocasting types)", "Fail", 1, "");
}
if (sum >= sumFloat) {
messageBox("[int] 4 >= [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("[int] 4 >= [float] 4.4 (autocasting types)", "Fail", 1, "");
}
if (!(sum < sumFloat)) {
messageBox("! [int] 4 < [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("! [int] 4 < [float] 4.4 (autocasting types)", "Fail", 1, "");
}
if (!(sum > sumFloat)) {
messageBox("! [int] 4 > [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("! [int] 4 > [float] 4.4 (autocasting types)", "Fail", 1, "");
}
Int tempOne = 1;
if (tempOne++ == one) {
messageBox("1++ = 1", "Success", 0, "");
} else {
messageBox("1++ = 1", "Fail", 1, "");
}
if (tempOne == two) {
messageBox("1++ (after incremeent) = 2", "Success", 0, "");
} else {
messageBox("1++ (after incremeent) = 2", "Fail", 1, "");
}
tempOne = 1;
Int tempTwo = 2;
if (tempTwo-- == two) {
messageBox("2-- = 2", "Success", 0, "");
} else {
messageBox("2-- = 2", "Fail", 1, "");
}
if (tempTwo-- == one) {
messageBox("2-- (after decrement) = 1", "Success", 0, "");
} else {
messageBox("2-- (after decrement) = 1", "Fail", 1, "");
}
tempTwo = 2;
if (++tempOne == 2) {
messageBox("++1 = 2", "Success", 0, "");
} else {
messageBox("++1 = 2", "Fail", 1, "");
}
tempOne = 1;
// Fails to compile with: "Expression: cb != NULL"
// ????
// if (--tempOne == 0) {
// messageBox("++1 = 2", "Success", 0, "");
// } else {
// messageBox("++1 = 2", "Fail", 1, "");
// }
Boolean f = false;
if (!f) {
messageBox("!f", "Success", 0, "");
} else {
messageBox("!f", "Fail", 1, "");
}
if (!0) {
messageBox("!0", "Success", 0, "");
} else {
messageBox("!0", "Fail", 1, "");
}
if (!1 == false) {
messageBox("!1 == false", "Success", 0, "");
} else {
messageBox("!1 == false", "Fail", 1, "");
}
if (1 == true) {
messageBox("1 == true", "Success", 0, "");
} else {
messageBox("1 == true", "Fail", 1, "");
}
if (0 == false) {
messageBox("0 == false", "Success", 0, "");
} else {
messageBox("0 == false", "Fail", 1, "");
}
if (true && true) {
messageBox("true && true", "Success", 0, "");
} else {
messageBox("true && true", "Fail", 1, "");
}
if (!(true && false)) {
messageBox("!(true && false)", "Success", 0, "");
} else {
messageBox("!(true && false)", "Fail", 1, "");
}
if (!(false && false)) {
messageBox("!(false && false)", "Success", 0, "");
} else {
messageBox("!(false && false)", "Fail", 1, "");
}
if (true || true) {
messageBox("true || true", "Success", 0, "");
} else {
messageBox("true || true", "Fail", 1, "");
}
if (true || false) {
messageBox("true || false", "Success", 0, "");
} else {
messageBox("true || false", "Fail", 1, "");
}
if (false || true) {
messageBox("false || true", "Success", 0, "");
} else {
messageBox("false || true", "Fail", 1, "");
}
if (!(false || false)) {
messageBox("!(false || false)", "Success", 0, "");
} else {
messageBox("!(false || false)", "Fail", 1, "");
}
}

BIN
experiments/modern/src/maki-interpreter/reference/maki_compiler/v1.1.1.b3 (Winamp 3.0 full)/basicTests.maki Executable file
View file

Binary file not shown.

277
experiments/modern/src/maki-interpreter/reference/maki_compiler/v1.1.13 (Winamp 5.02)/basicTests.m Executable file
View file

@ -0,0 +1,277 @@
#include "lib/std.mi"
System.onScriptLoaded()
{
Int sum = 2 + 2;
if (sum == 4) {
messageBox("2 + 2 = 4", "Success", 0, "");
} else {
messageBox("2 + 2 = 4", "Fail", 1, "");
}
Float sumFloat = 2.2 + 2.2;
if (sumFloat == 4.4) {
messageBox("2.2 + 2.2 = 4.4", "Success", 0, "");
} else {
messageBox("2.2 + 2.2 = 4.4", "Fail", 1, "");
}
if (3 - 2 == 1) {
messageBox("3 - 2 = 1", "Success", 0, "");
} else {
messageBox("3 - 2 = 1", "Fail", 1, "");
}
if (3 - -2 == 5) {
messageBox("3 - -2 = 5", "Success", 0, "");
} else {
messageBox("3 - -2 = 5", "Fail", 1, "");
}
if (3.5 - 2 == 1.5) {
messageBox("3.5 - 2 = 1.5", "Success", 0, "");
} else {
messageBox("3.5 - 2 = 1.5", "Fail", 1, "");
}
if (2 * 3 == 6) {
messageBox("2 * 3 = 6", "Success", 0, "");
} else {
messageBox("2 * 3 = 6", "Fail", 1, "");
}
if (2 * 1.5 == 3) {
messageBox("2 * 1.5 = 3", "Success", 0, "");
} else {
messageBox("2 * 1.5 = 3", "Fail", 1, "");
}
if (6 / 3 == 2) {
messageBox("6 / 3 = 2", "Success", 0, "");
} else {
messageBox("6 / 3 = 2", "Fail", 1, "");
}
if (3 / 2 == 1.5) {
messageBox("3 / 2 = 1.5", "Success", 0, "");
} else {
messageBox("3 / 2 = 1.5", "Fail", 1, "");
}
if (5 % 2 == 1) {
messageBox("5 % 2 = 1", "Success", 0, "");
} else {
messageBox("5 % 2 = 1", "Fail", 1, "");
}
if (5.5 % 2 == 1) {
messageBox("5.5 % 2 = 1 (implict casting)", "Success", 0, "");
} else {
messageBox("5.5 % 2 = 1 (implict casting)", "Fail", 1, "");
}
if (3 & 2 == 2) {
messageBox("3 & 2 = 2", "Success", 0, "");
} else {
messageBox("3 & 2 = 2", "Fail", 1, "");
}
if (3 | 2 == 3) {
messageBox("3 | 2 = 3", "Success", 0, "");
} else {
messageBox("3 | 2 = 3", "Fail", 1, "");
}
if (2 << 1 == 4) {
messageBox("2 << 1 = 4", "Success", 0, "");
} else {
messageBox("2 << 1 = 4", "Fail", 1, "");
}
if (4 >> 1 == 2) {
messageBox("4 >> 1 = 2", "Success", 0, "");
} else {
messageBox("4 >> 1 = 2", "Fail", 1, "");
}
if (2.5 << 1 == 4) {
messageBox("2.5 << 1 = 4 (implict casting)", "Success", 0, "");
} else {
messageBox("2.5 << 1 = 4 (implict casting)", "Fail", 1, "");
}
if (4.5 >> 1 == 2) {
messageBox("4.5 >> 1 = 2 (implict casting)", "Success", 0, "");
} else {
messageBox("4.5 >> 1 = 2 (implict casting)", "Fail", 1, "");
}
Int one = 1;
Int two = 2;
if (one != two) {
messageBox("1 != 2", "Success", 0, "");
} else {
messageBox("1 != 2", "Fail", 1, "");
}
if (one < two) {
messageBox("1 < 2", "Success", 0, "");
} else {
messageBox("1 < 2", "Fail", 1, "");
}
if (two > one) {
messageBox("2 > 1", "Success", 0, "");
} else {
messageBox("2 > 1", "Fail", 1, "");
}
if (sum == sumFloat) {
messageBox("[int] 4 = [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("[int] 4 = [float] 4.4 (autocasting types)", "Fail", 1, "");
}
if (sum <= sumFloat) {
messageBox("[int] 4 <= [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("[int] 4 <= [float] 4.4 (autocasting types)", "Fail", 1, "");
}
if (sum >= sumFloat) {
messageBox("[int] 4 >= [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("[int] 4 >= [float] 4.4 (autocasting types)", "Fail", 1, "");
}
if (!(sum < sumFloat)) {
messageBox("! [int] 4 < [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("! [int] 4 < [float] 4.4 (autocasting types)", "Fail", 1, "");
}
if (!(sum > sumFloat)) {
messageBox("! [int] 4 > [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("! [int] 4 > [float] 4.4 (autocasting types)", "Fail", 1, "");
}
Int tempOne = 1;
if (tempOne++ == one) {
messageBox("1++ = 1", "Success", 0, "");
} else {
messageBox("1++ = 1", "Fail", 1, "");
}
if (tempOne == two) {
messageBox("1++ (after incremeent) = 2", "Success", 0, "");
} else {
messageBox("1++ (after incremeent) = 2", "Fail", 1, "");
}
tempOne = 1;
Int tempTwo = 2;
if (tempTwo-- == two) {
messageBox("2-- = 2", "Success", 0, "");
} else {
messageBox("2-- = 2", "Fail", 1, "");
}
if (tempTwo-- == one) {
messageBox("2-- (after decrement) = 1", "Success", 0, "");
} else {
messageBox("2-- (after decrement) = 1", "Fail", 1, "");
}
tempTwo = 2;
if (++tempOne == 2) {
messageBox("++1 = 2", "Success", 0, "");
} else {
messageBox("++1 = 2", "Fail", 1, "");
}
tempOne = 1;
// Fails to compile with: "Expression: cb != NULL"
// ????
// if (--tempOne == 0) {
// messageBox("++1 = 2", "Success", 0, "");
// } else {
// messageBox("++1 = 2", "Fail", 1, "");
// }
Boolean f = false;
if (!f) {
messageBox("!f", "Success", 0, "");
} else {
messageBox("!f", "Fail", 1, "");
}
if (!0) {
messageBox("!0", "Success", 0, "");
} else {
messageBox("!0", "Fail", 1, "");
}
if (!1 == false) {
messageBox("!1 == false", "Success", 0, "");
} else {
messageBox("!1 == false", "Fail", 1, "");
}
if (1 == true) {
messageBox("1 == true", "Success", 0, "");
} else {
messageBox("1 == true", "Fail", 1, "");
}
if (0 == false) {
messageBox("0 == false", "Success", 0, "");
} else {
messageBox("0 == false", "Fail", 1, "");
}
if (true && true) {
messageBox("true && true", "Success", 0, "");
} else {
messageBox("true && true", "Fail", 1, "");
}
if (!(true && false)) {
messageBox("!(true && false)", "Success", 0, "");
} else {
messageBox("!(true && false)", "Fail", 1, "");
}
if (!(false && false)) {
messageBox("!(false && false)", "Success", 0, "");
} else {
messageBox("!(false && false)", "Fail", 1, "");
}
if (true || true) {
messageBox("true || true", "Success", 0, "");
} else {
messageBox("true || true", "Fail", 1, "");
}
if (true || false) {
messageBox("true || false", "Success", 0, "");
} else {
messageBox("true || false", "Fail", 1, "");
}
if (false || true) {
messageBox("false || true", "Success", 0, "");
} else {
messageBox("false || true", "Fail", 1, "");
}
if (!(false || false)) {
messageBox("!(false || false)", "Success", 0, "");
} else {
messageBox("!(false || false)", "Fail", 1, "");
}
}

BIN
experiments/modern/src/maki-interpreter/reference/maki_compiler/v1.1.13 (Winamp 5.02)/basicTests.maki Executable file
View file

Binary file not shown.

277
experiments/modern/src/maki-interpreter/reference/maki_compiler/v1.2.0 (Winamp 5.66)/basicTests.m Executable file
View file

@ -0,0 +1,277 @@
#include "lib/std.mi"
System.onScriptLoaded()
{
Int sum = 2 + 2;
if (sum == 4) {
messageBox("2 + 2 = 4", "Success", 0, "");
} else {
messageBox("2 + 2 = 4", "Fail", 1, "");
}
Float sumFloat = 2.2 + 2.2;
if (sumFloat == 4.4) {
messageBox("2.2 + 2.2 = 4.4", "Success", 0, "");
} else {
messageBox("2.2 + 2.2 = 4.4", "Fail", 1, "");
}
if (3 - 2 == 1) {
messageBox("3 - 2 = 1", "Success", 0, "");
} else {
messageBox("3 - 2 = 1", "Fail", 1, "");
}
if (3 - -2 == 5) {
messageBox("3 - -2 = 5", "Success", 0, "");
} else {
messageBox("3 - -2 = 5", "Fail", 1, "");
}
if (3.5 - 2 == 1.5) {
messageBox("3.5 - 2 = 1.5", "Success", 0, "");
} else {
messageBox("3.5 - 2 = 1.5", "Fail", 1, "");
}
if (2 * 3 == 6) {
messageBox("2 * 3 = 6", "Success", 0, "");
} else {
messageBox("2 * 3 = 6", "Fail", 1, "");
}
if (2 * 1.5 == 3) {
messageBox("2 * 1.5 = 3", "Success", 0, "");
} else {
messageBox("2 * 1.5 = 3", "Fail", 1, "");
}
if (6 / 3 == 2) {
messageBox("6 / 3 = 2", "Success", 0, "");
} else {
messageBox("6 / 3 = 2", "Fail", 1, "");
}
if (3 / 2 == 1.5) {
messageBox("3 / 2 = 1.5", "Success", 0, "");
} else {
messageBox("3 / 2 = 1.5", "Fail", 1, "");
}
if (5 % 2 == 1) {
messageBox("5 % 2 = 1", "Success", 0, "");
} else {
messageBox("5 % 2 = 1", "Fail", 1, "");
}
if (5.5 % 2 == 1) {
messageBox("5.5 % 2 = 1 (implict casting)", "Success", 0, "");
} else {
messageBox("5.5 % 2 = 1 (implict casting)", "Fail", 1, "");
}
if (3 & 2 == 2) {
messageBox("3 & 2 = 2", "Success", 0, "");
} else {
messageBox("3 & 2 = 2", "Fail", 1, "");
}
if (3 | 2 == 3) {
messageBox("3 | 2 = 3", "Success", 0, "");
} else {
messageBox("3 | 2 = 3", "Fail", 1, "");
}
if (2 << 1 == 4) {
messageBox("2 << 1 = 4", "Success", 0, "");
} else {
messageBox("2 << 1 = 4", "Fail", 1, "");
}
if (4 >> 1 == 2) {
messageBox("4 >> 1 = 2", "Success", 0, "");
} else {
messageBox("4 >> 1 = 2", "Fail", 1, "");
}
if (2.5 << 1 == 4) {
messageBox("2.5 << 1 = 4 (implict casting)", "Success", 0, "");
} else {
messageBox("2.5 << 1 = 4 (implict casting)", "Fail", 1, "");
}
if (4.5 >> 1 == 2) {
messageBox("4.5 >> 1 = 2 (implict casting)", "Success", 0, "");
} else {
messageBox("4.5 >> 1 = 2 (implict casting)", "Fail", 1, "");
}
Int one = 1;
Int two = 2;
if (one != two) {
messageBox("1 != 2", "Success", 0, "");
} else {
messageBox("1 != 2", "Fail", 1, "");
}
if (one < two) {
messageBox("1 < 2", "Success", 0, "");
} else {
messageBox("1 < 2", "Fail", 1, "");
}
if (two > one) {
messageBox("2 > 1", "Success", 0, "");
} else {
messageBox("2 > 1", "Fail", 1, "");
}
if (sum == sumFloat) {
messageBox("[int] 4 = [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("[int] 4 = [float] 4.4 (autocasting types)", "Fail", 1, "");
}
if (sum <= sumFloat) {
messageBox("[int] 4 <= [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("[int] 4 <= [float] 4.4 (autocasting types)", "Fail", 1, "");
}
if (sum >= sumFloat) {
messageBox("[int] 4 >= [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("[int] 4 >= [float] 4.4 (autocasting types)", "Fail", 1, "");
}
if (!(sum < sumFloat)) {
messageBox("! [int] 4 < [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("! [int] 4 < [float] 4.4 (autocasting types)", "Fail", 1, "");
}
if (!(sum > sumFloat)) {
messageBox("! [int] 4 > [float] 4.4 (autocasting types)", "Success", 0, "");
} else {
messageBox("! [int] 4 > [float] 4.4 (autocasting types)", "Fail", 1, "");
}
Int tempOne = 1;
if (tempOne++ == one) {
messageBox("1++ = 1", "Success", 0, "");
} else {
messageBox("1++ = 1", "Fail", 1, "");
}
if (tempOne == two) {
messageBox("1++ (after incremeent) = 2", "Success", 0, "");
} else {
messageBox("1++ (after incremeent) = 2", "Fail", 1, "");
}
tempOne = 1;
Int tempTwo = 2;
if (tempTwo-- == two) {
messageBox("2-- = 2", "Success", 0, "");
} else {
messageBox("2-- = 2", "Fail", 1, "");
}
if (tempTwo-- == one) {
messageBox("2-- (after decrement) = 1", "Success", 0, "");
} else {
messageBox("2-- (after decrement) = 1", "Fail", 1, "");
}
tempTwo = 2;
if (++tempOne == 2) {
messageBox("++1 = 2", "Success", 0, "");
} else {
messageBox("++1 = 2", "Fail", 1, "");
}
tempOne = 1;
// Fails to compile with: "Expression: cb != NULL"
// ????
// if (--tempOne == 0) {
// messageBox("++1 = 2", "Success", 0, "");
// } else {
// messageBox("++1 = 2", "Fail", 1, "");
// }
Boolean f = false;
if (!f) {
messageBox("!f", "Success", 0, "");
} else {
messageBox("!f", "Fail", 1, "");
}
if (!0) {
messageBox("!0", "Success", 0, "");
} else {
messageBox("!0", "Fail", 1, "");
}
if (!1 == false) {
messageBox("!1 == false", "Success", 0, "");
} else {
messageBox("!1 == false", "Fail", 1, "");
}
if (1 == true) {
messageBox("1 == true", "Success", 0, "");
} else {
messageBox("1 == true", "Fail", 1, "");
}
if (0 == false) {
messageBox("0 == false", "Success", 0, "");
} else {
messageBox("0 == false", "Fail", 1, "");
}
if (true && true) {
messageBox("true && true", "Success", 0, "");
} else {
messageBox("true && true", "Fail", 1, "");
}
if (!(true && false)) {
messageBox("!(true && false)", "Success", 0, "");
} else {
messageBox("!(true && false)", "Fail", 1, "");
}
if (!(false && false)) {
messageBox("!(false && false)", "Success", 0, "");
} else {
messageBox("!(false && false)", "Fail", 1, "");
}
if (true || true) {
messageBox("true || true", "Success", 0, "");
} else {
messageBox("true || true", "Fail", 1, "");
}
if (true || false) {
messageBox("true || false", "Success", 0, "");
} else {
messageBox("true || false", "Fail", 1, "");
}
if (false || true) {
messageBox("false || true", "Success", 0, "");
} else {
messageBox("false || true", "Fail", 1, "");
}
if (!(false || false)) {
messageBox("!(false || false)", "Success", 0, "");
} else {
messageBox("!(false || false)", "Fail", 1, "");
}
}

BIN
experiments/modern/src/maki-interpreter/reference/maki_compiler/v1.2.0 (Winamp 5.66)/basicTests.maki Executable file
View file

Binary file not shown.