tests/testthat/test.createLmdb.R

In cnaumzik/caffeR: Interface for the deep learning framework 'caffe'

library(caffeR)
context("Script for creating lmdb file")

test_that("create script performs correct replacements", {
  script <- generateCreateLmdb(caffedir = "~/Documents/caffe", name = "MyModel",
                               caffe_preprocessing = TRUE,
                               resize_height = 100, resize_width = 100)
  script <- paste(script, collapse="\n")

  expect_match(script, "EXAMPLE=~/Documents/caffe/examples/MyModel")
})