# nolint start: indentation_linter

test_that("write_rnbt() can write bytes", {
  rnbt_val <- list(
    list(name = "pos", type = 1L, value = 100L),
    list(name = "neg", type = 1L, value = -2L)
  )
  rawval_args <- list(b = 1L, "pos", b = 100, b = 1L, "neg", b = 254)

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write shorts", {
  rnbt_val <- list(
    list(name = "pos", type = 2L, value = 100L),
    list(name = "neg", type = 2L, value = -2L)
  )
  rawval_args <- list(b = 2L, "pos", s = 100, b = 2L, "neg", s = -2)

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write ints", {
  rnbt_val <- list(
    list(name = "pos", type = 3L, value = 100),
    list(name = "neg", type = 3L, value = -2)
  )
  rawval_args <- list(b = 3L, "pos", i = 100, b = 3L, "neg", i = -2)

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write longs", {
  rnbt_val <- list(
    list(name = "pos", type = 4L, value = "4000000000000000001"),
    list(name = "neg", type = 4L, value = "-4000000000000000001")
  )
  rawval_args <- list(
    b = 4L,
    "pos",
    l = "4000000000000000001",
    b = 4L,
    "neg",
    l = "-4000000000000000001"
  )

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write floats", {
  rnbt_val <- list(
    list(name = "pos", type = 5L, value = 36.125),
    list(name = "neg", type = 5L, value = -1776.75)
  )
  rawval_args <- list(b = 5L, "pos", f = 36.125, b = 5L, "neg", f = -1776.75)

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write doubles", {
  rnbt_val <- list(
    list(name = "pos", type = 6L, value = 36.125),
    list(name = "neg", type = 6L, value = -1776.75)
  )
  rawval_args <- list(b = 6L, "pos", d = 36.125, b = 6L, "neg", d = -1776.75)

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write byte arrays", {
  rnbt_val <- list(
    list(name = "8val", type = 7L, value = 10:17),
    list(name = "1val", type = 7L, value = 20)
  )
  rawval_args <- list(b = 7L, "8val", 8L, b = 10:17, b = 7L, "1val", 1L, b = 20)

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write strings", {
  rnbt_val <- list(
    list(name = "test", type = 8L, value = "hello world"),
    list(name = "empty", type = 8L, value = ""),
    list(name = "greek", type = 8L, value = "\u03B1\u03B2\u03B3"),
    list(name = "raw", type = 58L, value = as.raw(c(97, 0, 98)))
  )
  rawval_args <- list(
    b = 8L,
    "test",
    "hello world",
    b = 8L,
    "empty",
    "",
    b = 8L,
    "greek",
    "\u03B1\u03B2\u03B3",
    b = 8L,
    "raw",
    us = 3,
    b = c(97, 0, 98)
  )

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write int arrays", {
  rnbt_val <- list(
    list(name = "8val", type = 11L, value = 10:17),
    list(name = "1val", type = 11L, value = 20)
  )
  rawval_args <- list(
    b = 11L,
    "8val",
    8L,
    i = 10:17,
    b = 11L,
    "1val",
    1L,
    i = 20
  )

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write long arrays", {
  rnbt_val <- list(
    list(name = "8val", type = 12L, value = as.character(10:17)),
    list(name = "1val", type = 12L, value = "20")
  )
  rawval_args <- list(
    b = 12L,
    "8val",
    8L,
    l = 10:17,
    b = 12L,
    "1val",
    1L,
    l = 20
  )

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write compound values", {
  rnbt_val <- list(
    list(
      name = "test",
      type = 10L,
      value = list(
        list(name = "a", type = 1L, value = 1),
        list(name = "b", type = 3L, value = 2)
      )
    )
  )
  rawval_args <- list(
    b = 10L,
    "test",
    b = 1L,
    "a",
    b = 1,
    b = 3L,
    "b",
    i = 2,
    b = 0L
  )

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write empty lists", {
  rnbt_val <- list(
    list(name = "empty", type = 100L, value = list())
  )
  rawval_args <- list(b = 9L, "empty", b = 0L, 0L)

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write lists of bytes", {
  rnbt_val <- list(
    list(name = "a", type = 101L, value = 1:2),
    list(name = "b", type = 101L, value = -3)
  )
  rawval_args <- list(
    b = 9L,
    "a",
    b = 1L,
    2L,
    b = 1:2,
    b = 9L,
    "b",
    b = 1L,
    1L,
    b = -3
  )

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write lists of shorts", {
  rnbt_val <- list(
    list(name = "a", type = 102L, value = 1:2),
    list(name = "b", type = 102L, value = -3)
  )
  rawval_args <- list(
    b = 9L,
    "a",
    b = 2L,
    2L,
    s = 1:2,
    b = 9L,
    "b",
    b = 2L,
    1L,
    s = -3
  )

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write lists of shorts", {
  rnbt_val <- list(
    list(name = "a", type = 103L, value = 1:2),
    list(name = "b", type = 103L, value = -3)
  )
  rawval_args <- list(
    b = 9L,
    "a",
    b = 3L,
    2L,
    i = 1:2,
    b = 9L,
    "b",
    b = 3L,
    1L,
    i = -3
  )

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write lists of longs", {
  rnbt_val <- list(
    list(name = "a", type = 104L, value = c("1", "2")),
    list(name = "b", type = 104L, value = "-3")
  )
  rawval_args <- list(
    b = 9L,
    "a",
    b = 4L,
    2L,
    l = 1:2,
    b = 9L,
    "b",
    b = 4L,
    1L,
    l = -3
  )

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write lists of floats", {
  rnbt_val <- list(
    list(name = "a", type = 105L, value = 1:2),
    list(name = "b", type = 105L, value = -3)
  )
  rawval_args <- list(
    b = 9L,
    "a",
    b = 5L,
    2L,
    f = 1:2,
    b = 9L,
    "b",
    b = 5L,
    1L,
    f = -3
  )

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write lists of doubles", {
  rnbt_val <- list(
    list(name = "a", type = 106L, value = 1:2),
    list(name = "b", type = 106L, value = -3)
  )
  rawval_args <- list(
    b = 9L,
    "a",
    b = 6L,
    2L,
    d = 1:2,
    b = 9L,
    "b",
    b = 6L,
    1L,
    d = -3
  )

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write lists of byte arrays", {
  rnbt_val <- list(
    list(name = "a", type = 107L, value = list(1:2, -3))
  )
  rawval_args <- list(b = 9L, "a", b = 7L, 2L, 2, b = 1:2, 1, b = -3)

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write lists of strings", {
  rnbt_val <- list(
    list(name = "abc", type = 108L, value = c("a", "b", "c")),
    list(name = "raw", type = 158L, value = list(as.raw(c(97, 0, 98)))),
    list(
      name = "lst",
      type = 158L,
      value = list(
        charToRaw("abc"),
        as.raw(c(97, 0, 98))
      )
    )
  )
  rawval_args <- list(
    b = 9,
    "abc",
    b = 8,
    3,
    "a",
    "b",
    "c",
    b = 9,
    "raw",
    b = 8,
    1,
    us = 3,
    b = c(97, 0, 98),
    b = 9,
    "lst",
    b = 8,
    2,
    "abc",
    us = 3,
    b = c(97, 0, 98)
  )

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write lists of int arrays", {
  rnbt_val <- list(
    list(name = "a", type = 111L, value = list(1:2, -3))
  )
  rawval_args <- list(b = 9L, "a", b = 11L, 2L, 2, i = 1:2, 1, i = -3)

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write lists of long arrays", {
  rnbt_val <- list(
    list(name = "a", type = 112L, value = list(c("1", "2"), "-3"))
  )
  rawval_args <- list(b = 9L, "a", b = 12L, 2L, 2, l = 1:2, 1, l = -3)

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write lists of compounds", {
  rnbt_val <- list(
    list(
      name = "cmplst",
      type = 110L,
      value = list(
        list(list(name = "a", type = 1, value = 10)),
        list(
          list(name = "x", type = 1, value = 20),
          list(name = "y", type = 1, value = 21)
        )
      )
    )
  )
  rawval_args <- list(
    b = 9,
    "cmplst",
    b = 10,
    2,
    b = 1,
    "a",
    b = 10,
    b = 0,
    b = 1,
    "x",
    b = 20,
    b = 1,
    "y",
    b = 21,
    b = 0
  )

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

test_that("write_rnbt() can write lists of lists", {
  rnbt_val <- list(
    list(
      name = "lstlst",
      type = 109L,
      value = list(
        list(type = 101, value = 1),
        list(type = 102, value = -1:0)
      )
    )
  )
  rawval_args <- list(
    b = 9,
    "lstlst",
    b = 9,
    2,
    b = 1,
    1,
    b = 1,
    b = 2,
    2,
    s = -1:0
  )

  expect_equal(write_rnbt(rnbt_val), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "little"), as_raw_le(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "big"), as_raw_be(rawval_args))
  expect_equal(write_rnbt(rnbt_val, "network"), as_raw_lv(rawval_args))
})

# nolint end