Initial import

2026-08-09 14:41:59 +02:00
parent ad5200d58d
commit 43516e7715
9 changed files with 1257 additions and 67 deletions
@@ -0,0 +1,73 @@
+#lang racket/base
+
+(require rackunit
+         racket/file
+         git)
+
+(define tmp (make-temporary-file "racket-git-test~a" 'directory))
+
+(dynamic-wind
+  void
+  (lambda ()
+    (make-directory (build-path tmp "sub"))
+    (parameterize ([current-directory tmp])
+      (git init)
+      (check-true (git-repository?))
+      (check-equal? (git-current-branch) "master")
+      (check-true (git-clean?))
+
+      (git config "user.name" "Racket Git Test")
+      (git config "user.email" "racket-git-test@example.invalid")
+      (check-equal? (git-config "user.name") "Racket Git Test")
+
+      (call-with-output-file ".gitignore"
+        #:exists 'truncate/replace
+        (lambda (out) (displayln "ignored.txt" out)))
+      (call-with-output-file "ignored.txt"
+        #:exists 'truncate/replace
+        (lambda (out) (displayln "ignored" out)))
+      (call-with-output-file (build-path "sub" "hello.txt")
+        #:exists 'truncate/replace
+        (lambda (out) (displayln "hello" out)))
+
+      (check-equal? (git-status-lines)
+                    '("?? .gitignore" "?? sub/hello.txt"))
+
+      (parameterize ([current-directory (build-path tmp "sub")])
+        (git add "hello.txt"))
+      (check-equal? (git-status-lines)
+                    '("?? .gitignore" "A  sub/hello.txt"))
+
+      (git add ".gitignore")
+      (define first (git-commit "initial commit"))
+      (check-equal? (string-length first) 40)
+      (check-true (git-clean?))
+
+      (git checkout -b "work")
+      (call-with-output-file (build-path "sub" "hello.txt")
+        #:exists 'truncate/replace
+        (lambda (out) (displayln "work" out)))
+      (git add)
+      (git commit "work change")
+      (check-equal? (file->string (build-path "sub" "hello.txt")) "work\n")
+
+      (git checkout "master")
+      (check-equal? (file->string (build-path "sub" "hello.txt")) "hello\n")
+      (check-equal? (git-current-branch) "master")
+      (check-not-false (member "work" (git branch)))
+
+      (git branch -d "work")
+      (check-false (member "work" (git branch)))
+
+      (define tag-id (git tag "v0.1"))
+      (check-equal? (string-length tag-id) 40)
+      (check-equal? (git tag) '("v0.1"))
+      (git checkout "v0.1")
+      (check-false (git-current-branch))
+      (git checkout "master")
+      (git tag -d "v0.1")
+      (check-equal? (git tag) '())
+
+      (check-equal? (length (git log 10)) 1)))
+  (lambda ()
+    (delete-directory/files tmp)))