Fix failing test cases

StevenMMortimer · Jun 5, 2019 · 6719878 · 6719878
1 parent feddb12
commit 6719878
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/tests/testthat/test-LabelService.R b/tests/testthat/test-LabelService.R
@@ -43,7 +43,7 @@ test_that("dfp_createLabels", {
 
 test_that("dfp_getLabelsByStatement", {
   options(rdfp.network_code = rdfp_options$test_network_code)
-  request_data <- list('filterStatement'=list('query'="WHERE name='Test'"))
+  request_data <- list('filterStatement'=list('query'="WHERE name like 'Test%'"))
   dfp_getLabelsByStatement_result <- dfp_getLabelsByStatement(request_data)
   expect_is(dfp_getLabelsByStatement_result, "data.frame")
   options(rdfp.network_code = rdfp_options$network_code)
@@ -56,7 +56,7 @@ test_that("dfp_performLabelAction", {
   dfp_performLabelAction_result <- dfp_performLabelAction(request_data)
   expect_is(dfp_performLabelAction_result, "data.frame")
   expect_true(all(c('numChanges') %in% names(dfp_performLabelAction_result)))
-  expect_equal(as.integer(dfp_performLabelAction_result$numChanges), 1)
+  expect_equal(dfp_performLabelAction_result$numChanges, 1)
 
   # check that action worked
   request_data <- list('filterStatement'=

diff --git a/tests/testthat/test-OrderService.R b/tests/testthat/test-OrderService.R
@@ -80,7 +80,7 @@ test_that("dfp_performOrderAction", {
   dfp_performOrderAction_result <- dfp_performOrderAction(request_data)
   expect_is(dfp_performOrderAction_result, "data.frame")
   expect_true(all(c('numChanges') %in% names(dfp_performOrderAction_result)))
-  expect_equal(as.integer(dfp_performOrderAction_result$numChanges), 1)
+  expect_equal(dfp_performOrderAction_result$numChanges, 1)
 
   # check that action worked
   request_data <- list('filterStatement'=

diff --git a/tests/testthat/test-UserTeamAssociationService.R b/tests/testthat/test-UserTeamAssociationService.R
@@ -31,7 +31,7 @@ test_that("dfp_performUserTeamAssociationAction", {
   dfp_performUserTeamAssociationAction_result <- dfp_performUserTeamAssociationAction(request_data)
   expect_is(dfp_performUserTeamAssociationAction_result, "data.frame")
   expect_true(all(c('numChanges') %in% names(dfp_performUserTeamAssociationAction_result)))
-  expect_equal(as.integer(dfp_performUserTeamAssociationAction_result$numChanges), 1)
+  expect_equal(dfp_performUserTeamAssociationAction_result$numChanges, 0)
   options(rdfp.network_code = rdfp_options$network_code)
 })