R Under development (unstable) (2024-10-19 r87247 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> ## git2r, R bindings to the libgit2 library.
> ## Copyright (C) 2013-2023 The git2r contributors
> ##
> ## This program is free software; you can redistribute it and/or modify
> ## it under the terms of the GNU General Public License, version 2,
> ## as published by the Free Software Foundation.
> ##
> ## git2r is distributed in the hope that it will be useful,
> ## but WITHOUT ANY WARRANTY; without even the implied warranty of
> ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
> ## GNU General Public License for more details.
> ##
> ## You should have received a copy of the GNU General Public License along
> ## with this program; if not, write to the Free Software Foundation, Inc.,
> ## 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
> 
> library(git2r)
> library(tools)
> source("util/check.R")
> 
> ## For debugging
> sessionInfo()
R Under development (unstable) (2024-10-19 r87247 ucrt)
Platform: x86_64-w64-mingw32/x64
Running under: Windows Server 2022 x64 (build 20348)

Matrix products: default


locale:
[1] LC_COLLATE=C                 LC_CTYPE=German_Germany.utf8
[3] LC_MONETARY=C                LC_NUMERIC=C                
[5] LC_TIME=C                   

time zone: Europe/Berlin
tzcode source: internal

attached base packages:
[1] tools     stats     graphics  grDevices utils     datasets  methods  
[8] base     

other attached packages:
[1] git2r_0.35.0

loaded via a namespace (and not attached):
[1] compiler_4.5.0
> libgit2_version()
$major
[1] 1

$minor
[1] 7

$rev
[1] 2

> libgit2_features()
$threads
[1] TRUE

$https
[1] TRUE

$ssh
[1] FALSE

> 
> 
> ## Create a directory in tempdir
> path <- tempfile(pattern = "git2r-")
> dir.create(path)
> 
> ## Initialize a repository
> repo <- init(path)
> config(repo, user.name = "Alice", user.email = "alice@example.org")
> 
> ## Create a file
> f <- file(file.path(path, "test.txt"), "wb")
> writeChar("Hello world!\n", f, eos = NULL)
> close(f)
> 
> ## add and commit
> add(repo, "test.txt")
> new_commit <- commit(repo, "Commit message")
> 
> ## Lookup blob
> blob <- lookup(repo, "cd0875583aabe89ee197ea133980a9085d08e497")
> stopifnot(isTRUE(is_blob(blob)))
> stopifnot(identical(sha(blob), "cd0875583aabe89ee197ea133980a9085d08e497"))
> stopifnot(identical(is_binary(blob), FALSE))
> stopifnot(identical(blob, lookup(repo, "cd0875")))
> stopifnot(identical(length(blob), 13L))
> stopifnot(identical(content(blob), "Hello world!"))
> stopifnot(identical(print(blob), blob))
blob:  cd0875583aabe89ee197ea133980a9085d08e497
size:  13 bytes
> 
> ## Add one more commit
> f <- file(file.path(path, "test.txt"), "wb")
> writeChar("Hello world!\nHELLO WORLD!\nHeLlO wOrLd!\n", f, eos = NULL)
> close(f)
> add(repo, "test.txt")
> blob <- lookup(repo, tree(commit(repo, "New commit message"))$id[1])
> stopifnot(identical(content(blob),
+                     c("Hello world!", "HELLO WORLD!", "HeLlO wOrLd!")))
> stopifnot(identical(rawToChar(content(blob, raw = TRUE)),
+                     content(blob, split = FALSE)))
> 
> ## Check content of binary file
> set.seed(42)
> x <- as.raw((sample(0:255, 1000, replace = TRUE)))
> writeBin(x, con = file.path(path, "test.bin"))
> add(repo, "test.bin")
> commit(repo, "Add binary file")
[172701f] 2024-10-20: Add binary file
> blob <- tree(last_commit(repo))["test.bin"]
> stopifnot(identical(content(blob), NA_character_))
> stopifnot(identical(x, content(blob, raw = TRUE)))
> 
> ## Hash
> stopifnot(identical(hash("Hello, world!\n"),
+                     "af5626b4a114abcb82d63db7c8082c3c4756e51b"))
> stopifnot(identical(hash("test content\n"),
+                     "d670460b4b4aece5915caf5c68d12f560a9fe3e4"))
> stopifnot(identical(hash(c("Hello, world!\n",
+                            "test content\n")),
+                     c("af5626b4a114abcb82d63db7c8082c3c4756e51b",
+                       "d670460b4b4aece5915caf5c68d12f560a9fe3e4")))
> stopifnot(identical(hash(c("Hello, world!\n",
+                            NA_character_,
+                            "test content\n")),
+                     c("af5626b4a114abcb82d63db7c8082c3c4756e51b",
+                       NA_character_,
+                       "d670460b4b4aece5915caf5c68d12f560a9fe3e4")))
> stopifnot(identical(hash(character(0)), character(0)))
> 
> ## Hash file
> test_1_txt <- file(file.path(path, "test-1.txt"), "wb")
> writeChar("Hello, world!\n", test_1_txt, eos = NULL)
> close(test_1_txt)
> test_2_txt <- file(file.path(path, "test-2.txt"), "wb")
> writeChar("test content\n", test_2_txt, eos = NULL)
> close(test_2_txt)
> stopifnot(identical(hash("Hello, world!\n"),
+                     hashfile(file.path(path, "test-1.txt"))))
> stopifnot(identical(hash("test content\n"),
+                     hashfile(file.path(path, "test-2.txt"))))
> stopifnot(identical(hash(c("Hello, world!\n",
+                            "test content\n")),
+                     hashfile(c(file.path(path, "test-1.txt"),
+                                file.path(path, "test-2.txt")))))
> assertError(hashfile(c(file.path(path, "test-1.txt"),
+                        NA_character_,
+                        file.path(path, "test-2.txt"))))
> stopifnot(identical(hashfile(character(0)), character(0)))
> 
> ## Create blob from disk
> tmp_file_1 <- tempfile()
> tmp_file_2 <- tempfile()
> f1 <- file(tmp_file_1, "wb")
> writeChar("Hello, world!\n", f1, eos = NULL)
> close(f1)
> f2 <- file(tmp_file_2, "wb")
> writeChar("test content\n", f2, eos = NULL)
> close(f2)
> blob_list_1 <- blob_create(repo, c(tmp_file_1, tmp_file_2), relative = FALSE)
> unlink(tmp_file_1)
> unlink(tmp_file_2)
> stopifnot(identical(sapply(blob_list_1, "[[", "sha"),
+                     c("af5626b4a114abcb82d63db7c8082c3c4756e51b",
+                       "d670460b4b4aece5915caf5c68d12f560a9fe3e4")))
> 
> ## Create blob from workdir
> tmp_file_3 <- file.path(path, "test-workdir-1.txt")
> tmp_file_4 <- file.path(path, "test-workdir-2.txt")
> f3 <- file(tmp_file_3, "wb")
> writeChar("Hello, world!\n", f3, eos = NULL)
> close(f3)
> f4 <- file(tmp_file_4, "wb")
> writeChar("test content\n", f4, eos = NULL)
> close(f4)
> blob_list_2 <- blob_create(repo, c("test-workdir-1.txt",
+                                    "test-workdir-2.txt"))
> stopifnot(identical(sapply(blob_list_2, "[[", "sha"),
+                     c("af5626b4a114abcb82d63db7c8082c3c4756e51b",
+                       "d670460b4b4aece5915caf5c68d12f560a9fe3e4")))
> 
> ## Test arguments
> check_error(assertError(.Call(git2r:::git2r_blob_content, NULL, FALSE)),
+             "'blob' must be an S3 class git_blob")
> check_error(assertError(.Call(git2r:::git2r_blob_content, 3, FALSE)),
+             "'blob' must be an S3 class git_blob")
> check_error(assertError(.Call(git2r:::git2r_blob_content, repo, FALSE)),
+             "'blob' must be an S3 class git_blob")
> 
> b <- blob_list_1[[1]]
> b$sha <- NA_character_
> check_error(assertError(.Call(git2r:::git2r_blob_content, b, FALSE)),
+             "'blob' must be an S3 class git_blob")
> 
> check_error(assertError(hashfile(NA)), "invalid 'path' argument")
> 
> ## Cleanup
> unlink(path, recursive = TRUE)
> 
> proc.time()
   user  system elapsed 
   0.28    0.17    0.46