tests/testthat/test-unicode-path.R

In languageserver: Language Server Protocol

test_that("Works with unicode path", {
    skip_on_cran()
    if (.Platform$OS.type == "windows" && getRversion() < R_system_version("4.2.0")) {
        skip_if_not(Sys.getenv("CI", "false") == "true")
        old_locale <- Sys.getlocale("LC_CTYPE")
        Sys.setlocale(locale = "chinese")
        on.exit({
            Sys.setlocale(locale = old_locale)
        })
    }

    dir <- file.path(tempdir(), "\U4E2D \U6587")
    dir.create(dir, showWarnings = FALSE, recursive = TRUE)
    client <- language_client(dir)

    defn_file <- withr::local_tempfile(pattern = "\U4E2D\U6587", fileext = ".R")
    defn2_file <- withr::local_tempfile(pattern = "\U4E2D\U6587", fileext = ".R")
    query_file <- withr::local_tempfile(pattern = "\U4E2D\U6587", fileext = ".R")
    writeLines(c("my_fn <- function(x) {", "  x + 1", "}"), defn_file)
    writeLines(c("my_fn"), query_file)

    client %>% did_save(defn_file)
    client %>% did_save(query_file)

    result <- client %>% respond_definition(query_file, c(0, 0))

    expect_equal(result$range$start, list(line = 0, character = 0))
    expect_equal(result$range$end, list(line = 2, character = 1))

    # remove definition
    writeLines("", defn_file)
    client %>% did_save(defn_file)

    result <- client %>% respond_definition(query_file, c(0, 0),
        retry_when = function(result) {
            length(result) > 0
        })

    expect_length(result, 0)

    # move function into different file
    writeLines(c("my_fn <- function(x) {", "  x + 1", "}"), defn2_file)
    client %>% did_save(defn2_file)

    result <- client %>% respond_definition(query_file, c(0, 0))

    expect_equal(result$uri, path_to_uri(defn2_file))

})