renaming stuff

Author: edwindj

tests/testthat/detect_contradicting_if_rules.txt

@@ -0,0 +1,3 @@
+When a == "a":
+  V1: if (a == "a") b == "b1"
+  V2: if (a == "a") b == "b2"

tests/testthat/test-detect_if_clauses.R …hat/test-detect_contradicting_if_rules.Rtests/testthat/test-detect_if_clauses.R renamed to tests/testthat/test-detect_contradicting_if_rules.R tests/testthat/test-detect_if_clauses.R renamed to tests/testthat/test-detect_contradicting_if_rules.R

@@ -7,7 +7,10 @@ describe("detect contradictory categorical if clauses", {
       if (a == "a") b == "b2"
     )
 
-    a <- detect_contradicting_if_rules(v)
+    expect_output_file(
+      a <- detect_contradicting_if_rules(v, verbose = TRUE),
+      file = "detect_contradicting_if_rules.txt"
+    )
     expect_equal(a, list("a == \"a\"" = c("V1", "V2")))
   })
 
@@ -17,7 +20,7 @@ describe("detect contradictory categorical if clauses", {
       if (a == "a") x < -1
     )
 
-     a <- detect_contradicting_if_rules(v)
+     a <- detect_contradicting_if_rules(v, verbose = FALSE)
      expect_equal(a, list("a == \"a\"" = c("V2", "V1")))
   })
 
@@ -27,7 +30,7 @@ describe("detect contradictory categorical if clauses", {
       if (x > 0) b == "b2"
     )
 
-    a <- detect_contradicting_if_rules(v)
+    a <- detect_contradicting_if_rules(v, verbose=FALSE)
     expect_equal(a, list("x > 0" = c("V2", "V1")))
   })
 
@@ -37,8 +40,28 @@ describe("detect contradictory categorical if clauses", {
       if (x > 0) y < 0
     )
 
-    a <- detect_if_clauses(v)
+    a <- detect_contradicting_if_rules(v, verbose=FALSE)
     expect_equal(a, list("x > 0" = c("V2", "V1")))
   })
 
+  it("detects conflicting chains", {
+    v <- validator(
+      if (income > 0) job == "yes",
+      if (job == "yes") income == 0
+    )
+    
+    a <- detect_contradicting_if_rules(v, verbose=FALSE)
+    expect_equal(a, list("income > 0" = c("V2", "V1")))
+  })
+
+  it("detects multi conditions", {
+    v <- validator(
+      if (nace == "a" && export > 0) international == TRUE,
+      if (nace == "a") international == FALSE
+    )
+    
+    a <- detect_contradicting_if_rules(v, verbose=FALSE)
+    skip("Need to fix multi conditions")
+  })
+  
 })