Running ‘test-that.r’
Running the tests in ‘tests/test-that.r’ failed.
Complete output:
  > library(testthat)
  > library(plspm)
  > 
  > test_package("plspm")
  Checking blocks: ......1234.
  Checking Data: ........
  Checking modes: ...5.6.7
  Checking path matrix: ...8.9.
  Checking blocks: ...................
  get metric: a
  check scaling of factors in data frame: b.
  
  Failed -------------------------------------------------------------------------
  1. Failure: check_blocks detects bad blocks (@test-check-blocks.r#28) ----------
  error$message does not match "Invalid 'blocks'. Duplicated variables within a block are not allowed".
  Actual value: "\nWrong 'blocks'. Duplicated variables in a block are not allowed"
  
  
  2. Failure: check_blocks detects bad blocks (@test-check-blocks.r#30) ----------
  error$message does not match "Invalid 'blocks'. Duplicated variables within a block are not allowed".
  Actual value: "\nWrong 'blocks'. Duplicated variables in a block are not allowed"
  
  
  3. Failure: check_blocks detects bad blocks (@test-check-blocks.r#32) ----------
  error$message does not match "All elements in 'blocks' must be of same mode".
  Actual value: "\nAll elements in 'blocks' must have the same mode"
  
  
  4. Failure: check_blocks detects bad blocks (@test-check-blocks.r#33) ----------
  error$message does not match "Invalid 'blocks'. Indices outside the number of columns in 'Data'".
  Actual value: "\nIndices in 'blocks' outside the number of columns in 'Data'"
  
  
  5. Failure: check_modes works as expected (@test-check-modes.r#16) -------------
  check_modes(modnewA, block3) not identical to `modnewA`.
  3/3 mismatches
  x[1]: "NEWA"
  y[1]: "newA"
  
  x[2]: "NEWA"
  y[2]: "newA"
  
  x[3]: "NEWA"
  y[3]: "newA"
  
  
  6. Error: check_modes works as expected (@test-check-modes.r#18) ---------------
  
  Sorry. Can't work with both modes 'A' and 'newA'
  1: expect_that(check_modes(modAnewA, block3), is_identical_to(modAnewA)) at /data/gannet/ripley/R/packages/tests-devel/plspm.Rcheck/plspm/tests/test-check-modes.r:18
  2: condition(object)
  3: expect_identical(x, expected, expected.label = label)
  4: identical(object, expected)
  5: check_modes(modAnewA, block3)
  6: stop("\nSorry. Can't work with both modes 'A' and 'newA'")
  
  7. Failure: check_mdoes detects bad modes (@test-check-modes.r#28) -------------
  error$message does not match "Sorry. Don't know how to work with mode: 'S'".
  Actual value: "\nSorry. Unrecognized mode: 'S'"
  
  
  8. Failure: check_path detects bad path matrices (@test-check-path.r#19) -------
  error$message does not match "'path_matrix' must have more than one element.".
  Actual value: "\n'path_matrix' must have more than one row"
  
  
  9. Failure: check_path detects bad path matrices (@test-check-path.r#21) -------
  error$message does not match "'path_matrix' must be a lower triangular matrix.".
  Actual value: "\n'path_matrix' must be a lower triangular matrix"
  
  
  10. Error: get_metric works (@test-get-metric.r#4) -----------------------------
  argument "x" is missing, with no default
  1: expect_that(get_metric(NULL), is_true()) at /data/gannet/ripley/R/packages/tests-devel/plspm.Rcheck/plspm/tests/test-get-metric.r:4
  2: is_true()
  3: is_TRUE(x)
  
  11. Error: check_manifest_scaling works for right scaling (@test-manifest-scaling.r#10) 
  argument "x" is missing, with no default
  1: expect_that(check_manifest_scaling(MV, good_scaling), is_true()) at /data/gannet/ripley/R/packages/tests-devel/plspm.Rcheck/plspm/tests/test-manifest-scaling.r:10
  2: is_true()
  3: is_TRUE(x)
  
  DONE ===========================================================================
  Error: Test failures
  In addition: Warning message:
  Placing tests in `inst/tests/` is deprecated. Please use `tests/testthat/` instead 
  Execution halted