P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-13 01:12:08 +02:00
Code Releases Activity

update MIC comparisons

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2024-04-05 16:44:43 +02:00
parent 4170def0ec
commit 0039cb05d6
13 changed files with 170 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
inst/tinytest/test-mic.R
View File

@ -142,10 +142,35 @@ suppressWarnings(expect_identical(el1^el2, el1_double^el2_double))
suppressWarnings(expect_identical(el1 %% el2, el1_double %% el2_double))
suppressWarnings(expect_identical(el1 %/% el2, el1_double %/% el2_double))
suppressWarnings(expect_identical(el1 & el2, el1_double & el2_double))
suppressWarnings(expect_identical(el1 | el2, el1_double | el2_double))
suppressWarnings(expect_identical(el1 == el2, el1_double == el2_double))
suppressWarnings(expect_identical(el1 != el2, el1_double != el2_double))
suppressWarnings(expect_identical(el1 < el2, el1_double < el2_double))
suppressWarnings(expect_identical(el1 <= el2, el1_double <= el2_double))
suppressWarnings(expect_identical(el1 >= el2, el1_double >= el2_double))
suppressWarnings(expect_identical(el1 > el2, el1_double > el2_double))
# for comparison operators, be more strict:
expect_true(as.mic(">32") > as.mic(32))
expect_true(as.mic(">32") >= as.mic(32))
expect_true(as.mic(">32") >= as.mic("<32"))
expect_true(as.mic(">32") >= as.mic("<=32"))
expect_true(as.mic(">32") > as.mic("<=32"))
expect_false(as.mic("32") > as.mic(32))
expect_true(as.mic("32") >= as.mic(32))
expect_true(as.mic("32") >= as.mic("<32"))
expect_true(as.mic("32") >= as.mic("<=32"))
expect_false(as.mic("32") > as.mic("<=32"))
expect_true(as.mic("32") == as.mic(32))
expect_true(as.mic("32") == as.mic(32))
expect_false(as.mic("32") == as.mic("<32"))
expect_true(as.mic("32") == as.mic("<=32"))
expect_true(as.mic("32") == as.mic("<=32"))
expect_false(as.mic(">32") < as.mic(32))
expect_false(as.mic(">32") <= as.mic(32))
expect_false(as.mic(">32") <= as.mic("<32"))
expect_false(as.mic(">32") <= as.mic("<=32"))
expect_false(as.mic(">32") < as.mic("<=32"))
expect_false(as.mic("32") < as.mic(32))
expect_true(as.mic("32") <= as.mic(32))
expect_false(as.mic("32") <= as.mic("<32"))
expect_true(as.mic("32") <= as.mic("<=32"))
expect_false(as.mic("32") < as.mic("<=32"))