tests/testthat/test-add_leading_zero.R

In pietrodito/numbr: Number Your Scripts

test_that("add_leading_zero works", {
  add_leading_zero("temp/twenty-files")

  expect_equal(list_r_numbered_files("temp/twenty-files")$files,
              c(
                "01-script.R",
                "02-script.R",
                "03-script.R",
                "04-script.R",
                "05-script.R",
                "06-script.R",
                "07-script.R",
                "08-script.R",
                "09-script.R",
                "10-script.R",
                "11-script.R",
                "12-script.R",
                "13-script.R",
                "14-script.R",
                "15-script.R",
                "16-script.R",
                "17-script.R",
                "18-script.R",
                "19-script.R",
                "20-script.R"
              )
               )



  add_leading_zero("temp/hundered-files")

  expect_equal(list_r_numbered_files("temp/hundered-files")$files,
              c(
                "001-script.R",
                "002-script.R",
                "003-script.R",
                "004-script.R",
                "005-script.R",
                "006-script.R",
                "007-script.R",
                "008-script.R",
                "009-script.R",
                "010-script.R",
                "011-script.R",
                "012-script.R",
                "013-script.R",
                "014-script.R",
                "015-script.R",
                "016-script.R",
                "017-script.R",
                "018-script.R",
                "019-script.R",
                "020-script.R",
                "021-script.R",
                "022-script.R",
                "023-script.R",
                "024-script.R",
                "025-script.R",
                "026-script.R",
                "027-script.R",
                "028-script.R",
                "029-script.R",
                "030-script.R",
                "031-script.R",
                "032-script.R",
                "033-script.R",
                "034-script.R",
                "035-script.R",
                "036-script.R",
                "037-script.R",
                "038-script.R",
                "039-script.R",
                "040-script.R",
                "041-script.R",
                "042-script.R",
                "043-script.R",
                "044-script.R",
                "045-script.R",
                "046-script.R",
                "047-script.R",
                "048-script.R",
                "049-script.R",
                "050-script.R",
                "051-script.R",
                "052-script.R",
                "053-script.R",
                "054-script.R",
                "055-script.R",
                "056-script.R",
                "057-script.R",
                "058-script.R",
                "059-script.R",
                "060-script.R",
                "061-script.R",
                "062-script.R",
                "063-script.R",
                "064-script.R",
                "065-script.R",
                "066-script.R",
                "067-script.R",
                "068-script.R",
                "069-script.R",
                "070-script.R",
                "071-script.R",
                "072-script.R",
                "073-script.R",
                "074-script.R",
                "075-script.R",
                "076-script.R",
                "077-script.R",
                "078-script.R",
                "079-script.R",
                "080-script.R",
                "081-script.R",
                "082-script.R",
                "083-script.R",
                "084-script.R",
                "085-script.R",
                "086-script.R",
                "087-script.R",
                "088-script.R",
                "089-script.R",
                "090-script.R",
                "091-script.R",
                "092-script.R",
                "093-script.R",
                "094-script.R",
                "095-script.R",
                "096-script.R",
                "097-script.R",
                "098-script.R",
                "099-script.R",
                "100-script.R"
              )
               )

})