tasks/06-test-suite.md done

test/test-ob-elixir-errors.el

@@ -0,0 +1,58 @@
+;;; test-ob-elixir-errors.el --- Error handling tests -*- lexical-binding: t; -*-
+
+;;; Commentary:
+
+;; Error handling and detection tests for ob-elixir package.
+
+;;; Code:
+
+(require 'ert)
+(require 'ob-elixir)
+
+;;; Error Detection Tests
+
+(ert-deftest ob-elixir-test-detect-runtime-error ()
+  "Test runtime error detection."
+  (let ((output "** (RuntimeError) something went wrong"))
+    (let ((error-info (ob-elixir--detect-error output)))
+      (should error-info)
+      (should (eq 'runtime (plist-get error-info :type)))
+      (should (equal "RuntimeError" (plist-get error-info :error-type))))))
+
+(ert-deftest ob-elixir-test-detect-compile-error ()
+  "Test compile error detection."
+  (let ((output "** (CompileError) test.exs:1: undefined function foo/0"))
+    (let ((error-info (ob-elixir--detect-error output)))
+      (should error-info)
+      (should (eq 'compile (plist-get error-info :type)))
+      (should (equal "CompileError" (plist-get error-info :error-type))))))
+
+(ert-deftest ob-elixir-test-no-error ()
+  "Test that valid output is not detected as error."
+  (should-not (ob-elixir--detect-error "42"))
+  (should-not (ob-elixir--detect-error "[1, 2, 3]"))
+  (should-not (ob-elixir--detect-error "\"hello\"")))
+
+(ert-deftest ob-elixir-test-error-execution ()
+  "Test that errors are properly handled during execution."
+  (skip-unless (executable-find ob-elixir-command))
+  (let ((ob-elixir-signal-errors nil))
+    (let ((result (ob-elixir--execute "raise \"test error\"" 'value)))
+      (should (string-match-p "RuntimeError" result)))))
+
+(ert-deftest ob-elixir-test-error-signaling ()
+  "Test that errors are signaled when configured."
+  (skip-unless (executable-find ob-elixir-command))
+  (let ((ob-elixir-signal-errors t))
+    (should-error (ob-elixir--execute "raise \"test error\"" 'value)
+                  :type 'ob-elixir-runtime-error)))
+
+(ert-deftest ob-elixir-test-undefined-function ()
+  "Test handling of undefined function error."
+  (skip-unless (executable-find ob-elixir-command))
+  (let ((ob-elixir-signal-errors nil))
+    (let ((result (ob-elixir--execute "undefined_function()" 'value)))
+      (should (string-match-p "\\(UndefinedFunctionError\\|CompileError\\)" result)))))
+
+(provide 'test-ob-elixir-errors)
+;;; test-ob-elixir-errors.el ends here