From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Sun, 22 Nov 2015 16:44:07 +0000 (-0600)
Subject: test-%run-and-friends
X-Git-Tag: v0.1.0~114
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=83544722d4d61a2c5acc384bef171b1e36b405c3;p=8sync.git

test-%run-and-friends
---

diff --git a/tests.scm b/tests.scm
index d56b4f2..e219c48 100644
--- a/tests.scm
+++ b/tests.scm
@@ -10,6 +10,17 @@
 
 (test-begin "tests")
 
+
+
+;;; Helpers
+;;; =======
+
+(define (speak-it)
+  (let ((messages '()))
+    (lambda* (#:optional message)
+      (if message (set! messages (append messages (list message))))
+      messages)))
+
 
 ;; Timer tests
 ;; ===========
@@ -200,17 +211,39 @@
   (test-equal (run-request-when run-two-squared) '(88 . 0)))
 
 
+;;; %run, %sync and friends tests
+;;; -----------------------------
+
+(define (test-%run-and-friends async-request expected-when)
+  (let* ((fake-kont (speak-it))
+         (run-request ((@@ (eightsync agenda) setup-async-request)
+                       fake-kont async-request)))
+    (test-equal (car async-request) '*async-request*)
+    (test-equal (run-request-when run-request) expected-when)
+    ;; we're using speaker as a fake continuation ;p
+    ((run-request-proc run-request))
+    (test-equal (fake-kont)
+                '("applesauce"))))
+
+(test-%run-and-friends (%run (string-concatenate '("apple" "sauce")))
+                       #f)
+
+(test-%run-and-friends (%run-at (string-concatenate '("apple" "sauce"))
+                                '(8 . 0))
+                       '(8 . 0))
+
+(test-%run-and-friends (%run-delay (string-concatenate '("apple" "sauce"))
+                                   8)
+                       ;; whoa, I'm surprised equal? can
+                       ;; compare records like this
+                       (tdelta 8 0))
+
+
 ;;; Agenda tests
 ;;; ------------
 
 ;; helpers
 
-(define (speak-it)
-  (let ((messages '()))
-    (lambda* (#:optional message)
-      (if message (set! messages (append messages (list message))))
-      messages)))
-
 (define (true-after-n-times n)
   (let ((count 0))
     (lambda _