tests/testthat/testSantionsClass.R

In drodriguezperez/financialsanctions: Search coincidences in international financial sanctions lists

##
##  Test Santions class
##
##  Created by Daniel Rodríguez Pérez on 25/10/2015.
##
##  Copyright (c) 2015 Daniel Rodríguez Pérez.
##
##  This program is free software: you can redistribute it and/or modify
##  it under the terms of the GNU General Public License as published by
##  the Free Software Foundation, either version 3 of the License, or
##  (at your option) any later version.
##
##  This program is distributed in the hope that it will be useful,
##  but WITHOUT ANY WARRANTY; without even the implied warranty of
##  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
##  GNU General Public License for more details.
##
##  You should have received a copy of the GNU General Public License
##  along with this program.  If not, see <http://www.gnu.org/licenses/>
##

context("Test Santions class methods")

test_that("test dim and length", {
  santions        <- list(source = 'Source',
                          update = '01/01/2010',
                          data   =   useData <- data.frame(type        = rep('', 10),
                                                           gropupID    = '',
                                                           name        = '',
                                                           birth       = '',
                                                           nationality = '',
                                                           passport    = '',
                                                           alias       = '',
                                                           stringsAsFactors = FALSE))
  class(santions) <- 'santions'

  expect_equal(dim(santions),    c(10, 7))
  expect_equal(length(santions), 10)
})