test_that("add stack action", {

  as_action <- add_stack_action(reactive(TRUE))

  testServer(
    function(id, ...) {
      moduleServer(
        id,
        as_action(
          board = reactiveValues(
            board = new_board(
              c(
                a = new_dataset_block("iris"),
                b = new_head_block()
              )
            )
          ),
          update = reactiveVal(list()),
          domain = MockShinySession$new()
        )
      )
    },
    {
      session$flushReact()
      expect_length(update(), 0L)

      session$setInputs(
        stack_confirm = 1L,
        stack_id = ""
      )

      expect_length(update(), 0L)

      session$setInputs(
        stack_confirm = 1L,
        stack_id = "test"
      )

      expect_length(update(), 0L)

      session$setInputs(
        stack_confirm = 1L,
        stack_id = "test",
        stack_block_selection = "test"
      )

      expect_length(update(), 0L)

      session$setInputs(
        stack_confirm = 1L,
        stack_id = "test",
        stack_block_selection = "",
        stack_color = "test"
      )

      expect_length(update(), 0L)

      session$setInputs(
        stack_confirm = 1L,
        stack_id = "test",
        stack_block_selection = "",
        stack_color = "#FFFFFF"
      )

      upd <- update()

      expect_length(upd, 1L)
      expect_named(upd, "stacks")

      expect_length(upd$stacks, 1L)
      expect_named(upd$stacks, "add")

      expect_length(upd$stacks$add, 1L)
      expect_named(upd$stacks$add, "test")
      expect_s3_class(upd$stacks$add, "stacks")
    }
  )
})

test_that("edit stack action", {

  es_action <- edit_stack_action(reactive("a"))

  testServer(
    function(id, ...) {
      moduleServer(
        id,
        es_action(
          board = reactiveValues(
            board = new_dock_board(
              c(
                a = new_dataset_block("iris"),
                b = new_head_block()
              ),
              stacks = stacks(a = "a")
            )
          ),
          update = reactiveVal(list()),
          domain = MockShinySession$new()
        )
      )
    },
    {
      session$flushReact()
      expect_length(update(), 0L)

      session$setInputs(
        edit_stack_confirm = 1L,
        edit_stack_blocks = "test"
      )

      expect_length(update(), 0L)

      session$setInputs(
        edit_stack_confirm = 1L,
        edit_stack_blocks = "",
        edit_stack_color = "test"
      )

      expect_length(update(), 0L)

      session$setInputs(
        edit_stack_confirm = 1L,
        edit_stack_blocks = "",
        edit_stack_color = "#FFFFFF",
        edit_stack_name = ""
      )

      expect_length(update(), 0L)

      session$setInputs(
        edit_stack_confirm = 1L,
        edit_stack_blocks = "",
        edit_stack_color = "#FFFFFF",
        edit_stack_name = "Test stack"
      )

      upd <- update()

      expect_length(upd, 1L)
      expect_named(upd, "stacks")

      expect_length(upd$stacks, 1L)
      expect_named(upd$stacks, "mod")

      expect_length(upd$stacks$mod, 1L)
      expect_named(upd$stacks$mod, "a")
      expect_s3_class(upd$stacks$mod, "stacks")
    }
  )
})

test_that("remove stack action", {

  rs_action <- remove_stack_action(reactive("a"))

  testServer(
    function(id, ...) {
      moduleServer(
        id,
        rs_action(
          board = reactiveValues(
            board = new_dock_board(
              c(
                a = new_dataset_block("iris"),
                b = new_head_block()
              ),
              stacks = stacks(a = "a")
            )
          ),
          update = reactiveVal(list()),
          domain = MockShinySession$new()
        )
      )
    },
    {
      session$flushReact()

      upd <- update()

      expect_length(upd, 1L)
      expect_named(upd, "stacks")

      expect_length(upd$stacks, 1L)
      expect_named(upd$stacks, "rm")

      expect_length(upd$stacks$rm, 1L)
      expect_identical(upd$stacks$rm, "a")
    }
  )
})