only test export_savedmodel if keras implementation

Sigrid Keydana · Sigrid Keydana · commit 86a4e94d6953 · 2019-02-08T18:56:44.000+01:00
diff --git a/tests/testthat/test-model-persistence.R b/tests/testthat/test-model-persistence.R
@@ -115,7 +115,7 @@ test_succeeds("model can be exported to TensorFlow", {
   
   export <- function() tensorflow::export_savedmodel(model, model_dir)
   
-  if (grepl("^tensorflow", Sys.getenv("KERAS_IMPLEMENTATION"))) {
+  if (!grepl("^keras", Sys.getenv("KERAS_IMPLEMENTATION"))) {
     expect_error(export())
   }
   else {

Original file line number	Diff line number	Diff line change
`@@ -115,7 +115,7 @@ test_succeeds("model can be exported to TensorFlow", {`
`115`	`115`
`116`	`116`	`export <- function() tensorflow::export_savedmodel(model, model_dir)`
`117`	`117`
`118`		`- if (grepl("^tensorflow", Sys.getenv("KERAS_IMPLEMENTATION"))) {`
	`118`	`+ if (!grepl("^keras", Sys.getenv("KERAS_IMPLEMENTATION"))) {`
`119`	`119`	`expect_error(export())`
`120`	`120`	`}`
`121`	`121`	`else {`