inst/tests/test-events.r

In ggobi/plumbr: Mutable and dynamic data models

library(testthat)

context("Events")

test_that("can add listeners", {
  a <- mutaframe(a = 1:10)
  expect_that(length(plumbr:::changed(a)$.listeners), equals(0))
  
  add_listener(a, function() 1)
  expect_that(length(plumbr:::changed(a)$.listeners), equals(1))
})

test_that("callback recieves correct info", {
  a <- mutaframe(a = 1:10)
  
  event <- NULL
  add_listener(a, function(i, j) {
    event <<- list(i = i, j = j)
  })

  a[1, 1] <- 2
  expect_that(event$i, equals(1))

  a[5, 1] <- 2
  expect_that(event$i, equals(5))

})

test_that("callback on proxied mutaframe returns correct indices", {
  a <- mutaframe(a = 1:10)
  b <- a[5:10, , drop = FALSE]
  
  event_a <- NULL
  event_b <- NULL
  add_listener(a, function(i, j) {
    event_a <<- list(i = i, j = j)
  })
  add_listener(b, function(i, j) {
    event_b <<- list(i = i, j = j)
  })

  b[1, 1] <- 2
  expect_that(event_a$i, equals(5))
  expect_that(event_b$i, equals(1))
})

test_that("pausing combines data events", {
  a <- mutaframe(a = 1:10)
  event <- NULL
  add_listener(a, function(i, j) {
    event <<- list(i = i, j = j)
  })

  pause(a)
  a[1, 1] <- 2
  a[1, 1] <- 3
  
  expect_that(event, equals(NULL))
  unpause(a)
  expect_that(event, equals(list(i = 1, j = "a")))

  pause(a)
  a[1, 1] <- 2
  a$b <- 1:10
  unpause(a)
  expect_that(event, equals(list(i = NULL, j = NULL)))

})

test_that("complicated system doesn't cause endless loop", {
  a <- mutaframe(a = rep(1, 10))
  
  a1 <- a[1:5, , drop = FALSE]
  a2 <- a[1:9, , drop = FALSE]
  
  a1a <- a1[1:3, , drop = FALSE]
  a1b <- a1[3:5, , drop = FALSE]
  
  a1a[3, 1] <- 2  
  
  expect_that(a[3, 1], equals(2))
  expect_that(a1b[1, 1], equals(2))
})