tests/testthat/test_PasswordTableManipulationUtils.R

In cpbonnell/winlockr: Store sensitive data in a user-specific encrypted locker

library(testthat)
context('PasswordTableManipulation')




test_that('Password table creation makes an appropriate table.',{

  df <- CreatePasswordTable()

  expect_equal(nrow(df), 0)
  expect_true('username' %in% names(df))
  expect_true('application' %in% names(df))

})


test_that('Looking up passwords works correctly.', {


  df <- tibble::tribble(
    ~username, ~application, ~expiration, ~salt, ~password,
    'aaa1111', 'some_app', NA, 'aa aa aa', '11 11 11',
    'aaa1111', 'default_password', NA, 'bb bb bb', '22 22 22'
  )


  expect_equal(TableGetPassword(df, 'aaa1111', 'some_app'),
               c(password='11 11 11', salt='aa aa aa'))

  expect_equal(TableGetPassword(df, 'aaa1111'),
               c(password='22 22 22', salt='bb bb bb'))

  expect_true(all(is.na(TableGetPassword(df, 'bbb2222', 'some_app'))))

  expect_true(all(is.na(TableGetPassword(df, 'bbb2222'))))
})


test_that('Removing passwords works as expected.', {

  df <- tibble::tribble(
    ~username, ~application, ~expiration, ~salt, ~password,
    'aaa1111', 'some_app', NA, 'aa aa aa', '11 11 11',
    'aaa1111', 'default_password', NA, 'bb bb bb', '22 22 22',
    'bbb2222', 'some_app', NA, 'cc cc cc', '33 33 33',
    'bbb2222', 'default_password', NA, 'dd dd dd', '44 44 44',
    'aaa1111', 'another_app', NA, 'ee ee ee', '55 55 55'
  )

  ## Remove all of bbb2222 and only one or aaa1111 's passwords
  df <- TableRemovePassword(df, 'bbb2222')
  df <- TableRemovePassword(df, 'aaa1111', 'some_app')

  expect_false('bbb2222' %in% df$username)
  expect_false('some_app' %in% df$application)
  expect_true('22 22 22' %in% df$password)
  expect_true('55 55 55' %in% df$password)
})




test_that('Adding passwords to the table works appropriately', {

  df <- CreatePasswordTable()
  df <- TableAddPassword(df, 'abc1234', 'my_application', NA, 'x', 'x' )
  df <- TableAddPassword(df, 'abc1234', 'my_application', NA, 'aa bb cc', '1a 22 fd' )
  df <- TableAddPassword(df, 'abc1234', NA, '2015-01-01 1:00:00', 'dd ee ff', 'fa 71 6d' )

  expect_equal(nrow(df), 2)
  expect_true('default_password' %in% df$application)
  expect_true('my_application' %in% df$application)
  expect_false('x' %in% df$password)
  expect_false('x' %in% df$salt)

})