03-variable-injection.md done

test/test-ob-elixir.el

@@ -54,5 +54,82 @@
     (should (or (string-match-p "%{a: 1, b: 2}" result)
                 (string-match-p "%{b: 2, a: 1}" result)))))
 
+;;; Type Conversion Tests
+
+(ert-deftest ob-elixir-test-convert-nil ()
+  "Test nil conversion."
+  (should (equal "nil" (ob-elixir--elisp-to-elixir nil))))
+
+(ert-deftest ob-elixir-test-convert-true ()
+  "Test t conversion."
+  (should (equal "true" (ob-elixir--elisp-to-elixir t))))
+
+(ert-deftest ob-elixir-test-convert-integer ()
+  "Test integer conversion."
+  (should (equal "42" (ob-elixir--elisp-to-elixir 42)))
+  (should (equal "-10" (ob-elixir--elisp-to-elixir -10))))
+
+(ert-deftest ob-elixir-test-convert-float ()
+  "Test float conversion."
+  (should (equal "3.14" (ob-elixir--elisp-to-elixir 3.14))))
+
+(ert-deftest ob-elixir-test-convert-string ()
+  "Test string conversion."
+  (should (equal "\"hello\"" (ob-elixir--elisp-to-elixir "hello"))))
+
+(ert-deftest ob-elixir-test-convert-string-escaping ()
+  "Test string escaping."
+  (should (equal "\"say \\\"hi\\\"\"" 
+                 (ob-elixir--elisp-to-elixir "say \"hi\"")))
+  (should (equal "\"line1\\nline2\"" 
+                 (ob-elixir--elisp-to-elixir "line1\nline2"))))
+
+(ert-deftest ob-elixir-test-convert-symbol ()
+  "Test symbol conversion to atom."
+  (should (equal ":foo" (ob-elixir--elisp-to-elixir 'foo)))
+  (should (equal ":ok" (ob-elixir--elisp-to-elixir 'ok))))
+
+(ert-deftest ob-elixir-test-convert-list ()
+  "Test list conversion."
+  (should (equal "[1, 2, 3]" (ob-elixir--elisp-to-elixir '(1 2 3))))
+  (should (equal "[\"a\", \"b\"]" (ob-elixir--elisp-to-elixir '("a" "b")))))
+
+(ert-deftest ob-elixir-test-convert-nested-list ()
+  "Test nested list conversion."
+  (should (equal "[[1, 2], [3, 4]]" 
+                 (ob-elixir--elisp-to-elixir '((1 2) (3 4))))))
+
+(ert-deftest ob-elixir-test-convert-vector ()
+  "Test vector to tuple conversion."
+  (should (equal "{1, 2, 3}" (ob-elixir--elisp-to-elixir [1 2 3]))))
+
+;;; Variable Injection Tests
+
+(ert-deftest ob-elixir-test-variable-assignments ()
+  "Test variable assignment generation."
+  (let ((params '((:var . ("x" . 5))
+                  (:var . ("name" . "Alice")))))
+    (let ((assignments (org-babel-variable-assignments:elixir params)))
+      (should (member "x = 5" assignments))
+      (should (member "name = \"Alice\"" assignments)))))
+
+(ert-deftest ob-elixir-test-var-execution ()
+  "Test code execution with variables."
+  (skip-unless (executable-find ob-elixir-command))
+  (let* ((params '((:var . ("x" . 10))))
+         (var-lines (org-babel-variable-assignments:elixir params))
+         (full-body (concat (mapconcat #'identity var-lines "\n")
+                            "\nx * 2")))
+    (should (equal "20" (ob-elixir--execute full-body 'value)))))
+
+(ert-deftest ob-elixir-test-var-list ()
+  "Test passing list as variable."
+  (skip-unless (executable-find ob-elixir-command))
+  (let* ((params '((:var . ("data" . (1 2 3)))))
+         (var-lines (org-babel-variable-assignments:elixir params))
+         (full-body (concat (mapconcat #'identity var-lines "\n")
+                            "\nEnum.sum(data)")))
+    (should (equal "6" (ob-elixir--execute full-body 'value)))))
+
 (provide 'test-ob-elixir)
 ;;; test-ob-elixir.el ends here