tests/testthat/test_A_800_random_tests.R

In evalR: Evaluation of Unverified Code

context("A-800 random_tests")

test_that("test A-800 random_tests", {




expect_equal(eval_text("841 + 430"), 841 + 430)
expect_equal(eval_text("95 == 209"), 95 == 209)
expect_equal(eval_text("(841 + 430) - (95 == 209)"), (841 + 430) - (95 == 209))
expect_equal(eval_text("- (95 == 209)"), - (95 == 209))
# expect_equal(eval_text("(841 + 430) / (- (95 == 209))"), (841 + 430) / (- (95 == 209)))
expect_equal(eval_text("log(abs(841 + 430)+1)"), log(abs(841 + 430)+1))
expect_equal(eval_text("abs(c(841 + 430,95 == 209))"), abs(c(841 + 430,95 == 209)))
expect_equal(eval_text("ifelse(841 + 430,95 == 209,- (95 == 209))"), ifelse(841 + 430,95 == 209,- (95 == 209)))
expect_equal(eval_text("(abs(c(841 + 430,95 == 209))) %/% (ifelse(841 + 430,95 == 209,- (95 == 209)))"), (abs(c(841 + 430,95 == 209))) %/% (ifelse(841 + 430,95 == 209,- (95 == 209))))

expect_equal(eval_text("315 > 867"), 315 > 867)
expect_equal(eval_text("640 <= 800"), 640 <= 800)
expect_equal(eval_text("(315 > 867) + (640 <= 800)"), (315 > 867) + (640 <= 800))
expect_equal(eval_text("! (640 <= 800)"), ! (640 <= 800))
expect_equal(eval_text("(315 > 867) <= (! (640 <= 800))"), (315 > 867) <= (! (640 <= 800)))
expect_equal(eval_text("log(abs(315 > 867)+1)"), log(abs(315 > 867)+1))
expect_equal(eval_text("abs(c(315 > 867,640 <= 800))"), abs(c(315 > 867,640 <= 800)))
expect_equal(eval_text("ifelse(315 > 867,640 <= 800,! (640 <= 800))"), ifelse(315 > 867,640 <= 800,! (640 <= 800)))
expect_equal(eval_text("(abs(c(315 > 867,640 <= 800))) <= (ifelse(315 > 867,640 <= 800,! (640 <= 800)))"), (abs(c(315 > 867,640 <= 800))) <= (ifelse(315 > 867,640 <= 800,! (640 <= 800))))

expect_equal(eval_text("866 < 671"), 866 < 671)
expect_equal(eval_text("316 %in% 949"), 316 %in% 949)
expect_equal(eval_text("(866 < 671) * (316 %in% 949)"), (866 < 671) * (316 %in% 949))
expect_equal(eval_text("- (316 %in% 949)"), - (316 %in% 949))
expect_equal(eval_text("(866 < 671) %% (- (316 %in% 949))"), (866 < 671) %% (- (316 %in% 949)))
expect_equal(eval_text("log(abs(866 < 671)+1)"), log(abs(866 < 671)+1))
expect_equal(eval_text("abs(c(866 < 671,316 %in% 949))"), abs(c(866 < 671,316 %in% 949)))
expect_equal(eval_text("ifelse(866 < 671,316 %in% 949,- (316 %in% 949))"), ifelse(866 < 671,316 %in% 949,- (316 %in% 949)))
expect_equal(eval_text("(abs(c(866 < 671,316 %in% 949))) %/% (ifelse(866 < 671,316 %in% 949,- (316 %in% 949)))"), (abs(c(866 < 671,316 %in% 949))) %/% (ifelse(866 < 671,316 %in% 949,- (316 %in% 949))))

expect_equal(eval_text("97 / 671"), 97 / 671)
expect_equal(eval_text("454 != 474"), 454 != 474)
expect_equal(eval_text("(97 / 671) ^ (454 != 474)"), (97 / 671) ^ (454 != 474))
expect_equal(eval_text("- (454 != 474)"), - (454 != 474))
expect_equal(eval_text("(97 / 671) - (- (454 != 474))"), (97 / 671) - (- (454 != 474)))
expect_equal(eval_text("log(abs(97 / 671)+1)"), log(abs(97 / 671)+1))
expect_equal(eval_text("abs(c(97 / 671,454 != 474))"), abs(c(97 / 671,454 != 474)))
expect_equal(eval_text("ifelse(97 / 671,454 != 474,- (454 != 474))"), ifelse(97 / 671,454 != 474,- (454 != 474)))
expect_equal(eval_text("(abs(c(97 / 671,454 != 474))) ^ (ifelse(97 / 671,454 != 474,- (454 != 474)))"), (abs(c(97 / 671,454 != 474))) ^ (ifelse(97 / 671,454 != 474,- (454 != 474))))

expect_equal(eval_text("858 * 701"), 858 * 701)
expect_equal(eval_text("317 >= 954"), 317 >= 954)
expect_equal(eval_text("(858 * 701) >= (317 >= 954)"), (858 * 701) >= (317 >= 954))
expect_equal(eval_text("! (317 >= 954)"), ! (317 >= 954))
expect_equal(eval_text("(858 * 701) %% (! (317 >= 954))"), (858 * 701) %% (! (317 >= 954)))
expect_equal(eval_text("log(abs(858 * 701)+1)"), log(abs(858 * 701)+1))
expect_equal(eval_text("abs(c(858 * 701,317 >= 954))"), abs(c(858 * 701,317 >= 954)))
expect_equal(eval_text("ifelse(858 * 701,317 >= 954,! (317 >= 954))"), ifelse(858 * 701,317 >= 954,! (317 >= 954)))
expect_equal(eval_text("(abs(c(858 * 701,317 >= 954))) != (ifelse(858 * 701,317 >= 954,! (317 >= 954)))"), (abs(c(858 * 701,317 >= 954))) != (ifelse(858 * 701,317 >= 954,! (317 >= 954))))

expect_equal(eval_text("72 < 518"), 72 < 518)
expect_equal(eval_text("984 == 522"), 984 == 522)
expect_equal(eval_text("(72 < 518) - (984 == 522)"), (72 < 518) - (984 == 522))
expect_equal(eval_text("- (984 == 522)"), - (984 == 522))
expect_equal(eval_text("(72 < 518) - (- (984 == 522))"), (72 < 518) - (- (984 == 522)))
expect_equal(eval_text("log(abs(72 < 518)+1)"), log(abs(72 < 518)+1))
expect_equal(eval_text("abs(c(72 < 518,984 == 522))"), abs(c(72 < 518,984 == 522)))
expect_equal(eval_text("ifelse(72 < 518,984 == 522,- (984 == 522))"), ifelse(72 < 518,984 == 522,- (984 == 522)))
expect_equal(eval_text("(abs(c(72 < 518,984 == 522))) + (ifelse(72 < 518,984 == 522,- (984 == 522)))"), (abs(c(72 < 518,984 == 522))) + (ifelse(72 < 518,984 == 522,- (984 == 522))))

expect_equal(eval_text("864 >= 593"), 864 >= 593)
expect_equal(eval_text("991 %/% 227"), 991 %/% 227)
expect_equal(eval_text("(864 >= 593) - (991 %/% 227)"), (864 >= 593) - (991 %/% 227))
expect_equal(eval_text("- (991 %/% 227)"), - (991 %/% 227))
expect_equal(eval_text("(864 >= 593) / (- (991 %/% 227))"), (864 >= 593) / (- (991 %/% 227)))
expect_equal(eval_text("log(abs(864 >= 593)+1)"), log(abs(864 >= 593)+1))
expect_equal(eval_text("abs(c(864 >= 593,991 %/% 227))"), abs(c(864 >= 593,991 %/% 227)))
expect_equal(eval_text("ifelse(864 >= 593,991 %/% 227,- (991 %/% 227))"), ifelse(864 >= 593,991 %/% 227,- (991 %/% 227)))
expect_equal(eval_text("(abs(c(864 >= 593,991 %/% 227))) <= (ifelse(864 >= 593,991 %/% 227,- (991 %/% 227)))"), (abs(c(864 >= 593,991 %/% 227))) <= (ifelse(864 >= 593,991 %/% 227,- (991 %/% 227))))

expect_equal(eval_text("970 < 962"), 970 < 962)
expect_equal(eval_text("577 / 28"), 577 / 28)
expect_equal(eval_text("(970 < 962) > (577 / 28)"), (970 < 962) > (577 / 28))
expect_equal(eval_text("! (577 / 28)"), ! (577 / 28))
expect_equal(eval_text("(970 < 962) / (! (577 / 28))"), (970 < 962) / (! (577 / 28)))
expect_equal(eval_text("log(abs(970 < 962)+1)"), log(abs(970 < 962)+1))
expect_equal(eval_text("abs(c(970 < 962,577 / 28))"), abs(c(970 < 962,577 / 28)))
expect_equal(eval_text("ifelse(970 < 962,577 / 28,! (577 / 28))"), ifelse(970 < 962,577 / 28,! (577 / 28)))
expect_equal(eval_text("(abs(c(970 < 962,577 / 28))) %% (ifelse(970 < 962,577 / 28,! (577 / 28)))"), (abs(c(970 < 962,577 / 28))) %% (ifelse(970 < 962,577 / 28,! (577 / 28))))

expect_equal(eval_text("668 %% 921"), 668 %% 921)
expect_equal(eval_text("668 / 684"), 668 / 684)
expect_equal(eval_text("(668 %% 921) & (668 / 684)"), (668 %% 921) & (668 / 684))
expect_equal(eval_text("- (668 / 684)"), - (668 / 684))
expect_equal(eval_text("(668 %% 921) & (- (668 / 684))"), (668 %% 921) & (- (668 / 684)))
expect_equal(eval_text("log(abs(668 %% 921)+1)"), log(abs(668 %% 921)+1))
expect_equal(eval_text("abs(c(668 %% 921,668 / 684))"), abs(c(668 %% 921,668 / 684)))
expect_equal(eval_text("ifelse(668 %% 921,668 / 684,- (668 / 684))"), ifelse(668 %% 921,668 / 684,- (668 / 684)))
expect_equal(eval_text("(abs(c(668 %% 921,668 / 684))) | (ifelse(668 %% 921,668 / 684,- (668 / 684)))"), (abs(c(668 %% 921,668 / 684))) | (ifelse(668 %% 921,668 / 684,- (668 / 684))))

expect_equal(eval_text("556 %% 726"), 556 %% 726)
expect_equal(eval_text("374 & 713"), 374 & 713)
expect_equal(eval_text("(556 %% 726) - (374 & 713)"), (556 %% 726) - (374 & 713))
expect_equal(eval_text("- (374 & 713)"), - (374 & 713))
expect_equal(eval_text("(556 %% 726) %% (- (374 & 713))"), (556 %% 726) %% (- (374 & 713)))
expect_equal(eval_text("log(abs(556 %% 726)+1)"), log(abs(556 %% 726)+1))
expect_equal(eval_text("abs(c(556 %% 726,374 & 713))"), abs(c(556 %% 726,374 & 713)))
expect_equal(eval_text("ifelse(556 %% 726,374 & 713,- (374 & 713))"), ifelse(556 %% 726,374 & 713,- (374 & 713)))
expect_equal(eval_text("(abs(c(556 %% 726,374 & 713))) & (ifelse(556 %% 726,374 & 713,- (374 & 713)))"), (abs(c(556 %% 726,374 & 713))) & (ifelse(556 %% 726,374 & 713,- (374 & 713))))

expect_equal(eval_text("505 & 15"), 505 & 15)
expect_equal(eval_text("997 <= 203"), 997 <= 203)
expect_equal(eval_text("(505 & 15) + (997 <= 203)"), (505 & 15) + (997 <= 203))
expect_equal(eval_text("! (997 <= 203)"), ! (997 <= 203))
expect_equal(eval_text("(505 & 15) %% (! (997 <= 203))"), (505 & 15) %% (! (997 <= 203)))
expect_equal(eval_text("log(abs(505 & 15)+1)"), log(abs(505 & 15)+1))
expect_equal(eval_text("abs(c(505 & 15,997 <= 203))"), abs(c(505 & 15,997 <= 203)))
expect_equal(eval_text("ifelse(505 & 15,997 <= 203,! (997 <= 203))"), ifelse(505 & 15,997 <= 203,! (997 <= 203)))
expect_equal(eval_text("(abs(c(505 & 15,997 <= 203))) == (ifelse(505 & 15,997 <= 203,! (997 <= 203)))"), (abs(c(505 & 15,997 <= 203))) == (ifelse(505 & 15,997 <= 203,! (997 <= 203))))

expect_equal(eval_text("564 | 891"), 564 | 891)
expect_equal(eval_text("744 < 312"), 744 < 312)
expect_equal(eval_text("(564 | 891) - (744 < 312)"), (564 | 891) - (744 < 312))
expect_equal(eval_text("! (744 < 312)"), ! (744 < 312))
expect_equal(eval_text("(564 | 891) < (! (744 < 312))"), (564 | 891) < (! (744 < 312)))
expect_equal(eval_text("log(abs(564 | 891)+1)"), log(abs(564 | 891)+1))
expect_equal(eval_text("abs(c(564 | 891,744 < 312))"), abs(c(564 | 891,744 < 312)))
expect_equal(eval_text("ifelse(564 | 891,744 < 312,! (744 < 312))"), ifelse(564 | 891,744 < 312,! (744 < 312)))
expect_equal(eval_text("(abs(c(564 | 891,744 < 312))) < (ifelse(564 | 891,744 < 312,! (744 < 312)))"), (abs(c(564 | 891,744 < 312))) < (ifelse(564 | 891,744 < 312,! (744 < 312))))

expect_equal(eval_text("979 ^ 220"), 979 ^ 220)
expect_equal(eval_text("698 %% 887"), 698 %% 887)
expect_equal(eval_text("(979 ^ 220) + (698 %% 887)"), (979 ^ 220) + (698 %% 887))
expect_equal(eval_text("- (698 %% 887)"), - (698 %% 887))
expect_equal(eval_text("(979 ^ 220) + (- (698 %% 887))"), (979 ^ 220) + (- (698 %% 887)))
expect_equal(eval_text("log(abs(979 ^ 220)+1)"), log(abs(979 ^ 220)+1))
expect_equal(eval_text("abs(c(979 ^ 220,698 %% 887))"), abs(c(979 ^ 220,698 %% 887)))
expect_equal(eval_text("ifelse(979 ^ 220,698 %% 887,- (698 %% 887))"), ifelse(979 ^ 220,698 %% 887,- (698 %% 887)))
expect_equal(eval_text("(abs(c(979 ^ 220,698 %% 887))) %/% (ifelse(979 ^ 220,698 %% 887,- (698 %% 887)))"), (abs(c(979 ^ 220,698 %% 887))) %/% (ifelse(979 ^ 220,698 %% 887,- (698 %% 887))))

expect_equal(eval_text("597 / 114"), 597 / 114)
expect_equal(eval_text("807 + 542"), 807 + 542)
expect_equal(eval_text("(597 / 114) ^ (807 + 542)"), (597 / 114) ^ (807 + 542))
expect_equal(eval_text("! (807 + 542)"), ! (807 + 542))
expect_equal(eval_text("(597 / 114) %in% (! (807 + 542))"), (597 / 114) %in% (! (807 + 542)))
expect_equal(eval_text("log(abs(597 / 114)+1)"), log(abs(597 / 114)+1))
expect_equal(eval_text("abs(c(597 / 114,807 + 542))"), abs(c(597 / 114,807 + 542)))
expect_equal(eval_text("ifelse(597 / 114,807 + 542,! (807 + 542))"), ifelse(597 / 114,807 + 542,! (807 + 542)))
expect_equal(eval_text("(abs(c(597 / 114,807 + 542))) - (ifelse(597 / 114,807 + 542,! (807 + 542)))"), (abs(c(597 / 114,807 + 542))) - (ifelse(597 / 114,807 + 542,! (807 + 542))))

expect_equal(eval_text("549 != 53"), 549 != 53)
expect_equal(eval_text("38 + 22"), 38 + 22)
expect_equal(eval_text("(549 != 53) + (38 + 22)"), (549 != 53) + (38 + 22))
expect_equal(eval_text("- (38 + 22)"), - (38 + 22))
expect_equal(eval_text("(549 != 53) - (- (38 + 22))"), (549 != 53) - (- (38 + 22)))
expect_equal(eval_text("log(abs(549 != 53)+1)"), log(abs(549 != 53)+1))
expect_equal(eval_text("abs(c(549 != 53,38 + 22))"), abs(c(549 != 53,38 + 22)))
expect_equal(eval_text("ifelse(549 != 53,38 + 22,- (38 + 22))"), ifelse(549 != 53,38 + 22,- (38 + 22)))
expect_equal(eval_text("(abs(c(549 != 53,38 + 22))) == (ifelse(549 != 53,38 + 22,- (38 + 22)))"), (abs(c(549 != 53,38 + 22))) == (ifelse(549 != 53,38 + 22,- (38 + 22))))

expect_equal(eval_text("379 %% 208"), 379 %% 208)
expect_equal(eval_text("452 %/% 534"), 452 %/% 534)
expect_equal(eval_text("(379 %% 208) <= (452 %/% 534)"), (379 %% 208) <= (452 %/% 534))
expect_equal(eval_text("! (452 %/% 534)"), ! (452 %/% 534))
expect_equal(eval_text("(379 %% 208) %/% (! (452 %/% 534))"), (379 %% 208) %/% (! (452 %/% 534)))
expect_equal(eval_text("log(abs(379 %% 208)+1)"), log(abs(379 %% 208)+1))
expect_equal(eval_text("abs(c(379 %% 208,452 %/% 534))"), abs(c(379 %% 208,452 %/% 534)))
expect_equal(eval_text("ifelse(379 %% 208,452 %/% 534,! (452 %/% 534))"), ifelse(379 %% 208,452 %/% 534,! (452 %/% 534)))
expect_equal(eval_text("(abs(c(379 %% 208,452 %/% 534))) %in% (ifelse(379 %% 208,452 %/% 534,! (452 %/% 534)))"), (abs(c(379 %% 208,452 %/% 534))) %in% (ifelse(379 %% 208,452 %/% 534,! (452 %/% 534))))

expect_equal(eval_text("197 * 879"), 197 * 879)
expect_equal(eval_text("503 & 788"), 503 & 788)
expect_equal(eval_text("(197 * 879) < (503 & 788)"), (197 * 879) < (503 & 788))
expect_equal(eval_text("- (503 & 788)"), - (503 & 788))
expect_equal(eval_text("(197 * 879) + (- (503 & 788))"), (197 * 879) + (- (503 & 788)))
expect_equal(eval_text("log(abs(197 * 879)+1)"), log(abs(197 * 879)+1))
expect_equal(eval_text("abs(c(197 * 879,503 & 788))"), abs(c(197 * 879,503 & 788)))
expect_equal(eval_text("ifelse(197 * 879,503 & 788,- (503 & 788))"), ifelse(197 * 879,503 & 788,- (503 & 788)))
expect_equal(eval_text("(abs(c(197 * 879,503 & 788))) %/% (ifelse(197 * 879,503 & 788,- (503 & 788)))"), (abs(c(197 * 879,503 & 788))) %/% (ifelse(197 * 879,503 & 788,- (503 & 788))))

expect_equal(eval_text("937 / 555"), 937 / 555)
expect_equal(eval_text("323 == 527"), 323 == 527)
expect_equal(eval_text("(937 / 555) <= (323 == 527)"), (937 / 555) <= (323 == 527))
expect_equal(eval_text("! (323 == 527)"), ! (323 == 527))
expect_equal(eval_text("(937 / 555) & (! (323 == 527))"), (937 / 555) & (! (323 == 527)))
expect_equal(eval_text("log(abs(937 / 555)+1)"), log(abs(937 / 555)+1))
expect_equal(eval_text("abs(c(937 / 555,323 == 527))"), abs(c(937 / 555,323 == 527)))
expect_equal(eval_text("ifelse(937 / 555,323 == 527,! (323 == 527))"), ifelse(937 / 555,323 == 527,! (323 == 527)))
expect_equal(eval_text("(abs(c(937 / 555,323 == 527))) > (ifelse(937 / 555,323 == 527,! (323 == 527)))"), (abs(c(937 / 555,323 == 527))) > (ifelse(937 / 555,323 == 527,! (323 == 527))))

expect_equal(eval_text("129 %% 564"), 129 %% 564)
expect_equal(eval_text("88 <= 109"), 88 <= 109)
expect_equal(eval_text("(129 %% 564) != (88 <= 109)"), (129 %% 564) != (88 <= 109))
expect_equal(eval_text("- (88 <= 109)"), - (88 <= 109))
expect_equal(eval_text("(129 %% 564) + (- (88 <= 109))"), (129 %% 564) + (- (88 <= 109)))
expect_equal(eval_text("log(abs(129 %% 564)+1)"), log(abs(129 %% 564)+1))
expect_equal(eval_text("abs(c(129 %% 564,88 <= 109))"), abs(c(129 %% 564,88 <= 109)))
expect_equal(eval_text("ifelse(129 %% 564,88 <= 109,- (88 <= 109))"), ifelse(129 %% 564,88 <= 109,- (88 <= 109)))
expect_equal(eval_text("(abs(c(129 %% 564,88 <= 109))) >= (ifelse(129 %% 564,88 <= 109,- (88 <= 109)))"), (abs(c(129 %% 564,88 <= 109))) >= (ifelse(129 %% 564,88 <= 109,- (88 <= 109))))

expect_equal(eval_text("261 < 762"), 261 < 762)
expect_equal(eval_text("201 != 301"), 201 != 301)
expect_equal(eval_text("(261 < 762) == (201 != 301)"), (261 < 762) == (201 != 301))
expect_equal(eval_text("! (201 != 301)"), ! (201 != 301))
expect_equal(eval_text("(261 < 762) == (! (201 != 301))"), (261 < 762) == (! (201 != 301)))
expect_equal(eval_text("log(abs(261 < 762)+1)"), log(abs(261 < 762)+1))
expect_equal(eval_text("abs(c(261 < 762,201 != 301))"), abs(c(261 < 762,201 != 301)))
expect_equal(eval_text("ifelse(261 < 762,201 != 301,! (201 != 301))"), ifelse(261 < 762,201 != 301,! (201 != 301)))
expect_equal(eval_text("(abs(c(261 < 762,201 != 301))) | (ifelse(261 < 762,201 != 301,! (201 != 301)))"), (abs(c(261 < 762,201 != 301))) | (ifelse(261 < 762,201 != 301,! (201 != 301))))

expect_equal(eval_text("485 * 304"), 485 * 304)
expect_equal(eval_text("299 >= 444"), 299 >= 444)
expect_equal(eval_text("(485 * 304) %/% (299 >= 444)"), (485 * 304) %/% (299 >= 444))
expect_equal(eval_text("- (299 >= 444)"), - (299 >= 444))
expect_equal(eval_text("(485 * 304) %in% (- (299 >= 444))"), (485 * 304) %in% (- (299 >= 444)))
expect_equal(eval_text("log(abs(485 * 304)+1)"), log(abs(485 * 304)+1))
expect_equal(eval_text("abs(c(485 * 304,299 >= 444))"), abs(c(485 * 304,299 >= 444)))
expect_equal(eval_text("ifelse(485 * 304,299 >= 444,- (299 >= 444))"), ifelse(485 * 304,299 >= 444,- (299 >= 444)))
expect_equal(eval_text("(abs(c(485 * 304,299 >= 444))) < (ifelse(485 * 304,299 >= 444,- (299 >= 444)))"), (abs(c(485 * 304,299 >= 444))) < (ifelse(485 * 304,299 >= 444,- (299 >= 444))))

expect_equal(eval_text("449 > 145"), 449 > 145)
expect_equal(eval_text("517 %% 64"), 517 %% 64)
expect_equal(eval_text("(449 > 145) != (517 %% 64)"), (449 > 145) != (517 %% 64))
expect_equal(eval_text("- (517 %% 64)"), - (517 %% 64))
expect_equal(eval_text("(449 > 145) >= (- (517 %% 64))"), (449 > 145) >= (- (517 %% 64)))
expect_equal(eval_text("log(abs(449 > 145)+1)"), log(abs(449 > 145)+1))
expect_equal(eval_text("abs(c(449 > 145,517 %% 64))"), abs(c(449 > 145,517 %% 64)))
expect_equal(eval_text("ifelse(449 > 145,517 %% 64,- (517 %% 64))"), ifelse(449 > 145,517 %% 64,- (517 %% 64)))
expect_equal(eval_text("(abs(c(449 > 145,517 %% 64))) * (ifelse(449 > 145,517 %% 64,- (517 %% 64)))"), (abs(c(449 > 145,517 %% 64))) * (ifelse(449 > 145,517 %% 64,- (517 %% 64))))

expect_equal(eval_text("53 + 947"), 53 + 947)
expect_equal(eval_text("521 > 874"), 521 > 874)
expect_equal(eval_text("(53 + 947) - (521 > 874)"), (53 + 947) - (521 > 874))
expect_equal(eval_text("- (521 > 874)"), - (521 > 874))
#expect_equal(eval_text("(53 + 947) %/% (- (521 > 874))"), (53 + 947) %/% (- (521 > 874)))
expect_equal(eval_text("log(abs(53 + 947)+1)"), log(abs(53 + 947)+1))
expect_equal(eval_text("abs(c(53 + 947,521 > 874))"), abs(c(53 + 947,521 > 874)))
expect_equal(eval_text("ifelse(53 + 947,521 > 874,- (521 > 874))"), ifelse(53 + 947,521 > 874,- (521 > 874)))
expect_equal(eval_text("(abs(c(53 + 947,521 > 874))) %% (ifelse(53 + 947,521 > 874,- (521 > 874)))"), (abs(c(53 + 947,521 > 874))) %% (ifelse(53 + 947,521 > 874,- (521 > 874))))

expect_equal(eval_text("408 >= 822"), 408 >= 822)
expect_equal(eval_text("761 %in% 564"), 761 %in% 564)
expect_equal(eval_text("(408 >= 822) ^ (761 %in% 564)"), (408 >= 822) ^ (761 %in% 564))
expect_equal(eval_text("! (761 %in% 564)"), ! (761 %in% 564))
expect_equal(eval_text("(408 >= 822) < (! (761 %in% 564))"), (408 >= 822) < (! (761 %in% 564)))
expect_equal(eval_text("log(abs(408 >= 822)+1)"), log(abs(408 >= 822)+1))
expect_equal(eval_text("abs(c(408 >= 822,761 %in% 564))"), abs(c(408 >= 822,761 %in% 564)))
expect_equal(eval_text("ifelse(408 >= 822,761 %in% 564,! (761 %in% 564))"), ifelse(408 >= 822,761 %in% 564,! (761 %in% 564)))
expect_equal(eval_text("(abs(c(408 >= 822,761 %in% 564))) %% (ifelse(408 >= 822,761 %in% 564,! (761 %in% 564)))"), (abs(c(408 >= 822,761 %in% 564))) %% (ifelse(408 >= 822,761 %in% 564,! (761 %in% 564))))

expect_equal(eval_text("957 <= 770"), 957 <= 770)
expect_equal(eval_text("93 - 3"), 93 - 3)
expect_equal(eval_text("(957 <= 770) > (93 - 3)"), (957 <= 770) > (93 - 3))
expect_equal(eval_text("- (93 - 3)"), - (93 - 3))
expect_equal(eval_text("(957 <= 770) == (- (93 - 3))"), (957 <= 770) == (- (93 - 3)))
expect_equal(eval_text("log(abs(957 <= 770)+1)"), log(abs(957 <= 770)+1))
expect_equal(eval_text("abs(c(957 <= 770,93 - 3))"), abs(c(957 <= 770,93 - 3)))
expect_equal(eval_text("ifelse(957 <= 770,93 - 3,- (93 - 3))"), ifelse(957 <= 770,93 - 3,- (93 - 3)))
expect_equal(eval_text("(abs(c(957 <= 770,93 - 3))) * (ifelse(957 <= 770,93 - 3,- (93 - 3)))"), (abs(c(957 <= 770,93 - 3))) * (ifelse(957 <= 770,93 - 3,- (93 - 3))))

expect_equal(eval_text("481 == 947"), 481 == 947)
expect_equal(eval_text("781 ^ 718"), 781 ^ 718)
expect_equal(eval_text("(481 == 947) %in% (781 ^ 718)"), (481 == 947) %in% (781 ^ 718))
expect_equal(eval_text("! (781 ^ 718)"), ! (781 ^ 718))
expect_equal(eval_text("(481 == 947) & (! (781 ^ 718))"), (481 == 947) & (! (781 ^ 718)))
expect_equal(eval_text("log(abs(481 == 947)+1)"), log(abs(481 == 947)+1))
expect_equal(eval_text("abs(c(481 == 947,781 ^ 718))"), abs(c(481 == 947,781 ^ 718)))
expect_equal(eval_text("ifelse(481 == 947,781 ^ 718,! (781 ^ 718))"), ifelse(481 == 947,781 ^ 718,! (781 ^ 718)))
expect_equal(eval_text("(abs(c(481 == 947,781 ^ 718))) %in% (ifelse(481 == 947,781 ^ 718,! (781 ^ 718)))"), (abs(c(481 == 947,781 ^ 718))) %in% (ifelse(481 == 947,781 ^ 718,! (781 ^ 718))))

expect_equal(eval_text("347 < 458"), 347 < 458)
expect_equal(eval_text("524 ^ 129"), 524 ^ 129)
expect_equal(eval_text("(347 < 458) & (524 ^ 129)"), (347 < 458) & (524 ^ 129))
expect_equal(eval_text("! (524 ^ 129)"), ! (524 ^ 129))
expect_equal(eval_text("(347 < 458) != (! (524 ^ 129))"), (347 < 458) != (! (524 ^ 129)))
expect_equal(eval_text("log(abs(347 < 458)+1)"), log(abs(347 < 458)+1))
expect_equal(eval_text("abs(c(347 < 458,524 ^ 129))"), abs(c(347 < 458,524 ^ 129)))
expect_equal(eval_text("ifelse(347 < 458,524 ^ 129,! (524 ^ 129))"), ifelse(347 < 458,524 ^ 129,! (524 ^ 129)))
expect_equal(eval_text("(abs(c(347 < 458,524 ^ 129))) * (ifelse(347 < 458,524 ^ 129,! (524 ^ 129)))"), (abs(c(347 < 458,524 ^ 129))) * (ifelse(347 < 458,524 ^ 129,! (524 ^ 129))))

expect_equal(eval_text("111 != 663"), 111 != 663)
expect_equal(eval_text("493 / 631"), 493 / 631)
expect_equal(eval_text("(111 != 663) %/% (493 / 631)"), (111 != 663) %/% (493 / 631))
expect_equal(eval_text("- (493 / 631)"), - (493 / 631))
expect_equal(eval_text("(111 != 663) %in% (- (493 / 631))"), (111 != 663) %in% (- (493 / 631)))
expect_equal(eval_text("log(abs(111 != 663)+1)"), log(abs(111 != 663)+1))
expect_equal(eval_text("abs(c(111 != 663,493 / 631))"), abs(c(111 != 663,493 / 631)))
expect_equal(eval_text("ifelse(111 != 663,493 / 631,- (493 / 631))"), ifelse(111 != 663,493 / 631,- (493 / 631)))
expect_equal(eval_text("(abs(c(111 != 663,493 / 631))) %/% (ifelse(111 != 663,493 / 631,- (493 / 631)))"), (abs(c(111 != 663,493 / 631))) %/% (ifelse(111 != 663,493 / 631,- (493 / 631))))

expect_equal(eval_text("57 | 524"), 57 | 524)
expect_equal(eval_text("933 %/% 769"), 933 %/% 769)
expect_equal(eval_text("(57 | 524) %in% (933 %/% 769)"), (57 | 524) %in% (933 %/% 769))
expect_equal(eval_text("- (933 %/% 769)"), - (933 %/% 769))
expect_equal(eval_text("(57 | 524) | (- (933 %/% 769))"), (57 | 524) | (- (933 %/% 769)))
expect_equal(eval_text("log(abs(57 | 524)+1)"), log(abs(57 | 524)+1))
expect_equal(eval_text("abs(c(57 | 524,933 %/% 769))"), abs(c(57 | 524,933 %/% 769)))
expect_equal(eval_text("ifelse(57 | 524,933 %/% 769,- (933 %/% 769))"), ifelse(57 | 524,933 %/% 769,- (933 %/% 769)))
expect_equal(eval_text("(abs(c(57 | 524,933 %/% 769))) < (ifelse(57 | 524,933 %/% 769,- (933 %/% 769)))"), (abs(c(57 | 524,933 %/% 769))) < (ifelse(57 | 524,933 %/% 769,- (933 %/% 769))))

expect_equal(eval_text("586 %/% 262"), 586 %/% 262)
expect_equal(eval_text("969 & 157"), 969 & 157)
expect_equal(eval_text("(586 %/% 262) %% (969 & 157)"), (586 %/% 262) %% (969 & 157))
expect_equal(eval_text("! (969 & 157)"), ! (969 & 157))
expect_equal(eval_text("(586 %/% 262) | (! (969 & 157))"), (586 %/% 262) | (! (969 & 157)))
expect_equal(eval_text("log(abs(586 %/% 262)+1)"), log(abs(586 %/% 262)+1))
expect_equal(eval_text("abs(c(586 %/% 262,969 & 157))"), abs(c(586 %/% 262,969 & 157)))
expect_equal(eval_text("ifelse(586 %/% 262,969 & 157,! (969 & 157))"), ifelse(586 %/% 262,969 & 157,! (969 & 157)))
expect_equal(eval_text("(abs(c(586 %/% 262,969 & 157))) & (ifelse(586 %/% 262,969 & 157,! (969 & 157)))"), (abs(c(586 %/% 262,969 & 157))) & (ifelse(586 %/% 262,969 & 157,! (969 & 157))))

expect_equal(eval_text("957 %/% 552"), 957 %/% 552)
expect_equal(eval_text("748 %/% 359"), 748 %/% 359)
expect_equal(eval_text("(957 %/% 552) > (748 %/% 359)"), (957 %/% 552) > (748 %/% 359))
expect_equal(eval_text("- (748 %/% 359)"), - (748 %/% 359))
expect_equal(eval_text("(957 %/% 552) + (- (748 %/% 359))"), (957 %/% 552) + (- (748 %/% 359)))
expect_equal(eval_text("log(abs(957 %/% 552)+1)"), log(abs(957 %/% 552)+1))
expect_equal(eval_text("abs(c(957 %/% 552,748 %/% 359))"), abs(c(957 %/% 552,748 %/% 359)))
expect_equal(eval_text("ifelse(957 %/% 552,748 %/% 359,- (748 %/% 359))"), ifelse(957 %/% 552,748 %/% 359,- (748 %/% 359)))
expect_equal(eval_text("(abs(c(957 %/% 552,748 %/% 359))) ^ (ifelse(957 %/% 552,748 %/% 359,- (748 %/% 359)))"), (abs(c(957 %/% 552,748 %/% 359))) ^ (ifelse(957 %/% 552,748 %/% 359,- (748 %/% 359))))

expect_equal(eval_text("182 %% 288"), 182 %% 288)
expect_equal(eval_text("294 >= 46"), 294 >= 46)
expect_equal(eval_text("(182 %% 288) * (294 >= 46)"), (182 %% 288) * (294 >= 46))
expect_equal(eval_text("- (294 >= 46)"), - (294 >= 46))
expect_equal(eval_text("(182 %% 288) != (- (294 >= 46))"), (182 %% 288) != (- (294 >= 46)))
expect_equal(eval_text("log(abs(182 %% 288)+1)"), log(abs(182 %% 288)+1))
expect_equal(eval_text("abs(c(182 %% 288,294 >= 46))"), abs(c(182 %% 288,294 >= 46)))
expect_equal(eval_text("ifelse(182 %% 288,294 >= 46,- (294 >= 46))"), ifelse(182 %% 288,294 >= 46,- (294 >= 46)))
expect_equal(eval_text("(abs(c(182 %% 288,294 >= 46))) %% (ifelse(182 %% 288,294 >= 46,- (294 >= 46)))"), (abs(c(182 %% 288,294 >= 46))) %% (ifelse(182 %% 288,294 >= 46,- (294 >= 46))))

expect_equal(eval_text("616 != 332"), 616 != 332)
expect_equal(eval_text("789 %/% 530"), 789 %/% 530)
expect_equal(eval_text("(616 != 332) %% (789 %/% 530)"), (616 != 332) %% (789 %/% 530))
expect_equal(eval_text("! (789 %/% 530)"), ! (789 %/% 530))
# expect_equal(eval_text("(616 != 332) %/% (! (789 %/% 530))"), (616 != 332) %/% (! (789 %/% 530)))
expect_equal(eval_text("log(abs(616 != 332)+1)"), log(abs(616 != 332)+1))
expect_equal(eval_text("abs(c(616 != 332,789 %/% 530))"), abs(c(616 != 332,789 %/% 530)))
expect_equal(eval_text("ifelse(616 != 332,789 %/% 530,! (789 %/% 530))"), ifelse(616 != 332,789 %/% 530,! (789 %/% 530)))
expect_equal(eval_text("(abs(c(616 != 332,789 %/% 530))) == (ifelse(616 != 332,789 %/% 530,! (789 %/% 530)))"), (abs(c(616 != 332,789 %/% 530))) == (ifelse(616 != 332,789 %/% 530,! (789 %/% 530))))

expect_equal(eval_text("987 >= 55"), 987 >= 55)
expect_equal(eval_text("305 != 953"), 305 != 953)
expect_equal(eval_text("(987 >= 55) | (305 != 953)"), (987 >= 55) | (305 != 953))
expect_equal(eval_text("- (305 != 953)"), - (305 != 953))
expect_equal(eval_text("(987 >= 55) < (- (305 != 953))"), (987 >= 55) < (- (305 != 953)))
expect_equal(eval_text("log(abs(987 >= 55)+1)"), log(abs(987 >= 55)+1))
expect_equal(eval_text("abs(c(987 >= 55,305 != 953))"), abs(c(987 >= 55,305 != 953)))
expect_equal(eval_text("ifelse(987 >= 55,305 != 953,- (305 != 953))"), ifelse(987 >= 55,305 != 953,- (305 != 953)))
expect_equal(eval_text("(abs(c(987 >= 55,305 != 953))) < (ifelse(987 >= 55,305 != 953,- (305 != 953)))"), (abs(c(987 >= 55,305 != 953))) < (ifelse(987 >= 55,305 != 953,- (305 != 953))))

expect_equal(eval_text("231 <= 523"), 231 <= 523)
expect_equal(eval_text("993 %in% 911"), 993 %in% 911)
expect_equal(eval_text("(231 <= 523) ^ (993 %in% 911)"), (231 <= 523) ^ (993 %in% 911))
expect_equal(eval_text("- (993 %in% 911)"), - (993 %in% 911))
expect_equal(eval_text("(231 <= 523) - (- (993 %in% 911))"), (231 <= 523) - (- (993 %in% 911)))
expect_equal(eval_text("log(abs(231 <= 523)+1)"), log(abs(231 <= 523)+1))
expect_equal(eval_text("abs(c(231 <= 523,993 %in% 911))"), abs(c(231 <= 523,993 %in% 911)))
expect_equal(eval_text("ifelse(231 <= 523,993 %in% 911,- (993 %in% 911))"), ifelse(231 <= 523,993 %in% 911,- (993 %in% 911)))
expect_equal(eval_text("(abs(c(231 <= 523,993 %in% 911))) %% (ifelse(231 <= 523,993 %in% 911,- (993 %in% 911)))"), (abs(c(231 <= 523,993 %in% 911))) %% (ifelse(231 <= 523,993 %in% 911,- (993 %in% 911))))

expect_equal(eval_text("169 > 874"), 169 > 874)
expect_equal(eval_text("665 / 728"), 665 / 728)
expect_equal(eval_text("(169 > 874) / (665 / 728)"), (169 > 874) / (665 / 728))
expect_equal(eval_text("- (665 / 728)"), - (665 / 728))
expect_equal(eval_text("(169 > 874) %% (- (665 / 728))"), (169 > 874) %% (- (665 / 728)))
expect_equal(eval_text("log(abs(169 > 874)+1)"), log(abs(169 > 874)+1))
expect_equal(eval_text("abs(c(169 > 874,665 / 728))"), abs(c(169 > 874,665 / 728)))
expect_equal(eval_text("ifelse(169 > 874,665 / 728,- (665 / 728))"), ifelse(169 > 874,665 / 728,- (665 / 728)))
expect_equal(eval_text("(abs(c(169 > 874,665 / 728))) + (ifelse(169 > 874,665 / 728,- (665 / 728)))"), (abs(c(169 > 874,665 / 728))) + (ifelse(169 > 874,665 / 728,- (665 / 728))))

expect_equal(eval_text("443 * 987"), 443 * 987)
expect_equal(eval_text("595 %% 852"), 595 %% 852)
expect_equal(eval_text("(443 * 987) != (595 %% 852)"), (443 * 987) != (595 %% 852))
expect_equal(eval_text("- (595 %% 852)"), - (595 %% 852))
expect_equal(eval_text("(443 * 987) == (- (595 %% 852))"), (443 * 987) == (- (595 %% 852)))
expect_equal(eval_text("log(abs(443 * 987)+1)"), log(abs(443 * 987)+1))
expect_equal(eval_text("abs(c(443 * 987,595 %% 852))"), abs(c(443 * 987,595 %% 852)))
expect_equal(eval_text("ifelse(443 * 987,595 %% 852,- (595 %% 852))"), ifelse(443 * 987,595 %% 852,- (595 %% 852)))
expect_equal(eval_text("(abs(c(443 * 987,595 %% 852))) > (ifelse(443 * 987,595 %% 852,- (595 %% 852)))"), (abs(c(443 * 987,595 %% 852))) > (ifelse(443 * 987,595 %% 852,- (595 %% 852))))

expect_equal(eval_text("847 / 271"), 847 / 271)
expect_equal(eval_text("872 %in% 521"), 872 %in% 521)
expect_equal(eval_text("(847 / 271) == (872 %in% 521)"), (847 / 271) == (872 %in% 521))
expect_equal(eval_text("! (872 %in% 521)"), ! (872 %in% 521))
expect_equal(eval_text("(847 / 271) < (! (872 %in% 521))"), (847 / 271) < (! (872 %in% 521)))
expect_equal(eval_text("log(abs(847 / 271)+1)"), log(abs(847 / 271)+1))
expect_equal(eval_text("abs(c(847 / 271,872 %in% 521))"), abs(c(847 / 271,872 %in% 521)))
expect_equal(eval_text("ifelse(847 / 271,872 %in% 521,! (872 %in% 521))"), ifelse(847 / 271,872 %in% 521,! (872 %in% 521)))
expect_equal(eval_text("(abs(c(847 / 271,872 %in% 521))) <= (ifelse(847 / 271,872 %in% 521,! (872 %in% 521)))"), (abs(c(847 / 271,872 %in% 521))) <= (ifelse(847 / 271,872 %in% 521,! (872 %in% 521))))

expect_equal(eval_text("92 %in% 201"), 92 %in% 201)
expect_equal(eval_text("539 < 259"), 539 < 259)
expect_equal(eval_text("(92 %in% 201) | (539 < 259)"), (92 %in% 201) | (539 < 259))
expect_equal(eval_text("! (539 < 259)"), ! (539 < 259))
expect_equal(eval_text("(92 %in% 201) %% (! (539 < 259))"), (92 %in% 201) %% (! (539 < 259)))
expect_equal(eval_text("log(abs(92 %in% 201)+1)"), log(abs(92 %in% 201)+1))
expect_equal(eval_text("abs(c(92 %in% 201,539 < 259))"), abs(c(92 %in% 201,539 < 259)))
expect_equal(eval_text("ifelse(92 %in% 201,539 < 259,! (539 < 259))"), ifelse(92 %in% 201,539 < 259,! (539 < 259)))
expect_equal(eval_text("(abs(c(92 %in% 201,539 < 259))) %in% (ifelse(92 %in% 201,539 < 259,! (539 < 259)))"), (abs(c(92 %in% 201,539 < 259))) %in% (ifelse(92 %in% 201,539 < 259,! (539 < 259))))

expect_equal(eval_text("957 - 339"), 957 - 339)
expect_equal(eval_text("249 <= 876"), 249 <= 876)
expect_equal(eval_text("(957 - 339) <= (249 <= 876)"), (957 - 339) <= (249 <= 876))
expect_equal(eval_text("! (249 <= 876)"), ! (249 <= 876))
expect_equal(eval_text("(957 - 339) %in% (! (249 <= 876))"), (957 - 339) %in% (! (249 <= 876)))
expect_equal(eval_text("log(abs(957 - 339)+1)"), log(abs(957 - 339)+1))
expect_equal(eval_text("abs(c(957 - 339,249 <= 876))"), abs(c(957 - 339,249 <= 876)))
expect_equal(eval_text("ifelse(957 - 339,249 <= 876,! (249 <= 876))"), ifelse(957 - 339,249 <= 876,! (249 <= 876)))
expect_equal(eval_text("(abs(c(957 - 339,249 <= 876))) < (ifelse(957 - 339,249 <= 876,! (249 <= 876)))"), (abs(c(957 - 339,249 <= 876))) < (ifelse(957 - 339,249 <= 876,! (249 <= 876))))

expect_equal(eval_text("754 == 777"), 754 == 777)
expect_equal(eval_text("308 & 840"), 308 & 840)
expect_equal(eval_text("(754 == 777) %in% (308 & 840)"), (754 == 777) %in% (308 & 840))
expect_equal(eval_text("! (308 & 840)"), ! (308 & 840))
expect_equal(eval_text("(754 == 777) != (! (308 & 840))"), (754 == 777) != (! (308 & 840)))
expect_equal(eval_text("log(abs(754 == 777)+1)"), log(abs(754 == 777)+1))
expect_equal(eval_text("abs(c(754 == 777,308 & 840))"), abs(c(754 == 777,308 & 840)))
expect_equal(eval_text("ifelse(754 == 777,308 & 840,! (308 & 840))"), ifelse(754 == 777,308 & 840,! (308 & 840)))
expect_equal(eval_text("(abs(c(754 == 777,308 & 840))) != (ifelse(754 == 777,308 & 840,! (308 & 840)))"), (abs(c(754 == 777,308 & 840))) != (ifelse(754 == 777,308 & 840,! (308 & 840))))

expect_equal(eval_text("6 ^ 9"), 6 ^ 9)
expect_equal(eval_text("714 < 105"), 714 < 105)
expect_equal(eval_text("(6 ^ 9) %% (714 < 105)"), (6 ^ 9) %% (714 < 105))
expect_equal(eval_text("! (714 < 105)"), ! (714 < 105))
expect_equal(eval_text("(6 ^ 9) + (! (714 < 105))"), (6 ^ 9) + (! (714 < 105)))
expect_equal(eval_text("log(abs(6 ^ 9)+1)"), log(abs(6 ^ 9)+1))
expect_equal(eval_text("abs(c(6 ^ 9,714 < 105))"), abs(c(6 ^ 9,714 < 105)))
expect_equal(eval_text("ifelse(6 ^ 9,714 < 105,! (714 < 105))"), ifelse(6 ^ 9,714 < 105,! (714 < 105)))
expect_equal(eval_text("(abs(c(6 ^ 9,714 < 105))) >= (ifelse(6 ^ 9,714 < 105,! (714 < 105)))"), (abs(c(6 ^ 9,714 < 105))) >= (ifelse(6 ^ 9,714 < 105,! (714 < 105))))

expect_equal(eval_text("103 + 769"), 103 + 769)
expect_equal(eval_text("199 ^ 715"), 199 ^ 715)
expect_equal(eval_text("(103 + 769) - (199 ^ 715)"), (103 + 769) - (199 ^ 715))
expect_equal(eval_text("- (199 ^ 715)"), - (199 ^ 715))
expect_equal(eval_text("(103 + 769) - (- (199 ^ 715))"), (103 + 769) - (- (199 ^ 715)))
expect_equal(eval_text("log(abs(103 + 769)+1)"), log(abs(103 + 769)+1))
expect_equal(eval_text("abs(c(103 + 769,199 ^ 715))"), abs(c(103 + 769,199 ^ 715)))
expect_equal(eval_text("ifelse(103 + 769,199 ^ 715,- (199 ^ 715))"), ifelse(103 + 769,199 ^ 715,- (199 ^ 715)))
expect_equal(eval_text("(abs(c(103 + 769,199 ^ 715))) & (ifelse(103 + 769,199 ^ 715,- (199 ^ 715)))"), (abs(c(103 + 769,199 ^ 715))) & (ifelse(103 + 769,199 ^ 715,- (199 ^ 715))))

expect_equal(eval_text("230 - 554"), 230 - 554)
expect_equal(eval_text("535 >= 845"), 535 >= 845)
expect_equal(eval_text("(230 - 554) %/% (535 >= 845)"), (230 - 554) %/% (535 >= 845))
expect_equal(eval_text("! (535 >= 845)"), ! (535 >= 845))
expect_equal(eval_text("(230 - 554) != (! (535 >= 845))"), (230 - 554) != (! (535 >= 845)))
expect_equal(eval_text("log(abs(230 - 554)+1)"), log(abs(230 - 554)+1))
expect_equal(eval_text("abs(c(230 - 554,535 >= 845))"), abs(c(230 - 554,535 >= 845)))
expect_equal(eval_text("ifelse(230 - 554,535 >= 845,! (535 >= 845))"), ifelse(230 - 554,535 >= 845,! (535 >= 845)))
expect_equal(eval_text("(abs(c(230 - 554,535 >= 845))) + (ifelse(230 - 554,535 >= 845,! (535 >= 845)))"), (abs(c(230 - 554,535 >= 845))) + (ifelse(230 - 554,535 >= 845,! (535 >= 845))))

expect_equal(eval_text("362 == 442"), 362 == 442)
expect_equal(eval_text("668 != 223"), 668 != 223)
expect_equal(eval_text("(362 == 442) <= (668 != 223)"), (362 == 442) <= (668 != 223))
expect_equal(eval_text("! (668 != 223)"), ! (668 != 223))
expect_equal(eval_text("(362 == 442) * (! (668 != 223))"), (362 == 442) * (! (668 != 223)))
expect_equal(eval_text("log(abs(362 == 442)+1)"), log(abs(362 == 442)+1))
expect_equal(eval_text("abs(c(362 == 442,668 != 223))"), abs(c(362 == 442,668 != 223)))
expect_equal(eval_text("ifelse(362 == 442,668 != 223,! (668 != 223))"), ifelse(362 == 442,668 != 223,! (668 != 223)))
expect_equal(eval_text("(abs(c(362 == 442,668 != 223))) %in% (ifelse(362 == 442,668 != 223,! (668 != 223)))"), (abs(c(362 == 442,668 != 223))) %in% (ifelse(362 == 442,668 != 223,! (668 != 223))))

expect_equal(eval_text("238 ^ 365"), 238 ^ 365)
expect_equal(eval_text("662 - 907"), 662 - 907)
expect_equal(eval_text("(238 ^ 365) - (662 - 907)"), (238 ^ 365) - (662 - 907))
expect_equal(eval_text("- (662 - 907)"), - (662 - 907))
expect_equal(eval_text("(238 ^ 365) & (- (662 - 907))"), (238 ^ 365) & (- (662 - 907)))
expect_equal(eval_text("log(abs(238 ^ 365)+1)"), log(abs(238 ^ 365)+1))
expect_equal(eval_text("abs(c(238 ^ 365,662 - 907))"), abs(c(238 ^ 365,662 - 907)))
expect_equal(eval_text("ifelse(238 ^ 365,662 - 907,- (662 - 907))"), ifelse(238 ^ 365,662 - 907,- (662 - 907)))
expect_equal(eval_text("(abs(c(238 ^ 365,662 - 907))) ^ (ifelse(238 ^ 365,662 - 907,- (662 - 907)))"), (abs(c(238 ^ 365,662 - 907))) ^ (ifelse(238 ^ 365,662 - 907,- (662 - 907))))

expect_equal(eval_text("366 + 149"), 366 + 149)
expect_equal(eval_text("211 %in% 732"), 211 %in% 732)
expect_equal(eval_text("(366 + 149) %in% (211 %in% 732)"), (366 + 149) %in% (211 %in% 732))
expect_equal(eval_text("! (211 %in% 732)"), ! (211 %in% 732))
expect_equal(eval_text("(366 + 149) >= (! (211 %in% 732))"), (366 + 149) >= (! (211 %in% 732)))
expect_equal(eval_text("log(abs(366 + 149)+1)"), log(abs(366 + 149)+1))
expect_equal(eval_text("abs(c(366 + 149,211 %in% 732))"), abs(c(366 + 149,211 %in% 732)))
expect_equal(eval_text("ifelse(366 + 149,211 %in% 732,! (211 %in% 732))"), ifelse(366 + 149,211 %in% 732,! (211 %in% 732)))
expect_equal(eval_text("(abs(c(366 + 149,211 %in% 732))) | (ifelse(366 + 149,211 %in% 732,! (211 %in% 732)))"), (abs(c(366 + 149,211 %in% 732))) | (ifelse(366 + 149,211 %in% 732,! (211 %in% 732))))

expect_equal(eval_text("716 > 794"), 716 > 794)
expect_equal(eval_text("410 < 212"), 410 < 212)
expect_equal(eval_text("(716 > 794) >= (410 < 212)"), (716 > 794) >= (410 < 212))
expect_equal(eval_text("- (410 < 212)"), - (410 < 212))
expect_equal(eval_text("(716 > 794) <= (- (410 < 212))"), (716 > 794) <= (- (410 < 212)))
expect_equal(eval_text("log(abs(716 > 794)+1)"), log(abs(716 > 794)+1))
expect_equal(eval_text("abs(c(716 > 794,410 < 212))"), abs(c(716 > 794,410 < 212)))
expect_equal(eval_text("ifelse(716 > 794,410 < 212,- (410 < 212))"), ifelse(716 > 794,410 < 212,- (410 < 212)))
expect_equal(eval_text("(abs(c(716 > 794,410 < 212))) & (ifelse(716 > 794,410 < 212,- (410 < 212)))"), (abs(c(716 > 794,410 < 212))) & (ifelse(716 > 794,410 < 212,- (410 < 212))))

expect_equal(eval_text("346 | 613"), 346 | 613)
expect_equal(eval_text("555 >= 639"), 555 >= 639)
expect_equal(eval_text("(346 | 613) %% (555 >= 639)"), (346 | 613) %% (555 >= 639))
expect_equal(eval_text("- (555 >= 639)"), - (555 >= 639))
# expect_equal(eval_text("(346 | 613) / (- (555 >= 639))"), (346 | 613) / (- (555 >= 639)))
expect_equal(eval_text("log(abs(346 | 613)+1)"), log(abs(346 | 613)+1))
expect_equal(eval_text("abs(c(346 | 613,555 >= 639))"), abs(c(346 | 613,555 >= 639)))
expect_equal(eval_text("ifelse(346 | 613,555 >= 639,- (555 >= 639))"), ifelse(346 | 613,555 >= 639,- (555 >= 639)))
expect_equal(eval_text("(abs(c(346 | 613,555 >= 639))) >= (ifelse(346 | 613,555 >= 639,- (555 >= 639)))"), (abs(c(346 | 613,555 >= 639))) >= (ifelse(346 | 613,555 >= 639,- (555 >= 639))))

expect_equal(eval_text("328 / 404"), 328 / 404)
expect_equal(eval_text("489 & 559"), 489 & 559)
expect_equal(eval_text("(328 / 404) / (489 & 559)"), (328 / 404) / (489 & 559))
expect_equal(eval_text("! (489 & 559)"), ! (489 & 559))
expect_equal(eval_text("(328 / 404) > (! (489 & 559))"), (328 / 404) > (! (489 & 559)))
expect_equal(eval_text("log(abs(328 / 404)+1)"), log(abs(328 / 404)+1))
expect_equal(eval_text("abs(c(328 / 404,489 & 559))"), abs(c(328 / 404,489 & 559)))
expect_equal(eval_text("ifelse(328 / 404,489 & 559,! (489 & 559))"), ifelse(328 / 404,489 & 559,! (489 & 559)))
expect_equal(eval_text("(abs(c(328 / 404,489 & 559))) / (ifelse(328 / 404,489 & 559,! (489 & 559)))"), (abs(c(328 / 404,489 & 559))) / (ifelse(328 / 404,489 & 559,! (489 & 559))))

expect_equal(eval_text("365 %/% 594"), 365 %/% 594)
expect_equal(eval_text("588 >= 93"), 588 >= 93)
expect_equal(eval_text("(365 %/% 594) == (588 >= 93)"), (365 %/% 594) == (588 >= 93))
expect_equal(eval_text("- (588 >= 93)"), - (588 >= 93))
expect_equal(eval_text("(365 %/% 594) / (- (588 >= 93))"), (365 %/% 594) / (- (588 >= 93)))
expect_equal(eval_text("log(abs(365 %/% 594)+1)"), log(abs(365 %/% 594)+1))
expect_equal(eval_text("abs(c(365 %/% 594,588 >= 93))"), abs(c(365 %/% 594,588 >= 93)))
expect_equal(eval_text("ifelse(365 %/% 594,588 >= 93,- (588 >= 93))"), ifelse(365 %/% 594,588 >= 93,- (588 >= 93)))
expect_equal(eval_text("(abs(c(365 %/% 594,588 >= 93))) + (ifelse(365 %/% 594,588 >= 93,- (588 >= 93)))"), (abs(c(365 %/% 594,588 >= 93))) + (ifelse(365 %/% 594,588 >= 93,- (588 >= 93))))

expect_equal(eval_text("622 * 263"), 622 * 263)
expect_equal(eval_text("978 & 215"), 978 & 215)
expect_equal(eval_text("(622 * 263) < (978 & 215)"), (622 * 263) < (978 & 215))
expect_equal(eval_text("- (978 & 215)"), - (978 & 215))
expect_equal(eval_text("(622 * 263) | (- (978 & 215))"), (622 * 263) | (- (978 & 215)))
expect_equal(eval_text("log(abs(622 * 263)+1)"), log(abs(622 * 263)+1))
expect_equal(eval_text("abs(c(622 * 263,978 & 215))"), abs(c(622 * 263,978 & 215)))
expect_equal(eval_text("ifelse(622 * 263,978 & 215,- (978 & 215))"), ifelse(622 * 263,978 & 215,- (978 & 215)))
expect_equal(eval_text("(abs(c(622 * 263,978 & 215))) / (ifelse(622 * 263,978 & 215,- (978 & 215)))"), (abs(c(622 * 263,978 & 215))) / (ifelse(622 * 263,978 & 215,- (978 & 215))))

expect_equal(eval_text("93 == 83"), 93 == 83)
expect_equal(eval_text("869 != 698"), 869 != 698)
expect_equal(eval_text("(93 == 83) %/% (869 != 698)"), (93 == 83) %/% (869 != 698))
expect_equal(eval_text("! (869 != 698)"), ! (869 != 698))
expect_equal(eval_text("(93 == 83) ^ (! (869 != 698))"), (93 == 83) ^ (! (869 != 698)))
expect_equal(eval_text("log(abs(93 == 83)+1)"), log(abs(93 == 83)+1))
expect_equal(eval_text("abs(c(93 == 83,869 != 698))"), abs(c(93 == 83,869 != 698)))
expect_equal(eval_text("ifelse(93 == 83,869 != 698,! (869 != 698))"), ifelse(93 == 83,869 != 698,! (869 != 698)))
expect_equal(eval_text("(abs(c(93 == 83,869 != 698))) == (ifelse(93 == 83,869 != 698,! (869 != 698)))"), (abs(c(93 == 83,869 != 698))) == (ifelse(93 == 83,869 != 698,! (869 != 698))))

expect_equal(eval_text("673 > 568"), 673 > 568)
expect_equal(eval_text("421 %/% 370"), 421 %/% 370)
expect_equal(eval_text("(673 > 568) | (421 %/% 370)"), (673 > 568) | (421 %/% 370))
expect_equal(eval_text("! (421 %/% 370)"), ! (421 %/% 370))
expect_equal(eval_text("(673 > 568) + (! (421 %/% 370))"), (673 > 568) + (! (421 %/% 370)))
expect_equal(eval_text("log(abs(673 > 568)+1)"), log(abs(673 > 568)+1))
expect_equal(eval_text("abs(c(673 > 568,421 %/% 370))"), abs(c(673 > 568,421 %/% 370)))
expect_equal(eval_text("ifelse(673 > 568,421 %/% 370,! (421 %/% 370))"), ifelse(673 > 568,421 %/% 370,! (421 %/% 370)))
expect_equal(eval_text("(abs(c(673 > 568,421 %/% 370))) | (ifelse(673 > 568,421 %/% 370,! (421 %/% 370)))"), (abs(c(673 > 568,421 %/% 370))) | (ifelse(673 > 568,421 %/% 370,! (421 %/% 370))))

expect_equal(eval_text("970 > 15"), 970 > 15)
expect_equal(eval_text("620 * 757"), 620 * 757)
expect_equal(eval_text("(970 > 15) >= (620 * 757)"), (970 > 15) >= (620 * 757))
expect_equal(eval_text("! (620 * 757)"), ! (620 * 757))
expect_equal(eval_text("(970 > 15) == (! (620 * 757))"), (970 > 15) == (! (620 * 757)))
expect_equal(eval_text("log(abs(970 > 15)+1)"), log(abs(970 > 15)+1))
expect_equal(eval_text("abs(c(970 > 15,620 * 757))"), abs(c(970 > 15,620 * 757)))
expect_equal(eval_text("ifelse(970 > 15,620 * 757,! (620 * 757))"), ifelse(970 > 15,620 * 757,! (620 * 757)))
expect_equal(eval_text("(abs(c(970 > 15,620 * 757))) %/% (ifelse(970 > 15,620 * 757,! (620 * 757)))"), (abs(c(970 > 15,620 * 757))) %/% (ifelse(970 > 15,620 * 757,! (620 * 757))))

expect_equal(eval_text("86 | 759"), 86 | 759)
expect_equal(eval_text("141 != 895"), 141 != 895)
expect_equal(eval_text("(86 | 759) %in% (141 != 895)"), (86 | 759) %in% (141 != 895))
expect_equal(eval_text("- (141 != 895)"), - (141 != 895))
expect_equal(eval_text("(86 | 759) %/% (- (141 != 895))"), (86 | 759) %/% (- (141 != 895)))
expect_equal(eval_text("log(abs(86 | 759)+1)"), log(abs(86 | 759)+1))
expect_equal(eval_text("abs(c(86 | 759,141 != 895))"), abs(c(86 | 759,141 != 895)))
expect_equal(eval_text("ifelse(86 | 759,141 != 895,- (141 != 895))"), ifelse(86 | 759,141 != 895,- (141 != 895)))
expect_equal(eval_text("(abs(c(86 | 759,141 != 895))) - (ifelse(86 | 759,141 != 895,- (141 != 895)))"), (abs(c(86 | 759,141 != 895))) - (ifelse(86 | 759,141 != 895,- (141 != 895))))

expect_equal(eval_text("312 + 275"), 312 + 275)
expect_equal(eval_text("477 < 927"), 477 < 927)
expect_equal(eval_text("(312 + 275) == (477 < 927)"), (312 + 275) == (477 < 927))
expect_equal(eval_text("! (477 < 927)"), ! (477 < 927))
expect_equal(eval_text("(312 + 275) ^ (! (477 < 927))"), (312 + 275) ^ (! (477 < 927)))
expect_equal(eval_text("log(abs(312 + 275)+1)"), log(abs(312 + 275)+1))
expect_equal(eval_text("abs(c(312 + 275,477 < 927))"), abs(c(312 + 275,477 < 927)))
expect_equal(eval_text("ifelse(312 + 275,477 < 927,! (477 < 927))"), ifelse(312 + 275,477 < 927,! (477 < 927)))
expect_equal(eval_text("(abs(c(312 + 275,477 < 927))) > (ifelse(312 + 275,477 < 927,! (477 < 927)))"), (abs(c(312 + 275,477 < 927))) > (ifelse(312 + 275,477 < 927,! (477 < 927))))

expect_equal(eval_text("360 %/% 155"), 360 %/% 155)
expect_equal(eval_text("76 %% 624"), 76 %% 624)
expect_equal(eval_text("(360 %/% 155) / (76 %% 624)"), (360 %/% 155) / (76 %% 624))
expect_equal(eval_text("! (76 %% 624)"), ! (76 %% 624))
expect_equal(eval_text("(360 %/% 155) != (! (76 %% 624))"), (360 %/% 155) != (! (76 %% 624)))
expect_equal(eval_text("log(abs(360 %/% 155)+1)"), log(abs(360 %/% 155)+1))
expect_equal(eval_text("abs(c(360 %/% 155,76 %% 624))"), abs(c(360 %/% 155,76 %% 624)))
expect_equal(eval_text("ifelse(360 %/% 155,76 %% 624,! (76 %% 624))"), ifelse(360 %/% 155,76 %% 624,! (76 %% 624)))
expect_equal(eval_text("(abs(c(360 %/% 155,76 %% 624))) * (ifelse(360 %/% 155,76 %% 624,! (76 %% 624)))"), (abs(c(360 %/% 155,76 %% 624))) * (ifelse(360 %/% 155,76 %% 624,! (76 %% 624))))

expect_equal(eval_text("656 - 832"), 656 - 832)
expect_equal(eval_text("801 < 24"), 801 < 24)
expect_equal(eval_text("(656 - 832) | (801 < 24)"), (656 - 832) | (801 < 24))
expect_equal(eval_text("! (801 < 24)"), ! (801 < 24))
expect_equal(eval_text("(656 - 832) ^ (! (801 < 24))"), (656 - 832) ^ (! (801 < 24)))
expect_equal(eval_text("log(abs(656 - 832)+1)"), log(abs(656 - 832)+1))
expect_equal(eval_text("abs(c(656 - 832,801 < 24))"), abs(c(656 - 832,801 < 24)))
expect_equal(eval_text("ifelse(656 - 832,801 < 24,! (801 < 24))"), ifelse(656 - 832,801 < 24,! (801 < 24)))
expect_equal(eval_text("(abs(c(656 - 832,801 < 24))) != (ifelse(656 - 832,801 < 24,! (801 < 24)))"), (abs(c(656 - 832,801 < 24))) != (ifelse(656 - 832,801 < 24,! (801 < 24))))

expect_equal(eval_text("184 | 76"), 184 | 76)
expect_equal(eval_text("442 | 743"), 442 | 743)
expect_equal(eval_text("(184 | 76) %in% (442 | 743)"), (184 | 76) %in% (442 | 743))
expect_equal(eval_text("- (442 | 743)"), - (442 | 743))
expect_equal(eval_text("(184 | 76) <= (- (442 | 743))"), (184 | 76) <= (- (442 | 743)))
expect_equal(eval_text("log(abs(184 | 76)+1)"), log(abs(184 | 76)+1))
expect_equal(eval_text("abs(c(184 | 76,442 | 743))"), abs(c(184 | 76,442 | 743)))
expect_equal(eval_text("ifelse(184 | 76,442 | 743,- (442 | 743))"), ifelse(184 | 76,442 | 743,- (442 | 743)))
expect_equal(eval_text("(abs(c(184 | 76,442 | 743))) | (ifelse(184 | 76,442 | 743,- (442 | 743)))"), (abs(c(184 | 76,442 | 743))) | (ifelse(184 | 76,442 | 743,- (442 | 743))))

expect_equal(eval_text("267 %/% 908"), 267 %/% 908)
expect_equal(eval_text("203 %in% 577"), 203 %in% 577)
expect_equal(eval_text("(267 %/% 908) < (203 %in% 577)"), (267 %/% 908) < (203 %in% 577))
expect_equal(eval_text("! (203 %in% 577)"), ! (203 %in% 577))
expect_equal(eval_text("(267 %/% 908) == (! (203 %in% 577))"), (267 %/% 908) == (! (203 %in% 577)))
expect_equal(eval_text("log(abs(267 %/% 908)+1)"), log(abs(267 %/% 908)+1))
expect_equal(eval_text("abs(c(267 %/% 908,203 %in% 577))"), abs(c(267 %/% 908,203 %in% 577)))
expect_equal(eval_text("ifelse(267 %/% 908,203 %in% 577,! (203 %in% 577))"), ifelse(267 %/% 908,203 %in% 577,! (203 %in% 577)))
expect_equal(eval_text("(abs(c(267 %/% 908,203 %in% 577))) * (ifelse(267 %/% 908,203 %in% 577,! (203 %in% 577)))"), (abs(c(267 %/% 908,203 %in% 577))) * (ifelse(267 %/% 908,203 %in% 577,! (203 %in% 577))))

expect_equal(eval_text("791 - 264"), 791 - 264)
expect_equal(eval_text("579 <= 57"), 579 <= 57)
expect_equal(eval_text("(791 - 264) == (579 <= 57)"), (791 - 264) == (579 <= 57))
expect_equal(eval_text("- (579 <= 57)"), - (579 <= 57))
expect_equal(eval_text("(791 - 264) | (- (579 <= 57))"), (791 - 264) | (- (579 <= 57)))
expect_equal(eval_text("log(abs(791 - 264)+1)"), log(abs(791 - 264)+1))
expect_equal(eval_text("abs(c(791 - 264,579 <= 57))"), abs(c(791 - 264,579 <= 57)))
expect_equal(eval_text("ifelse(791 - 264,579 <= 57,- (579 <= 57))"), ifelse(791 - 264,579 <= 57,- (579 <= 57)))
expect_equal(eval_text("(abs(c(791 - 264,579 <= 57))) | (ifelse(791 - 264,579 <= 57,- (579 <= 57)))"), (abs(c(791 - 264,579 <= 57))) | (ifelse(791 - 264,579 <= 57,- (579 <= 57))))

expect_equal(eval_text("805 != 237"), 805 != 237)
expect_equal(eval_text("147 ^ 465"), 147 ^ 465)
expect_equal(eval_text("(805 != 237) %/% (147 ^ 465)"), (805 != 237) %/% (147 ^ 465))
expect_equal(eval_text("! (147 ^ 465)"), ! (147 ^ 465))
expect_equal(eval_text("(805 != 237) / (! (147 ^ 465))"), (805 != 237) / (! (147 ^ 465)))
expect_equal(eval_text("log(abs(805 != 237)+1)"), log(abs(805 != 237)+1))
expect_equal(eval_text("abs(c(805 != 237,147 ^ 465))"), abs(c(805 != 237,147 ^ 465)))
expect_equal(eval_text("ifelse(805 != 237,147 ^ 465,! (147 ^ 465))"), ifelse(805 != 237,147 ^ 465,! (147 ^ 465)))
expect_equal(eval_text("(abs(c(805 != 237,147 ^ 465))) == (ifelse(805 != 237,147 ^ 465,! (147 ^ 465)))"), (abs(c(805 != 237,147 ^ 465))) == (ifelse(805 != 237,147 ^ 465,! (147 ^ 465))))

expect_equal(eval_text("343 - 582"), 343 - 582)
expect_equal(eval_text("891 * 247"), 891 * 247)
expect_equal(eval_text("(343 - 582) == (891 * 247)"), (343 - 582) == (891 * 247))
expect_equal(eval_text("- (891 * 247)"), - (891 * 247))
expect_equal(eval_text("(343 - 582) %% (- (891 * 247))"), (343 - 582) %% (- (891 * 247)))
expect_equal(eval_text("log(abs(343 - 582)+1)"), log(abs(343 - 582)+1))
expect_equal(eval_text("abs(c(343 - 582,891 * 247))"), abs(c(343 - 582,891 * 247)))
expect_equal(eval_text("ifelse(343 - 582,891 * 247,- (891 * 247))"), ifelse(343 - 582,891 * 247,- (891 * 247)))
expect_equal(eval_text("(abs(c(343 - 582,891 * 247))) %/% (ifelse(343 - 582,891 * 247,- (891 * 247)))"), (abs(c(343 - 582,891 * 247))) %/% (ifelse(343 - 582,891 * 247,- (891 * 247))))

expect_equal(eval_text("179 + 19"), 179 + 19)
expect_equal(eval_text("260 %in% 326"), 260 %in% 326)
expect_equal(eval_text("(179 + 19) == (260 %in% 326)"), (179 + 19) == (260 %in% 326))
expect_equal(eval_text("! (260 %in% 326)"), ! (260 %in% 326))
expect_equal(eval_text("(179 + 19) >= (! (260 %in% 326))"), (179 + 19) >= (! (260 %in% 326)))
expect_equal(eval_text("log(abs(179 + 19)+1)"), log(abs(179 + 19)+1))
expect_equal(eval_text("abs(c(179 + 19,260 %in% 326))"), abs(c(179 + 19,260 %in% 326)))
expect_equal(eval_text("ifelse(179 + 19,260 %in% 326,! (260 %in% 326))"), ifelse(179 + 19,260 %in% 326,! (260 %in% 326)))
expect_equal(eval_text("(abs(c(179 + 19,260 %in% 326))) %% (ifelse(179 + 19,260 %in% 326,! (260 %in% 326)))"), (abs(c(179 + 19,260 %in% 326))) %% (ifelse(179 + 19,260 %in% 326,! (260 %in% 326))))

expect_equal(eval_text("494 > 892"), 494 > 892)
expect_equal(eval_text("730 > 820"), 730 > 820)
expect_equal(eval_text("(494 > 892) == (730 > 820)"), (494 > 892) == (730 > 820))
expect_equal(eval_text("! (730 > 820)"), ! (730 > 820))
expect_equal(eval_text("(494 > 892) * (! (730 > 820))"), (494 > 892) * (! (730 > 820)))
expect_equal(eval_text("log(abs(494 > 892)+1)"), log(abs(494 > 892)+1))
expect_equal(eval_text("abs(c(494 > 892,730 > 820))"), abs(c(494 > 892,730 > 820)))
expect_equal(eval_text("ifelse(494 > 892,730 > 820,! (730 > 820))"), ifelse(494 > 892,730 > 820,! (730 > 820)))
expect_equal(eval_text("(abs(c(494 > 892,730 > 820))) %% (ifelse(494 > 892,730 > 820,! (730 > 820)))"), (abs(c(494 > 892,730 > 820))) %% (ifelse(494 > 892,730 > 820,! (730 > 820))))

expect_equal(eval_text("474 %/% 787"), 474 %/% 787)
expect_equal(eval_text("782 %/% 767"), 782 %/% 767)
expect_equal(eval_text("(474 %/% 787) %% (782 %/% 767)"), (474 %/% 787) %% (782 %/% 767))
expect_equal(eval_text("- (782 %/% 767)"), - (782 %/% 767))
expect_equal(eval_text("(474 %/% 787) + (- (782 %/% 767))"), (474 %/% 787) + (- (782 %/% 767)))
expect_equal(eval_text("log(abs(474 %/% 787)+1)"), log(abs(474 %/% 787)+1))
expect_equal(eval_text("abs(c(474 %/% 787,782 %/% 767))"), abs(c(474 %/% 787,782 %/% 767)))
expect_equal(eval_text("ifelse(474 %/% 787,782 %/% 767,- (782 %/% 767))"), ifelse(474 %/% 787,782 %/% 767,- (782 %/% 767)))
expect_equal(eval_text("(abs(c(474 %/% 787,782 %/% 767))) - (ifelse(474 %/% 787,782 %/% 767,- (782 %/% 767)))"), (abs(c(474 %/% 787,782 %/% 767))) - (ifelse(474 %/% 787,782 %/% 767,- (782 %/% 767))))

expect_equal(eval_text("566 <= 280"), 566 <= 280)
expect_equal(eval_text("315 | 206"), 315 | 206)
expect_equal(eval_text("(566 <= 280) + (315 | 206)"), (566 <= 280) + (315 | 206))
expect_equal(eval_text("- (315 | 206)"), - (315 | 206))
expect_equal(eval_text("(566 <= 280) - (- (315 | 206))"), (566 <= 280) - (- (315 | 206)))
expect_equal(eval_text("log(abs(566 <= 280)+1)"), log(abs(566 <= 280)+1))
expect_equal(eval_text("abs(c(566 <= 280,315 | 206))"), abs(c(566 <= 280,315 | 206)))
expect_equal(eval_text("ifelse(566 <= 280,315 | 206,- (315 | 206))"), ifelse(566 <= 280,315 | 206,- (315 | 206)))
expect_equal(eval_text("(abs(c(566 <= 280,315 | 206))) %in% (ifelse(566 <= 280,315 | 206,- (315 | 206)))"), (abs(c(566 <= 280,315 | 206))) %in% (ifelse(566 <= 280,315 | 206,- (315 | 206))))

expect_equal(eval_text("193 <= 378"), 193 <= 378)
expect_equal(eval_text("801 * 498"), 801 * 498)
expect_equal(eval_text("(193 <= 378) %in% (801 * 498)"), (193 <= 378) %in% (801 * 498))
expect_equal(eval_text("! (801 * 498)"), ! (801 * 498))
expect_equal(eval_text("(193 <= 378) < (! (801 * 498))"), (193 <= 378) < (! (801 * 498)))
expect_equal(eval_text("log(abs(193 <= 378)+1)"), log(abs(193 <= 378)+1))
expect_equal(eval_text("abs(c(193 <= 378,801 * 498))"), abs(c(193 <= 378,801 * 498)))
expect_equal(eval_text("ifelse(193 <= 378,801 * 498,! (801 * 498))"), ifelse(193 <= 378,801 * 498,! (801 * 498)))
expect_equal(eval_text("(abs(c(193 <= 378,801 * 498))) ^ (ifelse(193 <= 378,801 * 498,! (801 * 498)))"), (abs(c(193 <= 378,801 * 498))) ^ (ifelse(193 <= 378,801 * 498,! (801 * 498))))

expect_equal(eval_text("764 + 879"), 764 + 879)
expect_equal(eval_text("839 + 324"), 839 + 324)
expect_equal(eval_text("(764 + 879) <= (839 + 324)"), (764 + 879) <= (839 + 324))
expect_equal(eval_text("! (839 + 324)"), ! (839 + 324))
expect_equal(eval_text("(764 + 879) %in% (! (839 + 324))"), (764 + 879) %in% (! (839 + 324)))
expect_equal(eval_text("log(abs(764 + 879)+1)"), log(abs(764 + 879)+1))
expect_equal(eval_text("abs(c(764 + 879,839 + 324))"), abs(c(764 + 879,839 + 324)))
expect_equal(eval_text("ifelse(764 + 879,839 + 324,! (839 + 324))"), ifelse(764 + 879,839 + 324,! (839 + 324)))
expect_equal(eval_text("(abs(c(764 + 879,839 + 324))) / (ifelse(764 + 879,839 + 324,! (839 + 324)))"), (abs(c(764 + 879,839 + 324))) / (ifelse(764 + 879,839 + 324,! (839 + 324))))

expect_equal(eval_text("799 %in% 203"), 799 %in% 203)
expect_equal(eval_text("335 %in% 917"), 335 %in% 917)
expect_equal(eval_text("(799 %in% 203) & (335 %in% 917)"), (799 %in% 203) & (335 %in% 917))
expect_equal(eval_text("! (335 %in% 917)"), ! (335 %in% 917))
expect_equal(eval_text("(799 %in% 203) ^ (! (335 %in% 917))"), (799 %in% 203) ^ (! (335 %in% 917)))
expect_equal(eval_text("log(abs(799 %in% 203)+1)"), log(abs(799 %in% 203)+1))
expect_equal(eval_text("abs(c(799 %in% 203,335 %in% 917))"), abs(c(799 %in% 203,335 %in% 917)))
expect_equal(eval_text("ifelse(799 %in% 203,335 %in% 917,! (335 %in% 917))"), ifelse(799 %in% 203,335 %in% 917,! (335 %in% 917)))
expect_equal(eval_text("(abs(c(799 %in% 203,335 %in% 917))) %/% (ifelse(799 %in% 203,335 %in% 917,! (335 %in% 917)))"), (abs(c(799 %in% 203,335 %in% 917))) %/% (ifelse(799 %in% 203,335 %in% 917,! (335 %in% 917))))

expect_equal(eval_text("949 != 80"), 949 != 80)
expect_equal(eval_text("359 / 145"), 359 / 145)
expect_equal(eval_text("(949 != 80) <= (359 / 145)"), (949 != 80) <= (359 / 145))
expect_equal(eval_text("! (359 / 145)"), ! (359 / 145))
expect_equal(eval_text("(949 != 80) / (! (359 / 145))"), (949 != 80) / (! (359 / 145)))
expect_equal(eval_text("log(abs(949 != 80)+1)"), log(abs(949 != 80)+1))
expect_equal(eval_text("abs(c(949 != 80,359 / 145))"), abs(c(949 != 80,359 / 145)))
expect_equal(eval_text("ifelse(949 != 80,359 / 145,! (359 / 145))"), ifelse(949 != 80,359 / 145,! (359 / 145)))
expect_equal(eval_text("(abs(c(949 != 80,359 / 145))) > (ifelse(949 != 80,359 / 145,! (359 / 145)))"), (abs(c(949 != 80,359 / 145))) > (ifelse(949 != 80,359 / 145,! (359 / 145))))

expect_equal(eval_text("43 == 617"), 43 == 617)
expect_equal(eval_text("631 / 119"), 631 / 119)
expect_equal(eval_text("(43 == 617) < (631 / 119)"), (43 == 617) < (631 / 119))
expect_equal(eval_text("! (631 / 119)"), ! (631 / 119))
expect_equal(eval_text("(43 == 617) < (! (631 / 119))"), (43 == 617) < (! (631 / 119)))
expect_equal(eval_text("log(abs(43 == 617)+1)"), log(abs(43 == 617)+1))
expect_equal(eval_text("abs(c(43 == 617,631 / 119))"), abs(c(43 == 617,631 / 119)))
expect_equal(eval_text("ifelse(43 == 617,631 / 119,! (631 / 119))"), ifelse(43 == 617,631 / 119,! (631 / 119)))
expect_equal(eval_text("(abs(c(43 == 617,631 / 119))) %in% (ifelse(43 == 617,631 / 119,! (631 / 119)))"), (abs(c(43 == 617,631 / 119))) %in% (ifelse(43 == 617,631 / 119,! (631 / 119))))

expect_equal(eval_text("986 + 49"), 986 + 49)
expect_equal(eval_text("949 > 868"), 949 > 868)
expect_equal(eval_text("(986 + 49) < (949 > 868)"), (986 + 49) < (949 > 868))
expect_equal(eval_text("- (949 > 868)"), - (949 > 868))
expect_equal(eval_text("(986 + 49) - (- (949 > 868))"), (986 + 49) - (- (949 > 868)))
expect_equal(eval_text("log(abs(986 + 49)+1)"), log(abs(986 + 49)+1))
expect_equal(eval_text("abs(c(986 + 49,949 > 868))"), abs(c(986 + 49,949 > 868)))
expect_equal(eval_text("ifelse(986 + 49,949 > 868,- (949 > 868))"), ifelse(986 + 49,949 > 868,- (949 > 868)))
expect_equal(eval_text("(abs(c(986 + 49,949 > 868))) | (ifelse(986 + 49,949 > 868,- (949 > 868)))"), (abs(c(986 + 49,949 > 868))) | (ifelse(986 + 49,949 > 868,- (949 > 868))))

expect_equal(eval_text("562 %/% 422"), 562 %/% 422)
expect_equal(eval_text("297 - 610"), 297 - 610)
expect_equal(eval_text("(562 %/% 422) - (297 - 610)"), (562 %/% 422) - (297 - 610))
expect_equal(eval_text("! (297 - 610)"), ! (297 - 610))
expect_equal(eval_text("(562 %/% 422) & (! (297 - 610))"), (562 %/% 422) & (! (297 - 610)))
expect_equal(eval_text("log(abs(562 %/% 422)+1)"), log(abs(562 %/% 422)+1))
expect_equal(eval_text("abs(c(562 %/% 422,297 - 610))"), abs(c(562 %/% 422,297 - 610)))
expect_equal(eval_text("ifelse(562 %/% 422,297 - 610,! (297 - 610))"), ifelse(562 %/% 422,297 - 610,! (297 - 610)))
expect_equal(eval_text("(abs(c(562 %/% 422,297 - 610))) & (ifelse(562 %/% 422,297 - 610,! (297 - 610)))"), (abs(c(562 %/% 422,297 - 610))) & (ifelse(562 %/% 422,297 - 610,! (297 - 610))))

expect_equal(eval_text("832 == 825"), 832 == 825)
expect_equal(eval_text("744 %% 585"), 744 %% 585)
expect_equal(eval_text("(832 == 825) %in% (744 %% 585)"), (832 == 825) %in% (744 %% 585))
expect_equal(eval_text("- (744 %% 585)"), - (744 %% 585))
expect_equal(eval_text("(832 == 825) | (- (744 %% 585))"), (832 == 825) | (- (744 %% 585)))
expect_equal(eval_text("log(abs(832 == 825)+1)"), log(abs(832 == 825)+1))
expect_equal(eval_text("abs(c(832 == 825,744 %% 585))"), abs(c(832 == 825,744 %% 585)))
expect_equal(eval_text("ifelse(832 == 825,744 %% 585,- (744 %% 585))"), ifelse(832 == 825,744 %% 585,- (744 %% 585)))
expect_equal(eval_text("(abs(c(832 == 825,744 %% 585))) * (ifelse(832 == 825,744 %% 585,- (744 %% 585)))"), (abs(c(832 == 825,744 %% 585))) * (ifelse(832 == 825,744 %% 585,- (744 %% 585))))

expect_equal(eval_text("707 - 199"), 707 - 199)
expect_equal(eval_text("966 * 273"), 966 * 273)
expect_equal(eval_text("(707 - 199) & (966 * 273)"), (707 - 199) & (966 * 273))
expect_equal(eval_text("! (966 * 273)"), ! (966 * 273))
expect_equal(eval_text("(707 - 199) %% (! (966 * 273))"), (707 - 199) %% (! (966 * 273)))
expect_equal(eval_text("log(abs(707 - 199)+1)"), log(abs(707 - 199)+1))
expect_equal(eval_text("abs(c(707 - 199,966 * 273))"), abs(c(707 - 199,966 * 273)))
expect_equal(eval_text("ifelse(707 - 199,966 * 273,! (966 * 273))"), ifelse(707 - 199,966 * 273,! (966 * 273)))
expect_equal(eval_text("(abs(c(707 - 199,966 * 273))) > (ifelse(707 - 199,966 * 273,! (966 * 273)))"), (abs(c(707 - 199,966 * 273))) > (ifelse(707 - 199,966 * 273,! (966 * 273))))

expect_equal(eval_text("521 - 717"), 521 - 717)
expect_equal(eval_text("298 < 444"), 298 < 444)
expect_equal(eval_text("(521 - 717) + (298 < 444)"), (521 - 717) + (298 < 444))
expect_equal(eval_text("! (298 < 444)"), ! (298 < 444))
expect_equal(eval_text("(521 - 717) >= (! (298 < 444))"), (521 - 717) >= (! (298 < 444)))
expect_equal(eval_text("log(abs(521 - 717)+1)"), log(abs(521 - 717)+1))
expect_equal(eval_text("abs(c(521 - 717,298 < 444))"), abs(c(521 - 717,298 < 444)))
expect_equal(eval_text("ifelse(521 - 717,298 < 444,! (298 < 444))"), ifelse(521 - 717,298 < 444,! (298 < 444)))
expect_equal(eval_text("(abs(c(521 - 717,298 < 444))) - (ifelse(521 - 717,298 < 444,! (298 < 444)))"), (abs(c(521 - 717,298 < 444))) - (ifelse(521 - 717,298 < 444,! (298 < 444))))

expect_equal(eval_text("882 < 373"), 882 < 373)
expect_equal(eval_text("599 & 219"), 599 & 219)
expect_equal(eval_text("(882 < 373) > (599 & 219)"), (882 < 373) > (599 & 219))
expect_equal(eval_text("! (599 & 219)"), ! (599 & 219))
expect_equal(eval_text("(882 < 373) >= (! (599 & 219))"), (882 < 373) >= (! (599 & 219)))
expect_equal(eval_text("log(abs(882 < 373)+1)"), log(abs(882 < 373)+1))
expect_equal(eval_text("abs(c(882 < 373,599 & 219))"), abs(c(882 < 373,599 & 219)))
expect_equal(eval_text("ifelse(882 < 373,599 & 219,! (599 & 219))"), ifelse(882 < 373,599 & 219,! (599 & 219)))
expect_equal(eval_text("(abs(c(882 < 373,599 & 219))) != (ifelse(882 < 373,599 & 219,! (599 & 219)))"), (abs(c(882 < 373,599 & 219))) != (ifelse(882 < 373,599 & 219,! (599 & 219))))

expect_equal(eval_text("453 - 977"), 453 - 977)
expect_equal(eval_text("954 * 226"), 954 * 226)
expect_equal(eval_text("(453 - 977) <= (954 * 226)"), (453 - 977) <= (954 * 226))
expect_equal(eval_text("- (954 * 226)"), - (954 * 226))
expect_equal(eval_text("(453 - 977) ^ (- (954 * 226))"), (453 - 977) ^ (- (954 * 226)))
expect_equal(eval_text("log(abs(453 - 977)+1)"), log(abs(453 - 977)+1))
expect_equal(eval_text("abs(c(453 - 977,954 * 226))"), abs(c(453 - 977,954 * 226)))
expect_equal(eval_text("ifelse(453 - 977,954 * 226,- (954 * 226))"), ifelse(453 - 977,954 * 226,- (954 * 226)))
expect_equal(eval_text("(abs(c(453 - 977,954 * 226))) + (ifelse(453 - 977,954 * 226,- (954 * 226)))"), (abs(c(453 - 977,954 * 226))) + (ifelse(453 - 977,954 * 226,- (954 * 226))))

expect_equal(eval_text("626 <= 102"), 626 <= 102)
expect_equal(eval_text("390 %% 242"), 390 %% 242)
expect_equal(eval_text("(626 <= 102) * (390 %% 242)"), (626 <= 102) * (390 %% 242))
expect_equal(eval_text("- (390 %% 242)"), - (390 %% 242))
expect_equal(eval_text("(626 <= 102) / (- (390 %% 242))"), (626 <= 102) / (- (390 %% 242)))
expect_equal(eval_text("log(abs(626 <= 102)+1)"), log(abs(626 <= 102)+1))
expect_equal(eval_text("abs(c(626 <= 102,390 %% 242))"), abs(c(626 <= 102,390 %% 242)))
expect_equal(eval_text("ifelse(626 <= 102,390 %% 242,- (390 %% 242))"), ifelse(626 <= 102,390 %% 242,- (390 %% 242)))
expect_equal(eval_text("(abs(c(626 <= 102,390 %% 242))) * (ifelse(626 <= 102,390 %% 242,- (390 %% 242)))"), (abs(c(626 <= 102,390 %% 242))) * (ifelse(626 <= 102,390 %% 242,- (390 %% 242))))

expect_equal(eval_text("326 == 908"), 326 == 908)
expect_equal(eval_text("830 == 653"), 830 == 653)
expect_equal(eval_text("(326 == 908) >= (830 == 653)"), (326 == 908) >= (830 == 653))
expect_equal(eval_text("- (830 == 653)"), - (830 == 653))
expect_equal(eval_text("(326 == 908) %/% (- (830 == 653))"), (326 == 908) %/% (- (830 == 653)))
expect_equal(eval_text("log(abs(326 == 908)+1)"), log(abs(326 == 908)+1))
expect_equal(eval_text("abs(c(326 == 908,830 == 653))"), abs(c(326 == 908,830 == 653)))
expect_equal(eval_text("ifelse(326 == 908,830 == 653,- (830 == 653))"), ifelse(326 == 908,830 == 653,- (830 == 653)))
expect_equal(eval_text("(abs(c(326 == 908,830 == 653))) ^ (ifelse(326 == 908,830 == 653,- (830 == 653)))"), (abs(c(326 == 908,830 == 653))) ^ (ifelse(326 == 908,830 == 653,- (830 == 653))))

expect_equal(eval_text("623 * 375"), 623 * 375)
expect_equal(eval_text("268 %% 478"), 268 %% 478)
expect_equal(eval_text("(623 * 375) - (268 %% 478)"), (623 * 375) - (268 %% 478))
expect_equal(eval_text("! (268 %% 478)"), ! (268 %% 478))
expect_equal(eval_text("(623 * 375) %in% (! (268 %% 478))"), (623 * 375) %in% (! (268 %% 478)))
expect_equal(eval_text("log(abs(623 * 375)+1)"), log(abs(623 * 375)+1))
expect_equal(eval_text("abs(c(623 * 375,268 %% 478))"), abs(c(623 * 375,268 %% 478)))
expect_equal(eval_text("ifelse(623 * 375,268 %% 478,! (268 %% 478))"), ifelse(623 * 375,268 %% 478,! (268 %% 478)))
expect_equal(eval_text("(abs(c(623 * 375,268 %% 478))) %/% (ifelse(623 * 375,268 %% 478,! (268 %% 478)))"), (abs(c(623 * 375,268 %% 478))) %/% (ifelse(623 * 375,268 %% 478,! (268 %% 478))))

expect_equal(eval_text("773 + 956"), 773 + 956)
expect_equal(eval_text("569 != 711"), 569 != 711)
expect_equal(eval_text("(773 + 956) %in% (569 != 711)"), (773 + 956) %in% (569 != 711))
expect_equal(eval_text("- (569 != 711)"), - (569 != 711))
expect_equal(eval_text("(773 + 956) <= (- (569 != 711))"), (773 + 956) <= (- (569 != 711)))
expect_equal(eval_text("log(abs(773 + 956)+1)"), log(abs(773 + 956)+1))
expect_equal(eval_text("abs(c(773 + 956,569 != 711))"), abs(c(773 + 956,569 != 711)))
expect_equal(eval_text("ifelse(773 + 956,569 != 711,- (569 != 711))"), ifelse(773 + 956,569 != 711,- (569 != 711)))
expect_equal(eval_text("(abs(c(773 + 956,569 != 711))) != (ifelse(773 + 956,569 != 711,- (569 != 711)))"), (abs(c(773 + 956,569 != 711))) != (ifelse(773 + 956,569 != 711,- (569 != 711))))

expect_equal(eval_text("449 | 67"), 449 | 67)
expect_equal(eval_text("723 - 356"), 723 - 356)
expect_equal(eval_text("(449 | 67) < (723 - 356)"), (449 | 67) < (723 - 356))
expect_equal(eval_text("! (723 - 356)"), ! (723 - 356))
expect_equal(eval_text("(449 | 67) / (! (723 - 356))"), (449 | 67) / (! (723 - 356)))
expect_equal(eval_text("log(abs(449 | 67)+1)"), log(abs(449 | 67)+1))
expect_equal(eval_text("abs(c(449 | 67,723 - 356))"), abs(c(449 | 67,723 - 356)))
expect_equal(eval_text("ifelse(449 | 67,723 - 356,! (723 - 356))"), ifelse(449 | 67,723 - 356,! (723 - 356)))
expect_equal(eval_text("(abs(c(449 | 67,723 - 356))) %in% (ifelse(449 | 67,723 - 356,! (723 - 356)))"), (abs(c(449 | 67,723 - 356))) %in% (ifelse(449 | 67,723 - 356,! (723 - 356))))

expect_equal(eval_text("823 %% 318"), 823 %% 318)
expect_equal(eval_text("373 %/% 504"), 373 %/% 504)
expect_equal(eval_text("(823 %% 318) <= (373 %/% 504)"), (823 %% 318) <= (373 %/% 504))
expect_equal(eval_text("- (373 %/% 504)"), - (373 %/% 504))
expect_equal(eval_text("(823 %% 318) <= (- (373 %/% 504))"), (823 %% 318) <= (- (373 %/% 504)))
expect_equal(eval_text("log(abs(823 %% 318)+1)"), log(abs(823 %% 318)+1))
expect_equal(eval_text("abs(c(823 %% 318,373 %/% 504))"), abs(c(823 %% 318,373 %/% 504)))
expect_equal(eval_text("ifelse(823 %% 318,373 %/% 504,- (373 %/% 504))"), ifelse(823 %% 318,373 %/% 504,- (373 %/% 504)))
expect_equal(eval_text("(abs(c(823 %% 318,373 %/% 504))) | (ifelse(823 %% 318,373 %/% 504,- (373 %/% 504)))"), (abs(c(823 %% 318,373 %/% 504))) | (ifelse(823 %% 318,373 %/% 504,- (373 %/% 504))))

expect_equal(eval_text("565 / 276"), 565 / 276)
expect_equal(eval_text("805 | 211"), 805 | 211)
expect_equal(eval_text("(565 / 276) > (805 | 211)"), (565 / 276) > (805 | 211))
expect_equal(eval_text("- (805 | 211)"), - (805 | 211))
expect_equal(eval_text("(565 / 276) %/% (- (805 | 211))"), (565 / 276) %/% (- (805 | 211)))
expect_equal(eval_text("log(abs(565 / 276)+1)"), log(abs(565 / 276)+1))
expect_equal(eval_text("abs(c(565 / 276,805 | 211))"), abs(c(565 / 276,805 | 211)))
expect_equal(eval_text("ifelse(565 / 276,805 | 211,- (805 | 211))"), ifelse(565 / 276,805 | 211,- (805 | 211)))
expect_equal(eval_text("(abs(c(565 / 276,805 | 211))) * (ifelse(565 / 276,805 | 211,- (805 | 211)))"), (abs(c(565 / 276,805 | 211))) * (ifelse(565 / 276,805 | 211,- (805 | 211))))

expect_equal(eval_text("455 * 684"), 455 * 684)
expect_equal(eval_text("169 %% 753"), 169 %% 753)
expect_equal(eval_text("(455 * 684) != (169 %% 753)"), (455 * 684) != (169 %% 753))
expect_equal(eval_text("! (169 %% 753)"), ! (169 %% 753))
expect_equal(eval_text("(455 * 684) %% (! (169 %% 753))"), (455 * 684) %% (! (169 %% 753)))
expect_equal(eval_text("log(abs(455 * 684)+1)"), log(abs(455 * 684)+1))
expect_equal(eval_text("abs(c(455 * 684,169 %% 753))"), abs(c(455 * 684,169 %% 753)))
expect_equal(eval_text("ifelse(455 * 684,169 %% 753,! (169 %% 753))"), ifelse(455 * 684,169 %% 753,! (169 %% 753)))
expect_equal(eval_text("(abs(c(455 * 684,169 %% 753))) > (ifelse(455 * 684,169 %% 753,! (169 %% 753)))"), (abs(c(455 * 684,169 %% 753))) > (ifelse(455 * 684,169 %% 753,! (169 %% 753))))

expect_equal(eval_text("264 != 595"), 264 != 595)
expect_equal(eval_text("142 != 752"), 142 != 752)
expect_equal(eval_text("(264 != 595) %in% (142 != 752)"), (264 != 595) %in% (142 != 752))
expect_equal(eval_text("- (142 != 752)"), - (142 != 752))
expect_equal(eval_text("(264 != 595) * (- (142 != 752))"), (264 != 595) * (- (142 != 752)))
expect_equal(eval_text("log(abs(264 != 595)+1)"), log(abs(264 != 595)+1))
expect_equal(eval_text("abs(c(264 != 595,142 != 752))"), abs(c(264 != 595,142 != 752)))
expect_equal(eval_text("ifelse(264 != 595,142 != 752,- (142 != 752))"), ifelse(264 != 595,142 != 752,- (142 != 752)))
expect_equal(eval_text("(abs(c(264 != 595,142 != 752))) %% (ifelse(264 != 595,142 != 752,- (142 != 752)))"), (abs(c(264 != 595,142 != 752))) %% (ifelse(264 != 595,142 != 752,- (142 != 752))))

expect_equal(eval_text("240 / 291"), 240 / 291)
expect_equal(eval_text("569 != 703"), 569 != 703)
expect_equal(eval_text("(240 / 291) ^ (569 != 703)"), (240 / 291) ^ (569 != 703))
expect_equal(eval_text("- (569 != 703)"), - (569 != 703))
expect_equal(eval_text("(240 / 291) & (- (569 != 703))"), (240 / 291) & (- (569 != 703)))
expect_equal(eval_text("log(abs(240 / 291)+1)"), log(abs(240 / 291)+1))
expect_equal(eval_text("abs(c(240 / 291,569 != 703))"), abs(c(240 / 291,569 != 703)))
expect_equal(eval_text("ifelse(240 / 291,569 != 703,- (569 != 703))"), ifelse(240 / 291,569 != 703,- (569 != 703)))
expect_equal(eval_text("(abs(c(240 / 291,569 != 703))) != (ifelse(240 / 291,569 != 703,- (569 != 703)))"), (abs(c(240 / 291,569 != 703))) != (ifelse(240 / 291,569 != 703,- (569 != 703))))

expect_equal(eval_text("734 / 615"), 734 / 615)
expect_equal(eval_text("181 + 854"), 181 + 854)
expect_equal(eval_text("(734 / 615) == (181 + 854)"), (734 / 615) == (181 + 854))
expect_equal(eval_text("- (181 + 854)"), - (181 + 854))
expect_equal(eval_text("(734 / 615) %in% (- (181 + 854))"), (734 / 615) %in% (- (181 + 854)))
expect_equal(eval_text("log(abs(734 / 615)+1)"), log(abs(734 / 615)+1))
expect_equal(eval_text("abs(c(734 / 615,181 + 854))"), abs(c(734 / 615,181 + 854)))
expect_equal(eval_text("ifelse(734 / 615,181 + 854,- (181 + 854))"), ifelse(734 / 615,181 + 854,- (181 + 854)))
expect_equal(eval_text("(abs(c(734 / 615,181 + 854))) %% (ifelse(734 / 615,181 + 854,- (181 + 854)))"), (abs(c(734 / 615,181 + 854))) %% (ifelse(734 / 615,181 + 854,- (181 + 854))))

expect_equal(eval_text("103 %in% 572"), 103 %in% 572)
expect_equal(eval_text("11 / 135"), 11 / 135)
expect_equal(eval_text("(103 %in% 572) | (11 / 135)"), (103 %in% 572) | (11 / 135))
expect_equal(eval_text("! (11 / 135)"), ! (11 / 135))
expect_equal(eval_text("(103 %in% 572) >= (! (11 / 135))"), (103 %in% 572) >= (! (11 / 135)))
expect_equal(eval_text("log(abs(103 %in% 572)+1)"), log(abs(103 %in% 572)+1))
expect_equal(eval_text("abs(c(103 %in% 572,11 / 135))"), abs(c(103 %in% 572,11 / 135)))
expect_equal(eval_text("ifelse(103 %in% 572,11 / 135,! (11 / 135))"), ifelse(103 %in% 572,11 / 135,! (11 / 135)))
expect_equal(eval_text("(abs(c(103 %in% 572,11 / 135))) >= (ifelse(103 %in% 572,11 / 135,! (11 / 135)))"), (abs(c(103 %in% 572,11 / 135))) >= (ifelse(103 %in% 572,11 / 135,! (11 / 135))))

expect_equal(eval_text("414 %/% 61"), 414 %/% 61)
expect_equal(eval_text("444 * 283"), 444 * 283)
expect_equal(eval_text("(414 %/% 61) / (444 * 283)"), (414 %/% 61) / (444 * 283))
expect_equal(eval_text("- (444 * 283)"), - (444 * 283))
expect_equal(eval_text("(414 %/% 61) & (- (444 * 283))"), (414 %/% 61) & (- (444 * 283)))
expect_equal(eval_text("log(abs(414 %/% 61)+1)"), log(abs(414 %/% 61)+1))
expect_equal(eval_text("abs(c(414 %/% 61,444 * 283))"), abs(c(414 %/% 61,444 * 283)))
expect_equal(eval_text("ifelse(414 %/% 61,444 * 283,- (444 * 283))"), ifelse(414 %/% 61,444 * 283,- (444 * 283)))
expect_equal(eval_text("(abs(c(414 %/% 61,444 * 283))) %/% (ifelse(414 %/% 61,444 * 283,- (444 * 283)))"), (abs(c(414 %/% 61,444 * 283))) %/% (ifelse(414 %/% 61,444 * 283,- (444 * 283))))

expect_equal(eval_text("697 | 273"), 697 | 273)
expect_equal(eval_text("427 %in% 917"), 427 %in% 917)
expect_equal(eval_text("(697 | 273) >= (427 %in% 917)"), (697 | 273) >= (427 %in% 917))
expect_equal(eval_text("- (427 %in% 917)"), - (427 %in% 917))
expect_equal(eval_text("(697 | 273) ^ (- (427 %in% 917))"), (697 | 273) ^ (- (427 %in% 917)))
expect_equal(eval_text("log(abs(697 | 273)+1)"), log(abs(697 | 273)+1))
expect_equal(eval_text("abs(c(697 | 273,427 %in% 917))"), abs(c(697 | 273,427 %in% 917)))
expect_equal(eval_text("ifelse(697 | 273,427 %in% 917,- (427 %in% 917))"), ifelse(697 | 273,427 %in% 917,- (427 %in% 917)))
expect_equal(eval_text("(abs(c(697 | 273,427 %in% 917))) / (ifelse(697 | 273,427 %in% 917,- (427 %in% 917)))"), (abs(c(697 | 273,427 %in% 917))) / (ifelse(697 | 273,427 %in% 917,- (427 %in% 917))))

expect_equal(eval_text("216 ^ 608"), 216 ^ 608)
expect_equal(eval_text("354 ^ 747"), 354 ^ 747)
expect_equal(eval_text("(216 ^ 608) + (354 ^ 747)"), (216 ^ 608) + (354 ^ 747))
expect_equal(eval_text("- (354 ^ 747)"), - (354 ^ 747))
expect_equal(eval_text("(216 ^ 608) ^ (- (354 ^ 747))"), (216 ^ 608) ^ (- (354 ^ 747)))
expect_equal(eval_text("log(abs(216 ^ 608)+1)"), log(abs(216 ^ 608)+1))
expect_equal(eval_text("abs(c(216 ^ 608,354 ^ 747))"), abs(c(216 ^ 608,354 ^ 747)))
expect_equal(eval_text("ifelse(216 ^ 608,354 ^ 747,- (354 ^ 747))"), ifelse(216 ^ 608,354 ^ 747,- (354 ^ 747)))
expect_equal(eval_text("(abs(c(216 ^ 608,354 ^ 747))) * (ifelse(216 ^ 608,354 ^ 747,- (354 ^ 747)))"), (abs(c(216 ^ 608,354 ^ 747))) * (ifelse(216 ^ 608,354 ^ 747,- (354 ^ 747))))

expect_equal(eval_text("863 %in% 52"), 863 %in% 52)
expect_equal(eval_text("95 == 458"), 95 == 458)
expect_equal(eval_text("(863 %in% 52) > (95 == 458)"), (863 %in% 52) > (95 == 458))
expect_equal(eval_text("- (95 == 458)"), - (95 == 458))
expect_equal(eval_text("(863 %in% 52) | (- (95 == 458))"), (863 %in% 52) | (- (95 == 458)))
expect_equal(eval_text("log(abs(863 %in% 52)+1)"), log(abs(863 %in% 52)+1))
expect_equal(eval_text("abs(c(863 %in% 52,95 == 458))"), abs(c(863 %in% 52,95 == 458)))
expect_equal(eval_text("ifelse(863 %in% 52,95 == 458,- (95 == 458))"), ifelse(863 %in% 52,95 == 458,- (95 == 458)))
expect_equal(eval_text("(abs(c(863 %in% 52,95 == 458))) ^ (ifelse(863 %in% 52,95 == 458,- (95 == 458)))"), (abs(c(863 %in% 52,95 == 458))) ^ (ifelse(863 %in% 52,95 == 458,- (95 == 458))))

expect_equal(eval_text("162 %in% 15"), 162 %in% 15)
expect_equal(eval_text("108 == 339"), 108 == 339)
expect_equal(eval_text("(162 %in% 15) / (108 == 339)"), (162 %in% 15) / (108 == 339))
expect_equal(eval_text("! (108 == 339)"), ! (108 == 339))
expect_equal(eval_text("(162 %in% 15) %/% (! (108 == 339))"), (162 %in% 15) %/% (! (108 == 339)))
expect_equal(eval_text("log(abs(162 %in% 15)+1)"), log(abs(162 %in% 15)+1))
expect_equal(eval_text("abs(c(162 %in% 15,108 == 339))"), abs(c(162 %in% 15,108 == 339)))
expect_equal(eval_text("ifelse(162 %in% 15,108 == 339,! (108 == 339))"), ifelse(162 %in% 15,108 == 339,! (108 == 339)))
expect_equal(eval_text("(abs(c(162 %in% 15,108 == 339))) | (ifelse(162 %in% 15,108 == 339,! (108 == 339)))"), (abs(c(162 %in% 15,108 == 339))) | (ifelse(162 %in% 15,108 == 339,! (108 == 339))))

expect_equal(eval_text("51 < 334"), 51 < 334)
expect_equal(eval_text("435 / 218"), 435 / 218)
expect_equal(eval_text("(51 < 334) < (435 / 218)"), (51 < 334) < (435 / 218))
expect_equal(eval_text("- (435 / 218)"), - (435 / 218))
expect_equal(eval_text("(51 < 334) > (- (435 / 218))"), (51 < 334) > (- (435 / 218)))
expect_equal(eval_text("log(abs(51 < 334)+1)"), log(abs(51 < 334)+1))
expect_equal(eval_text("abs(c(51 < 334,435 / 218))"), abs(c(51 < 334,435 / 218)))
expect_equal(eval_text("ifelse(51 < 334,435 / 218,- (435 / 218))"), ifelse(51 < 334,435 / 218,- (435 / 218)))
expect_equal(eval_text("(abs(c(51 < 334,435 / 218))) %in% (ifelse(51 < 334,435 / 218,- (435 / 218)))"), (abs(c(51 < 334,435 / 218))) %in% (ifelse(51 < 334,435 / 218,- (435 / 218))))

expect_equal(eval_text("72 != 866"), 72 != 866)
expect_equal(eval_text("576 %% 232"), 576 %% 232)
expect_equal(eval_text("(72 != 866) < (576 %% 232)"), (72 != 866) < (576 %% 232))
expect_equal(eval_text("- (576 %% 232)"), - (576 %% 232))
expect_equal(eval_text("(72 != 866) != (- (576 %% 232))"), (72 != 866) != (- (576 %% 232)))
expect_equal(eval_text("log(abs(72 != 866)+1)"), log(abs(72 != 866)+1))
expect_equal(eval_text("abs(c(72 != 866,576 %% 232))"), abs(c(72 != 866,576 %% 232)))
expect_equal(eval_text("ifelse(72 != 866,576 %% 232,- (576 %% 232))"), ifelse(72 != 866,576 %% 232,- (576 %% 232)))
expect_equal(eval_text("(abs(c(72 != 866,576 %% 232))) / (ifelse(72 != 866,576 %% 232,- (576 %% 232)))"), (abs(c(72 != 866,576 %% 232))) / (ifelse(72 != 866,576 %% 232,- (576 %% 232))))

expect_equal(eval_text("539 < 558"), 539 < 558)
expect_equal(eval_text("239 ^ 552"), 239 ^ 552)
expect_equal(eval_text("(539 < 558) & (239 ^ 552)"), (539 < 558) & (239 ^ 552))
expect_equal(eval_text("- (239 ^ 552)"), - (239 ^ 552))
expect_equal(eval_text("(539 < 558) ^ (- (239 ^ 552))"), (539 < 558) ^ (- (239 ^ 552)))
expect_equal(eval_text("log(abs(539 < 558)+1)"), log(abs(539 < 558)+1))
expect_equal(eval_text("abs(c(539 < 558,239 ^ 552))"), abs(c(539 < 558,239 ^ 552)))
expect_equal(eval_text("ifelse(539 < 558,239 ^ 552,- (239 ^ 552))"), ifelse(539 < 558,239 ^ 552,- (239 ^ 552)))
expect_equal(eval_text("(abs(c(539 < 558,239 ^ 552))) < (ifelse(539 < 558,239 ^ 552,- (239 ^ 552)))"), (abs(c(539 < 558,239 ^ 552))) < (ifelse(539 < 558,239 ^ 552,- (239 ^ 552))))




})