Groom manual tests

Author: jennybc

tests/manual/manual-create-from-github.R

@@ -3,6 +3,10 @@ library(usethis)
 library(testthat)
 library(fs)
 
+## make sure we'll be using SSH
+use_git_protocol("ssh")
+git_protocol()
+
 ## this repo was chosen because it was first one listed for the cran gh user
 ## the day I made this, i.e., it's totally arbitrary
 
@@ -86,6 +90,7 @@ expect_setequal(
   git2r::remote_url(git2r::repository(path(conspicuous_place(), "TailRank"))),
   "[email protected]:cran/TailRank.git"
 )
+
 dir_delete(path(conspicuous_place(), "TailRank"))
 
 ## create from repo I do not have push access to

tests/manual/manual-use-course.R

@@ -26,8 +26,8 @@ file_delete(cp("rematch2-master.zip"))
 # download of a DropBox folder
 # usethis-manual-test folder JB created for development
 dropbox <- "https://www.dropbox.com/sh/iep7x58py4vpa9n/AAAju4kvYCjjD6s8WJqyICHBa?dl=1"
-use_zip(dropbox1, destdir = cp())
-expect_true(dir_exists(path(conspicuous_place(), "usethis-manual-test")))
+use_zip(dropbox, destdir = cp())
+expect_true(dir_exists(cp("usethis-manual-test")))
 dir_delete(cp("usethis-manual-test"))
 file_delete(cp("usethis-manual-test.zip"))