From 0115885ae590135aee236839401b3a981772dae0 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Mon, 6 Jan 2020 20:09:13 -0800
Subject: Automatically load scheme-mode for scsh files

When the interpreter contains scsh, load ‘scheme-mode’.
---
 test/oni-scheme.bats | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 test/oni-scheme.bats

(limited to 'test')

diff --git a/test/oni-scheme.bats b/test/oni-scheme.bats
new file mode 100644
index 0000000..acfa53d
--- /dev/null
+++ b/test/oni-scheme.bats
@@ -0,0 +1,23 @@
+#!/usr/bin/env bats
+
+@test "Opening a scheme file loads oni-scheme" {
+    run emacs -batch -l package -f package-initialize \
+          -visit test.scm \
+          -eval "(prin1 (featurep 'oni-scheme))"
+
+    [ "$output" = "t" ]
+}
+
+@test "Opening a file with the SCSH interpreter loads scheme-mode" {
+    filename="$(mktemp)"
+
+    echo "#!/usr/bin/scsh -s" > "$filename"
+
+    run emacs -batch -l package -f package-initialize \
+        -visit "$filename" \
+        -eval "(prin1 major-mode)"
+
+    rm "$filename"
+
+    [ "$output" = "scheme-mode" ]
+}
-- 
cgit v1.2.3-54-g00ecf