diff --git a/kiss/src/test/cases/AwaitLetTestCase.hx b/kiss/src/test/cases/AwaitLetTestCase.hx new file mode 100644 index 00000000..36f38e79 --- /dev/null +++ b/kiss/src/test/cases/AwaitLetTestCase.hx @@ -0,0 +1,18 @@ +package test.cases; + +import utest.Test; +import utest.Assert; +import kiss.Prelude; +import js.lib.Promise; +import utest.Async; + +@:build(kiss.Kiss.build()) +class AwaitLetTestCase extends Test { + function testMultipleBindings(async:Async) { + _testMultipleBindings(async); + } + + function testRejectedPromise(async:Async) { + _testRejectedPromise(async); + } +} \ No newline at end of file diff --git a/kiss/src/test/cases/AwaitLetTestCase.kiss b/kiss/src/test/cases/AwaitLetTestCase.kiss new file mode 100644 index 00000000..57bc16ed --- /dev/null +++ b/kiss/src/test/cases/AwaitLetTestCase.kiss @@ -0,0 +1,22 @@ +(function _testMultipleBindings [:Async async] + (#if js + { + (awaitLet [a (Promise.resolve 1) + b (Promise.resolve 2) + c (Promise.resolve 3)] + (Assert.equals 6 (+ a b c)) + (async.done)) + } + (Assert.pass))) + +(function _testRejectedPromise [:Async async] + (#if js + { + (awaitLet [result (Promise.reject "async error")] + (catch [reason] + (Assert.pass) + (async.done)) + (Assert.fail) + (async.done)) + } + (Assert.pass))) \ No newline at end of file