skip("Skipping all tests in this file temporarily")
fake_token <- rtoot:::get_token_from_envvar(
  "RTOOT_DEFAULT_TOKEN",
  check_stop = FALSE
)
fake_token$type <- "user"
fake_token$instance <- "fosstodon.org"

test_that("post_toot, defensive", {
  expect_error(post_toot(status = NA, token = fake_token))
  expect_error(post_toot(
    status = c("I", "have", "a", "lot", "to", "say"),
    token = fake_token
  ))
  expect_error(post_toot(visibility = "Let Elon read this", token = fake_token))
  ## no alt text, but with media
  expect_error(post_toot(
    "testing in progress, please ignore",
    media = "../testdata/logo.png",
    token = fake_token
  ))
  ## super long alttext
  expect_error(post_toot(
    "testing in progress, please ignore",
    media = "../testdata/logo.png",
    alt_text = paste(rep("a", 3000), collapse = ""),
    token = fake_token
  ))
})

test_that("post_toot, real", {
  vcr::use_cassette("post_toot_default", {
    expect_no_error(
      x <- post_toot(
        status = "testing in progress, please ignore",
        token = fake_token,
        verbose = FALSE
      )
    )
  })

  vcr::use_cassette("post_toot_spoiler_text", {
    expect_no_error(
      x <- post_toot(
        status = "testing in progress, please ignore",
        spoiler_text = "rtoot is the best",
        token = fake_token,
        verbose = FALSE
      )
    )
  })
  vcr::use_cassette("post_toot_sensitive", {
    expect_no_error(
      x <- post_toot(
        status = "testing in progress, please ignore",
        spoiler_text = "rtoot is the best",
        sensitive = TRUE,
        token = fake_token,
        verbose = FALSE
      )
    )
  })
  vcr::use_cassette("post_toot_visibility", {
    expect_no_error(
      x <- post_toot(
        status = "testing in progress, please ignore",
        spoiler_text = "rtoot is the best",
        visibility = "unlisted",
        token = fake_token,
        verbose = FALSE
      )
    )
  })
  vcr::use_cassette("post_toot_language", {
    expect_no_error(
      x <- post_toot(
        status = "jetzt testen",
        language = "de",
        visibility = "unlisted",
        token = fake_token,
        verbose = FALSE
      )
    )
  })
})

test_that("post_user", {
  ## defensive
  expect_error(post_user(
    "5358",
    action = "promotehimtoprofessor",
    token = fake_token
  ))
  vcr::use_cassette("post_user_pin", {
    ## Thanks Tim, you are the best!
    expect_no_error(
      post_user("5358", action = "pin", token = fake_token, verbose = FALSE),
    )
  })
})

fake_token2 <- rtoot:::get_token_from_envvar(
  "RTOOT_DEFAULT_TOKEN",
  check_stop = FALSE
)
fake_token2$type <- "user"
fake_token2$instance <- "fosstodon.org"

test_that("post_toot, verbose", {
  vcr::use_cassette("post_toot_verbose", {
    expect_message(
      x <- post_toot(
        status = "testing in progress, please ignore",
        token = fake_token2,
        verbose = TRUE
      )
    )
  })
  vcr::use_cassette("post_toot_silent", {
    expect_silent(
      x <- post_toot(
        status = "testing in progress, please ignore",
        token = fake_token2,
        verbose = FALSE
      )
    )
  })
})

test_that("post_user silent", {
  vcr::use_cassette("post_user_pin_silent", {
    ## Thanks Tim, you are still the best!
    expect_silent(post_user(
      "109337044410360200",
      action = "pin",
      token = fake_token2,
      verbose = FALSE
    ))
  })
})

fake_token3 <- rtoot:::get_token_from_envvar(
  "RTOOT_DEFAULT_TOKEN",
  check_stop = FALSE
)
fake_token3$type <- "user"
fake_token3$instance <- "fosstodon.org"


test_that("post_status", {
  vcr::use_cassette("post_status_success", {
    expect_message(post_status(
      "110632697682444411",
      action = "reblog",
      token = fake_token3
    ))
  })
})