try setting chunked graph secret in testthat

natverse · Jan 12, 2021 · dde9f25 · dde9f25
1 parent 0479bb4
commit dde9f25
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/testthat.R b/tests/testthat.R
@@ -1,4 +1,14 @@
 library(testthat)
 library(fafbseg)
 
+# try to set token from environment variable on travis
+if(identical(Sys.getenv("TRAVIS"), "true")) {
+  token <- Sys.getenv('CHUNKEDGRAPH_SECRET')
+  if(nzchar(token)) {
+    message("Found token of length ", nchar(token), " in CHUNKEDGRAPH_SECRET")
+    p <- flywire_set_token(token)
+    message("written to: ", p)
+  }
+}
+
 test_check("fafbseg")