tests/testthat/test-this_file.r

In decisionpatterns/optigrab: Command-Line Parsing for an R World

context( "opt_this_file" )

# TYPICAL  
  flags <- str_to_opts( "Rscript --slave --no-restore --file=test-this_file.r --args sub1" )
  file  <- this_file(flags, full.path = FALSE ) 
  
  expect_equal( file, "test-this_file.r" )
  
# MULTIPLE --file
  flags <- str_to_opts( "Rscript --slave --no-restore --file=test-this_file.r --args sub1 --file other-file" )
  this_file(flags, full.path = FALSE)

  expect_equal( file, "test-this_file.r" )