Raw Message

Message-ID: <C7338A7EFF31BB4D831BB06C00887789B9C015A8@MBX023-W1-CA-2.exch023.domain.local>
Date: 2017-02-01T19:46:31Z
From: Ramiro Barrantes
Subject: Using a mock of an S4 class

Hello,

I have a function that applies to an S4 object which contains a slot called @analysis:

function calculation(myObject) {
  tmp <- myObjects at analysis
  result <- ...operations on analysis...
  return result
}

I am writing a unit test for this function.  So I was hoping to create a mock object but I can't figure out how to do it:

test_that("test calculation function", {
  mockMyObject<- mock(?????)  #I am not sure what to put here
  r<-calculation(mockMyObject)
  expect_true(r,0.83625)
})

How can I create a mock S4 object??

Thanks in advance,
Ramiro

	[[alternative HTML version deleted]]