tests/testthat/test_str_sort.R

In takewiki/tsdo: data objects in takewiki solutions

library(tsdo)
library(usethis)
library(testthat)
context('logical test')
test_that('logical result ',{
  expect_equal(tsdo::str_sort(x = 'L33'),'L33')
  expect_equal(tsdo::str_sort(x = 'L57,L81,L92,L99,L68,L72,L04,L63',desc = FALSE),'L04,L57,L63,L68,L72,L81,L92,L99')
  expect_equal(tsdo::str_sort(x = 'L57,L81,L92,L99,L68,L72,L04,L63',desc = TRUE),'L99,L92,L81,L72,L68,L63,L57,L04')
})