kiss-lang/kiss
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases Wiki Activity

move testAwaitLet() to AwaitLetTestCase

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-05-31 12:39:39 -06:00
parent 8c9d26b6c7
commit 6c8a48680c
4 changed files with 56 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/test/cases/AwaitLetTestCase.hx
View File

@@ -10,6 +10,11 @@ import utest.Async;
@:build(kiss.Kiss.build())
class AwaitLetTestCase extends Test {
function testAwaitLet(async:utest.Async) {
_testAwaitLet(async);
}
function testMultipleBindings(async:Async) {
_testMultipleBindings(async);
}

50
src/test/cases/AwaitLetTestCase.kiss
View File

@@ -1,6 +1,55 @@
(var defaultMakeCatch Prelude.makeAwaitLetDefaultCatch)
(function _testAwaitLet [:utest.Async async]
(#if js {
(set Prelude.makeAwaitLetDefaultCatch defaultMakeCatch)
(localFunction :Promise<Bool> newPromise [:Bool succeed]
(new Promise
->:Void [
:Bool->Void resolve
:Dynamic->Void reject
] (if succeed (resolve true) (reject false))))
(awaitLet [result (newPromise true)]
(catch [:Dynamic e] (Assert.fail))
(Assert.isTrue result)
(awaitLet [res1 (newPromise false)
res2 (newPromise true)
res3 (newPromise true)]
(catch [:Dynamic e]
(Assert.isFalse e)
(awaitLet [res1 (newPromise true)
res2 (newPromise false)
res3 (newPromise true)]
(catch [:Dynamic e]
(Assert.isFalse e)
(awaitLet [res1 (newPromise true)
res2 (newPromise true)
res3 (newPromise false)]
(catch [:Dynamic e]
(Assert.isFalse e)
(awaitLet [res1 (newPromise true)
res2 (newPromise res1)
res3 (newPromise res2)]
(Assert.isTrue ?(and res1 res2 res3))
(async.done))
e)
(Assert.fail))
e)
(Assert.fail))
e)
(Assert.fail)))
}
{
(Assert.pass)
(async.done)
})
)
(function _testMultipleBindings [:Async async]
(#if js
{
(set Prelude.makeAwaitLetDefaultCatch defaultMakeCatch)
(awaitLet [a (Promise.resolve 1)
b (Promise.resolve 2)
c (Promise.resolve 3)]
@@ -15,6 +64,7 @@
(function _testRejectedPromise [:Async async]
(#if js
{
(set Prelude.makeAwaitLetDefaultCatch defaultMakeCatch)
(awaitLet [result (Promise.reject "async error")]
(catch [reason]
(Assert.pass)

6
src/test/cases/BasicTestCase.hx
View File

@@ -425,12 +425,6 @@ class BasicTestCase extends Test {
}
#end
#if js
function testAwaitLet(async:utest.Async) {
_testAwaitLet(async);
}
#end
function testLambdaTypeAnnotations() {
_testLambdaTypeAnnotations();
}

39
src/test/cases/BasicTestCase.kiss
View File

@@ -930,44 +930,7 @@ From:[(assert false (+ \"false \" \"should \" \"have \" \"been \" \"true\"))]" m
(Assert.equals "a55.5true" "${a}${five}${fivePointFive}${tt}"))
(never otherwise)))
(#when js
(function _testAwaitLet [:utest.Async async]
(localFunction :Promise<Bool> newPromise [:Bool succeed]
(new Promise
->:Void [
:Bool->Void resolve
:Dynamic->Void reject
] (if succeed (resolve true) (reject false))))
(awaitLet [result (newPromise true)]
(catch [:Dynamic e] (Assert.fail))
(Assert.isTrue result)
(awaitLet [res1 (newPromise false)
res2 (newPromise true)
res3 (newPromise true)]
(catch [:Dynamic e]
(Assert.isFalse e)
(awaitLet [res1 (newPromise true)
res2 (newPromise false)
res3 (newPromise true)]
(catch [:Dynamic e]
(Assert.isFalse e)
(awaitLet [res1 (newPromise true)
res2 (newPromise true)
res3 (newPromise false)]
(catch [:Dynamic e]
(Assert.isFalse e)
(awaitLet [res1 (newPromise true)
res2 (newPromise res1)
res3 (newPromise res2)]
(Assert.isTrue ?(and res1 res2 res3))
(async.done))
e)
(Assert.fail))
e)
(Assert.fail))
e)
(Assert.fail)))))
(function _testQuickPrintOnSetVar []