1
0
mirror of https://github.com/janet-lang/janet synced 2025-10-20 10:17:40 +00:00

Rename fiber.resume and fiber.yield to

resume and yield.
This commit is contained in:
Calvin Rose
2018-06-09 13:08:30 -04:00
parent eba6242978
commit 2a87dada47
9 changed files with 48 additions and 56 deletions

View File

@@ -149,18 +149,18 @@
(def afiber (fiber.new (fn [x]
(error (string "hello, " x))) :e))
(def afiber-result (fiber.resume afiber "world!"))
(def afiber-result (resume afiber "world!"))
(assert (= afiber-result "hello, world!") "fiber error result")
(assert (= (fiber.status afiber) :error) "fiber error status")
# yield tests
(def t (fiber.new (fn [] (fiber.yield 1) (fiber.yield 2) 3)))
(def t (fiber.new (fn [] (yield 1) (yield 2) 3)))
(assert (= 1 (fiber.resume t)) "initial transfer to new fiber")
(assert (= 2 (fiber.resume t)) "second transfer to fiber")
(assert (= 3 (fiber.resume t)) "return from fiber")
(assert (= 1 (resume t)) "initial transfer to new fiber")
(assert (= 2 (resume t)) "second transfer to fiber")
(assert (= 3 (resume t)) "return from fiber")
(assert (= (fiber.status t) :dead) "finished fiber is dead")
# Var arg tests
@@ -192,7 +192,7 @@
(def 🦊 :fox)
(def 🐮 :cow)
(assert (= (string "🐼" 🦊 🐮) "🐼:fox:cow") "emojis 🙉 :)")
(assert (not= 🦊 :🦊) "utf8 strings are not symbols and vice versa")
(assert (not= 🦊 "🦊") "utf8 strings are not symbols and vice versa")
# Symbols with @ character

View File

@@ -80,16 +80,16 @@
(defn fiberstuff []
(++ myvar)
(def f (fiber.new (fn [] (++ myvar) (debug) (++ myvar))))
(fiber.resume f)
(resume f)
(++ myvar))
(def myfiber (fiber.new fiberstuff :dey))
(assert (= myvar 0) "fiber creation does not call fiber function")
(fiber.resume myfiber)
(resume myfiber)
(assert (= myvar 2) "fiber debug statement breaks at proper point")
(assert (= (fiber.status myfiber) :debug) "fiber enters debug state")
(fiber.resume myfiber)
(resume myfiber)
(assert (= myvar 4) "fiber resumes properly from debug state")
(assert (= (fiber.status myfiber) :dead) "fiber properly dies from debug state")