scene: Add current-scene parameter and some tests.

1 files changed, 87 insertions, 0 deletions

diff --git a/tests/scene.scm b/tests/scene.scm
new file mode 100644
index 0000000..533c738
--- /dev/null
+++ b/tests/scene.scm
@@ -0,0 +1,87 @@
+(define-module (tests scene)
+  #:use-module (catbird mode)
+  #:use-module (catbird node)
+  #:use-module (catbird scene)
+  #:use-module (oop goops)
+  #:use-module (srfi srfi-64)
+  #:use-module (tests utils))
+
+(define-class <test-mode> (<major-mode>))
+
+(with-tests "scene"
+  (test-group "$"
+    (let ((scene (make <scene>)))
+      (test-eq "no arguments"
+        (with-scene scene
+          ($))
+        scene))
+    (let ((scene (make <scene>))
+          (node (make <node> #:name 'foo)))
+      (test-eq "one argument"
+        (with-scene scene
+          (attach-to scene node)
+          ($ foo))
+        node)))
+  (let ((scene (make <scene>))
+        (node (make <node> #:name 'foo)))
+    (test-eq "add-to-scene"
+      (with-scene scene
+        (add-to-scene node)
+        (child-ref scene 'foo))
+      node))
+  (test-eq "initial major mode"
+    (class-of (major-mode (make <scene>)))
+    <nothing-mode>)
+  (test-group "replace-major-mode"
+    (test-eq "replacing does not add to the mode stack"
+      (let ((scene (make <scene>)))
+        (replace-major-mode scene (make <test-mode>))
+        (pop-major-mode scene)
+        (class-of (major-mode scene)))
+      <test-mode>)
+    (test-assert "exits previous mode, enters new one"
+      (let ((scene (make <scene>))
+            (entered? #f)
+            (exited? #f))
+        (define-class <mode1> (<major-mode>))
+        (define-class <mode2> (<major-mode>))
+        (define-method (on-exit (mode <mode1>))
+          (set! exited? #t))
+        (define-method (on-enter (mode <mode2>))
+          (set! entered? #t))
+        (replace-major-mode scene (make <mode1>))
+        (replace-major-mode scene (make <mode2>))
+        (and entered? exited?))))
+  (test-group "push-major-mode"
+    (test-eq "adds previous mode to the mode stack so it can be restored"
+      (let ((scene (make <scene>)))
+        (push-major-mode scene (make <test-mode>))
+        (pop-major-mode scene)
+        (class-of (major-mode scene)))
+      <nothing-mode>)
+    (test-assert "pauses the previous mode, enters new one"
+      (let ((scene (make <scene>))
+            (paused? #f)
+            (entered? #f))
+        (define-class <mode1> (<major-mode>))
+        (define-class <mode2> (<major-mode>))
+        (define-method (on-pause (mode <mode1>))
+          (set! paused? #t))
+        (define-method (on-enter (mode <mode2>))
+          (set! entered? #t))
+        (push-major-mode scene (make <mode1>))
+        (push-major-mode scene (make <mode2>))
+        (and paused? entered?))))
+  (test-group "pop-major-mode"
+    (test-eq "does nothing when there is no previous major mode"
+      (let ((scene (make <scene>)))
+        (pop-major-mode scene)
+        (class-of (major-mode scene)))
+      <nothing-mode>)
+    (test-assert "returns to previous major mode"
+      (let ((scene (make <scene>)))
+        (push-major-mode scene (make <test-mode>))
+        (and (eq? (class-of (major-mode scene)) <test-mode>)
+             (begin
+               (pop-major-mode scene)
+               (eq? (class-of (major-mode scene)) <nothing-mode>)))))))