# tests/testthat/test-order_cols_module.R

# test order columns - before -------------------------------------------------
test_that('Test order one column - before all', {
  testServer(order_cols_server, {

    last_msg <- NULL

    local_mocked_bindings(
      remove_running_modal = function() { last_msg <<- 'Remove modal' }
    )

    vars <- c('wt')
    var1 <- names(mtcars)[1]
    session$userData$dt <- reactiveValues(
      dt = list('mtcars' = mtcars |> as.data.table()),
      act_name = 'mtcars'
    )
    session$userData$data_changed <- reactiveVal(0)
    session$setInputs(vars_cols = vars)
    session$setInputs(vars_rest = var1)
    session$setInputs(radio_cols = 'before')
    session$setInputs(btn_order_cols = 1)

    mtcars_reordered <- mtcars |>
      dplyr::relocate(tidyselect::all_of(vars), .before = tidyselect::all_of(var1))

    expect_equal(session$userData$dt$dt[[session$userData$dt$act_name]],
                 mtcars_reordered |> as.data.table())

    expect_equal(last_msg, 'Remove modal')
  })
})

test_that('Test order two column - before all', {
  testServer(order_cols_server, {

    last_msg <- NULL

    local_mocked_bindings(
      remove_running_modal = function() { last_msg <<- 'Remove modal' }
    )

    vars <- c('wt', 'hp')
    var1 <- names(mtcars)[1]
    session$userData$dt <- reactiveValues(
      dt = list('mtcars' = mtcars |> as.data.table()),
      act_name = 'mtcars'
    )
    session$userData$data_changed <- reactiveVal(0)
    session$setInputs(vars_cols = vars)
    session$setInputs(vars_rest = var1)
    session$setInputs(radio_cols = 'before')
    session$setInputs(btn_order_cols = 1)

    mtcars_reordered <- mtcars |>
      dplyr::relocate(tidyselect::all_of(vars), .before = tidyselect::all_of(var1))

    expect_equal(session$userData$dt$dt[[session$userData$dt$act_name]],
                 mtcars_reordered |> as.data.table())
    expect_equal(last_msg, 'Remove modal')
  })
})

test_that('Test order one column - before especific', {
  testServer(order_cols_server, {

    last_msg <- NULL

    local_mocked_bindings(
      remove_running_modal = function() { last_msg <<- 'Remove modal' }
    )

    vars <- c('wt')
    var1 <- names(mtcars)[4]
    session$userData$dt <- reactiveValues(
      dt = list('mtcars' = mtcars |> as.data.table()),
      act_name = 'mtcars'
    )
    session$userData$data_changed <- reactiveVal(0)
    session$setInputs(vars_cols = vars)
    session$setInputs(vars_rest = var1)
    session$setInputs(radio_cols = 'before')
    session$setInputs(btn_order_cols = 1)

    mtcars_reordered <- mtcars |>
      dplyr::relocate(tidyselect::all_of(vars), .before = tidyselect::all_of(var1))

    expect_equal(session$userData$dt$dt[[session$userData$dt$act_name]],
                 mtcars_reordered |> as.data.table())
    expect_equal(last_msg, 'Remove modal')
  })
})

test_that('Test order two columns - before especific', {
  testServer(order_cols_server, {

    last_msg <- NULL

    local_mocked_bindings(
      remove_running_modal = function() { last_msg <<- 'Remove modal' }
    )

    vars <- c('wt','mpg')
    var1 <- names(mtcars)[4]
    session$userData$dt <- reactiveValues(
      dt = list('mtcars' = mtcars |> as.data.table()),
      act_name = 'mtcars'
    )
    session$userData$data_changed <- reactiveVal(0)
    session$setInputs(vars_cols = vars)
    session$setInputs(vars_rest = var1)
    session$setInputs(radio_cols = 'before')
    session$setInputs(btn_order_cols = 1)

    mtcars_reordered <- mtcars |>
      dplyr::relocate(tidyselect::all_of(vars), .before = tidyselect::all_of(var1))

    expect_equal(session$userData$dt$dt[[session$userData$dt$act_name]],
                 mtcars_reordered |> as.data.table())
    expect_equal(last_msg, 'Remove modal')
  })
})

# test order columns - after -------------------------------------------------
test_that('Test order one column - after all', {
  testServer(order_cols_server, {

    last_msg <- NULL

    local_mocked_bindings(
      remove_running_modal = function() { last_msg <<- 'Remove modal' }
    )

    vars <- c('wt')
    var1 <- names(mtcars)[length(mtcars)]
    session$userData$dt <- reactiveValues(
      dt = list('mtcars' = mtcars |> as.data.table()),
      act_name = 'mtcars'
    )
    session$userData$data_changed <- reactiveVal(0)
    session$setInputs(vars_cols = vars)
    session$setInputs(vars_rest = var1)
    session$setInputs(radio_cols = 'after')
    session$setInputs(btn_order_cols = 1)

    mtcars_reordered <- mtcars |>
      dplyr::relocate(tidyselect::all_of(vars), .after = tidyselect::all_of(var1))

    expect_equal(session$userData$dt$dt[[session$userData$dt$act_name]],
                 mtcars_reordered |> as.data.table())
    expect_equal(last_msg, 'Remove modal')
  })
})

test_that('Test order two columns - after all', {
  testServer(order_cols_server, {

    last_msg <- NULL

    local_mocked_bindings(
      remove_running_modal = function() { last_msg <<- 'Remove modal' }
    )

    vars <- c('wt', 'drat')
    var1 <- names(mtcars)[length(mtcars)]
    session$userData$dt <- reactiveValues(
      dt = list('mtcars' = mtcars |> as.data.table()),
      act_name = 'mtcars'
    )
    session$userData$data_changed <- reactiveVal(0)
    session$setInputs(vars_cols = vars)
    session$setInputs(vars_rest = var1)
    session$setInputs(radio_cols = 'after')
    session$setInputs(btn_order_cols = 1)

    mtcars_reordered <- mtcars |>
      dplyr::relocate(tidyselect::all_of(vars), .after = tidyselect::all_of(var1))

    expect_equal(session$userData$dt$dt[[session$userData$dt$act_name]],
                 mtcars_reordered |> as.data.table())
    expect_equal(last_msg, 'Remove modal')
  })
})

test_that('Test order one column - after specific', {
  testServer(order_cols_server, {

    last_msg <- NULL

    local_mocked_bindings(
      remove_running_modal = function() { last_msg <<- 'Remove modal' }
    )

    vars <- c('am')
    var1 <- names(mtcars)[8]
    session$userData$dt <- reactiveValues(
      dt = list('mtcars' = mtcars |> as.data.table()),
      act_name = 'mtcars'
    )
    session$userData$data_changed <- reactiveVal(0)
    session$setInputs(vars_cols = vars)
    session$setInputs(vars_rest = var1)
    session$setInputs(radio_cols = 'after')
    session$setInputs(btn_order_cols = 1)

    mtcars_reordered <- mtcars |>
      dplyr::relocate(tidyselect::all_of(vars), .after = tidyselect::all_of(var1))

    expect_equal(session$userData$dt$dt[[session$userData$dt$act_name]],
                 mtcars_reordered |> as.data.table())
    expect_equal(last_msg, 'Remove modal')
  })
})

test_that('Test order two columns - after specific', {
  testServer(order_cols_server, {

    last_msg <- NULL

    local_mocked_bindings(
      remove_running_modal = function() { last_msg <<- 'Remove modal' }
    )

    vars <- c('am', 'carb')
    var1 <- names(mtcars)[2]
    session$userData$dt <- reactiveValues(
      dt = list('mtcars' = mtcars |> as.data.table()),
      act_name = 'mtcars'
    )
    session$userData$data_changed <- reactiveVal(0)
    session$setInputs(vars_cols = vars)
    session$setInputs(vars_rest = var1)
    session$setInputs(radio_cols = 'after')
    session$setInputs(btn_order_cols = 1)

    mtcars_reordered <- mtcars |>
      dplyr::relocate(tidyselect::all_of(vars), .after = tidyselect::all_of(var1))

    expect_equal(session$userData$dt$dt[[session$userData$dt$act_name]],
                 mtcars_reordered |> as.data.table())
    expect_equal(last_msg, 'Remove modal')
  })
})

# test input check messages ---------------------------------------------------
test_that('Test order cols - check inputs', {
  testServer(order_cols_server, {

    last_msg <- NULL

    local_mocked_bindings(
      msg = function(text, ...) { last_msg <<- text }
    )

    session$userData$dt <- reactiveValues(
      dt = list('mtcars' = mtcars |> as.data.table()),
      act_name = 'mtcars'
    )

    session$setInputs(vars_cols = NULL, btn_order_cols = 1)

    expect_equal(last_msg, 'Choose at least one variable')

  })
})

