Merge pull request #153 from lawinslow/master

Added tests for functions requiring authentication

.gitignore

@@ -2,3 +2,4 @@
 .Rhistory
 .RData
 .DS_Store
+.Renviron

.travis.yml

@@ -11,6 +11,7 @@ before_install:
 
 install:
   - ./pkg-build.sh install_deps
+  - ./pkg-build.sh install_github jimhester/covr
 
 script:
   - ./pkg-build.sh run_tests
@@ -28,3 +29,7 @@ env:
     - RVERSION=oldrel
     - RVERSION=release
     - RVERSION=devel
+
+after_success:
+  - ./pkg-build.sh run_script -e 'library(covr);codecov()'
+

README.md

@@ -1,6 +1,6 @@
 ScienceBase R Tools
 ===
-[![Build Status](https://travis-ci.org/USGS-R/sbtools.svg?branch=master)](https://travis-ci.org/USGS-R/sbtools)
+[![Build Status](https://travis-ci.org/USGS-R/sbtools.svg?branch=master)](https://travis-ci.org/USGS-R/sbtools) [![codecov.io](https://codecov.io/github/USGS-R/sbtools/coverage.svg?branch=master)](https://codecov.io/github/USGS-R/sbtools?branch=master)
 
 Tools for interfacing R with ScienceBase data services.
 

tests/testthat/test-auth.R

@@ -0,0 +1,62 @@
+
+
+
+context("test sb functionality requiring authentication")
+
+test_that("authenticate_sb login results in valid session", {
+
+	if(is.na(Sys.getenv("sb_user", unset=NA))){
+		skip("Authenticated tests skipped due to lack of login info")
+	}
+
+
+	expect_silent(authenticate_sb(Sys.getenv("sb_user", unset=""), Sys.getenv("sb_pass", unset="")))
+	expect_true(session_validate())
+
+	expect_equal(nchar(user_id()), 24)
+
+})
+
+test_that("item creation, identifiers, and file upload works", {
+
+	if(is.na(Sys.getenv("sb_user", unset=NA))){
+		skip("Authenticated tests skipped due to lack of login info")
+	}
+
+	authenticate_sb(Sys.getenv("sb_user", unset=""), Sys.getenv("sb_pass", unset=""))
+
+	#create an item
+	item = item_create(title="automated testing item")
+	expect_is(item, 'sbitem')
+
+	#add item identifier
+	rand_key = as.character(floor(runif(1, 0, 10^12)))
+	expect_equal(item_update_identifier(item, 'test_scheme', 'test_type', rand_key)$status, 200)
+
+	#upload file
+	expect_is(item_append_files(item, system.file("examples/data.csv", package="sbtools")), 'sbitem')
+
+	#download file
+	dir_name = tempdir()
+	dl_files = item_file_download(item, dest_dir=dir_name)
+
+	expect_equal(file.info(dl_files)$size, file.info(system.file("examples/data.csv", package="sbtools"))$size)
+
+	#check item identifier (checking issue #74)
+	ident = item_get(item)$identifier
+
+	expect_equal(ident[[1]]$type, "test_type")
+	expect_equal(ident[[1]]$scheme, "test_scheme")
+	expect_equal(ident[[1]]$key, rand_key)
+
+	#remove the test item when done
+	item_rm(item)
+
+	expect_error(item_get(item), 'Item not found*.')
+
+	expect_silent(session_logout())
+})
+
+
+
+

tests/testthat/test-eg.R

@@ -2,7 +2,7 @@ context("authentication")
 
 test_that("session validation works appropriately", {
   expect_false(session_validate(5))
-	expect_null(current_session())
+	#expect_null(current_session())
 	session <- httr::handle("http://google.com")
 	attributes(session) <- c(attributes(session), list(birthdate=Sys.time()))
 	expect_true(session_validate(session))