1 files changed, 151 insertions, 0 deletions
diff --git a/tests/test-org-roam-config-format.el b/tests/test-org-roam-config-format.el
new file mode 100644
index 00000000..e9378b7a
--- /dev/null
+++ b/tests/test-org-roam-config-format.el
@@ -0,0 +1,151 @@
+;;; test-org-roam-config-format.el --- Tests for cj/--format-roam-node -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Tests for the cj/--format-roam-node function from org-roam-config.el
+;;
+;; This function formats org-roam node file content with title, node-id, and body content.
+;; It creates a complete org-roam file with properties, title, category, and filetags.
+;;
+;; Example:
+;; Input:  title: "My Note", node-id: "abc123", content: "* Content\n"
+;; Output: Full org-roam file with metadata and content
+
+;;; Code:
+
+(require 'ert)
+(require 'testutil-general)
+
+;; Add modules directory to load path
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+
+;; Now load the actual production module
+(require 'org-roam-config)
+
+;;; Test Helpers
+
+(defun test-format (title node-id content)
+  "Test cj/--format-roam-node with TITLE, NODE-ID, and CONTENT.
+Returns the formatted file content."
+  (cj/--format-roam-node title node-id content))
+
+;;; Normal Cases
+
+(ert-deftest test-format-simple-node ()
+  "Should format simple node with all components."
+  (let ((result (test-format "Test Title" "id-123" "* Content\n")))
+    (should (string-match-p ":PROPERTIES:" result))
+    (should (string-match-p ":ID:       id-123" result))
+    (should (string-match-p "#\\+TITLE: Test Title" result))
+    (should (string-match-p "#\\+CATEGORY: Test Title" result))
+    (should (string-match-p "#\\+FILETAGS: Topic" result))
+    (should (string-match-p "\\* Content" result))))
+
+(ert-deftest test-format-properties-first ()
+  "Should place properties at the beginning."
+  (let ((result (test-format "Title" "id" "content")))
+    (should (string-prefix-p ":PROPERTIES:\n" result))))
+
+(ert-deftest test-format-id-after-properties ()
+  "Should place ID in properties block."
+  (let ((result (test-format "Title" "test-id-456" "content")))
+    (should (string-match-p ":PROPERTIES:\n:ID:       test-id-456\n:END:" result))))
+
+(ert-deftest test-format-title-after-properties ()
+  "Should place title after properties."
+  (let ((result (test-format "My Title" "id" "content")))
+    (should (string-match-p ":END:\n#\\+TITLE: My Title\n" result))))
+
+(ert-deftest test-format-category-matches-title ()
+  "Should set category to match title."
+  (let ((result (test-format "Project Name" "id" "content")))
+    (should (string-match-p "#\\+TITLE: Project Name\n#\\+CATEGORY: Project Name\n" result))))
+
+(ert-deftest test-format-filetags-topic ()
+  "Should set filetags to Topic."
+  (let ((result (test-format "Title" "id" "content")))
+    (should (string-match-p "#\\+FILETAGS: Topic\n" result))))
+
+(ert-deftest test-format-content-at-end ()
+  "Should place content after metadata."
+  (let ((result (test-format "Title" "id" "* Heading\nBody text\n")))
+    (should (string-suffix-p "* Heading\nBody text\n" result))))
+
+;;; Edge Cases - Various Titles
+
+(ert-deftest test-format-title-with-spaces ()
+  "Should handle title with spaces."
+  (let ((result (test-format "Multi Word Title" "id" "content")))
+    (should (string-match-p "#\\+TITLE: Multi Word Title" result))
+    (should (string-match-p "#\\+CATEGORY: Multi Word Title" result))))
+
+(ert-deftest test-format-title-with-punctuation ()
+  "Should handle title with punctuation."
+  (let ((result (test-format "Title: With, Punctuation!" "id" "content")))
+    (should (string-match-p "#\\+TITLE: Title: With, Punctuation!" result))))
+
+(ert-deftest test-format-title-with-numbers ()
+  "Should handle title with numbers."
+  (let ((result (test-format "Version 2.0" "id" "content")))
+    (should (string-match-p "#\\+TITLE: Version 2\\.0" result))))
+
+;;; Edge Cases - Various Node IDs
+
+(ert-deftest test-format-uuid-style-id ()
+  "Should handle UUID-style ID."
+  (let ((result (test-format "Title" "a1b2c3d4-e5f6-7890-abcd-ef1234567890" "content")))
+    (should (string-match-p ":ID:       a1b2c3d4-e5f6-7890-abcd-ef1234567890" result))))
+
+(ert-deftest test-format-short-id ()
+  "Should handle short ID."
+  (let ((result (test-format "Title" "1" "content")))
+    (should (string-match-p ":ID:       1" result))))
+
+(ert-deftest test-format-long-id ()
+  "Should handle long ID."
+  (let* ((long-id (make-string 100 ?a))
+         (result (test-format "Title" long-id "content")))
+    (should (string-match-p (concat ":ID:       " long-id) result))))
+
+;;; Edge Cases - Various Content
+
+(ert-deftest test-format-empty-content ()
+  "Should handle empty content."
+  (let ((result (test-format "Title" "id" "")))
+    (should (string-suffix-p "#+FILETAGS: Topic\n\n" result))))
+
+(ert-deftest test-format-multiline-content ()
+  "Should handle multiline content."
+  (let ((result (test-format "Title" "id" "* H1\nText\n** H2\nMore\n")))
+    (should (string-suffix-p "* H1\nText\n** H2\nMore\n" result))))
+
+(ert-deftest test-format-content-with-properties ()
+  "Should handle content that already has properties."
+  (let ((result (test-format "Title" "id" "* Heading\n:PROPERTIES:\n:CUSTOM: value\n:END:\n")))
+    (should (string-match-p ":CUSTOM: value" result))))
+
+;;; Integration Tests - Structure
+
+(ert-deftest test-format-complete-structure ()
+  "Should create proper org-roam file structure."
+  (let ((result (test-format "My Note" "abc-123" "* Content\n")))
+    ;; Check order of components
+    (should (< (string-match ":PROPERTIES:" result)
+               (string-match ":ID:" result)))
+    (should (< (string-match ":ID:" result)
+               (string-match ":END:" result)))
+    (should (< (string-match ":END:" result)
+               (string-match "#\\+TITLE:" result)))
+    (should (< (string-match "#\\+TITLE:" result)
+               (string-match "#\\+CATEGORY:" result)))
+    (should (< (string-match "#\\+CATEGORY:" result)
+               (string-match "#\\+FILETAGS:" result)))
+    (should (< (string-match "#\\+FILETAGS:" result)
+               (string-match "\\* Content" result)))))
+
+(ert-deftest test-format-double-newline-after-metadata ()
+  "Should have double newline between metadata and content."
+  (let ((result (test-format "Title" "id" "* Content")))
+    (should (string-match-p "#\\+FILETAGS: Topic\n\n\\* Content" result))))
+
+(provide 'test-org-roam-config-format)
+;;; test-org-roam-config-format.el ends here