context("text")

test_that("reactivePrint and reactiveText behavior is correct", {
  expect_equal(isolate(reactivePrint(function() "foo")()),
               '[1] "foo"')
  expect_equal(isolate(reactivePrint(function() invisible("foo"))()),
               '')
  expect_equal(isolate(reactivePrint(function() { print("foo"); "bar"})()),
               '[1] "foo"\n[1] "bar"')
  expect_equal(isolate(reactivePrint(function() NULL)()),
               'NULL')
  expect_equal(isolate(reactivePrint(function() invisible())()),
               '')
  expect_equal(isolate(reactivePrint(function() 1:5)()),
               '[1] 1 2 3 4 5')
  
  expect_equal(isolate(reactiveText(function() "foo")()),
               'foo')
  expect_equal(isolate(reactiveText(function() invisible("foo"))()),
               'foo')
  # Capture the print output so it's not shown on console during test, and
  # also check that it is correct
  print_out <- capture.output(ret <- isolate(reactiveText(function() { print("foo"); "bar"})()))
  expect_equal(ret, 'bar')
  expect_equal(print_out, '[1] "foo"')
  expect_equal(isolate(reactiveText(function() NULL)()),
               '')
  expect_equal(isolate(reactiveText(function() invisible())()),
               '')
  expect_equal(isolate(reactiveText(function() 1:5)()),
               '1 2 3 4 5')  
})

test_that("reactive functions save visibility state", {
  # Call each function twice - should be no change in state with second call

  # invisible NULL
  f <- reactive(function() invisible())
  expect_identical(withVisible(isolate(f())), list(value=NULL, visible=FALSE))
  expect_identical(withVisible(isolate(f())), list(value=NULL, visible=FALSE))

  # visible NULL
  f <- reactive(function() NULL)
  expect_identical(withVisible(isolate(f())), list(value=NULL, visible=TRUE))
  expect_identical(withVisible(isolate(f())), list(value=NULL, visible=TRUE))

  # invisible non-NULL value
  f <- reactive(function() invisible(10))
  expect_identical(withVisible(isolate(f())), list(value=10, visible=FALSE))
  expect_identical(withVisible(isolate(f())), list(value=10, visible=FALSE))

  # visible non-NULL value
  f <- reactive(function() 10)
  expect_identical(withVisible(isolate(f())), list(value=10, visible=TRUE))
  expect_identical(withVisible(isolate(f())), list(value=10, visible=TRUE))
})