fluencelabs/aqua-playground
1
0
Fork 0
mirror of https://github.com/fluencelabs/aqua-playground synced 2025-04-25 02:22:27 +00:00
Code Issues Projects Releases Wiki Activity

update and unskip collection sugar tests

Browse Source
This commit is contained in:
DieMyst 2022-03-03 15:48:19 +03:00
parent 29696fe06e
commit 20bdf06e48
3 changed files with 103 additions and 91 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
aqua/examples/collectionSugar.aqua
View File

@ -15,7 +15,7 @@ func streamSugar(n: u32, m: u32) -> []u32, []u32:
func optionSugar(numSome: ?u32, strSome: ?string, numNone: ?u32, strNone: ?string) -> []u32, []string, []string:
arr = ?[numNone!, numSome!]
str: *string
str2 = ?[strNone!, strNone!]
str2 = ?[strNone!, strNone!, strNone!, strNone!, strNone!]
for i <- ?[strSome!,strNone!, "random string"]:
str <<- i

9
src/__test__/examples.spec.ts
View File

@ -163,17 +163,20 @@ describe('Testing examples', () => {
expect(streamCanResult).toEqual([["a"], ["b"], []]);
});
it.skip('collectionSugar.aqua array', async () => {
it('collectionSugar array', async () => {
console.log("collectionSugar array")
let result = await arraySugarCall();
expect(result).toEqual([[1,2,3], [4,5,6]]);
});
it.skip('collectionSugar.aqua stream', async () => {
it('collectionSugar stream', async () => {
console.log("collectionSugar stream")
let result = await streamSugarCall();
expect(result).toEqual([[1,2,3], [4,5,6]]);
});
it.skip('collectionSugar.aqua option', async () => {
it('collectionSugar option', async () => {
console.log("collectionSugar option")
let result = await optionSugarCall()
expect(result).toEqual([[1], ["some"], []]);
});

183
src/compiled/examples/collectionSugar.ts
View File

@ -49,40 +49,37 @@ export function arraySugar(...args: any) {
(seq
(seq
(seq
(seq
(new $array-sugar
(seq
(new $array-sugar
(seq
(seq
(seq
(seq
(ap 1 $array-sugar)
(ap 2 $array-sugar)
)
(ap n $array-sugar)
)
(call %init_peer_id% ("op" "identity") [$array-sugar] array-sugar-0)
(ap 1 $array-sugar)
(ap 2 $array-sugar)
)
(ap n $array-sugar)
)
(new $array-sugar-1
(seq
(seq
(seq
(ap 4 $array-sugar-1)
(ap 5 $array-sugar-1)
)
(ap m $array-sugar-1)
)
(call %init_peer_id% ("op" "identity") [$array-sugar-1] array-sugar-1-0)
)
)
)
(fold array-sugar-1-0 i
(null)
(call %init_peer_id% ("op" "identity") [$array-sugar] array-sugar-0)
)
)
(new $array-sugar-1
(seq
(seq
(seq
(ap 4 $array-sugar-1)
(ap 5 $array-sugar-1)
)
(ap m $array-sugar-1)
)
(call %init_peer_id% ("op" "identity") [$array-sugar-1] array-sugar-1-0)
)
)
(ap i $str)
)
(next i)
(fold array-sugar-1-0 i
(seq
(ap i $str)
(next i)
)
)
)
(call %init_peer_id% ("op" "identity") [$str] str-fix)
)
@ -177,26 +174,23 @@ export function streamSugar(...args: any) {
(seq
(seq
(seq
(seq
(seq
(ap 1 $stream-sugar)
(ap 2 $stream-sugar)
)
(ap n $stream-sugar)
)
(ap 4 $stream-sugar-0)
(ap 1 $stream-sugar)
(ap 2 $stream-sugar)
)
(ap 5 $stream-sugar-0)
(ap n $stream-sugar)
)
(ap m $stream-sugar-0)
)
(fold $stream-sugar-0 i
(null)
(ap 4 $stream-sugar-0)
)
(ap 5 $stream-sugar-0)
)
(ap m $stream-sugar-0)
)
(fold $stream-sugar-0 i
(seq
(ap i $str)
(next i)
)
(ap i $str)
)
(next i)
)
(call %init_peer_id% ("op" "identity") [$stream-sugar] arr-fix)
)
@ -301,67 +295,82 @@ export function optionSugar(...args: any) {
(seq
(seq
(seq
(seq
(new $option-sugar
(seq
(seq
(seq
(new $option-sugar
(seq
(xor
(ap numNone.$.[0]! $option-sugar)
(ap numSome.$.[0]! $option-sugar)
)
(call %init_peer_id% ("op" "identity") [$option-sugar] option-sugar-0)
)
)
(new $option-sugar-1
(seq
(xor
(ap strNone.$.[0]! $option-sugar-1)
(ap strNone.$.[0]! $option-sugar-1)
)
(call %init_peer_id% ("op" "identity") [$option-sugar-1] option-sugar-1-0)
)
)
(xor
(xor
(ap numNone.$.[0]! $option-sugar)
(ap numSome.$.[0]! $option-sugar)
)
(new $option-sugar-2
(seq
(xor
(xor
(ap strSome.$.[0]! $option-sugar-2)
(ap strNone.$.[0]! $option-sugar-2)
)
(ap "random string" $option-sugar-2)
)
(call %init_peer_id% ("op" "identity") [$option-sugar-2] option-sugar-2-0)
)
)
)
(fold option-sugar-2-0 i
(null)
)
(call %init_peer_id% ("op" "identity") [$option-sugar] option-sugar-0)
)
)
(new $option-sugar-1
(seq
(xor
(xor
(xor
(xor
(xor
(ap strNone.$.[0]! $option-sugar-1)
(ap strNone.$.[0]! $option-sugar-1)
)
(ap strNone.$.[0]! $option-sugar-1)
)
(ap strNone.$.[0]! $option-sugar-1)
)
(ap strNone.$.[0]! $option-sugar-1)
)
(null)
)
(call %init_peer_id% ("op" "identity") [$option-sugar-1] option-sugar-1-0)
)
(ap i $str)
)
(next i)
)
(new $option-sugar-3
(new $option-sugar-2
(seq
(xor
(ap strNone.$.[0]! $option-sugar-3)
(ap strNone.$.[0]! $option-sugar-3)
(xor
(xor
(ap strSome.$.[0]! $option-sugar-2)
(ap strNone.$.[0]! $option-sugar-2)
)
(ap "random string" $option-sugar-2)
)
(null)
)
(call %init_peer_id% ("op" "identity") [$option-sugar-3] option-sugar-3-0)
(call %init_peer_id% ("op" "identity") [$option-sugar-2] option-sugar-2-0)
)
)
)
(fold option-sugar-3-0 i
(null)
(fold option-sugar-2-0 i
(seq
(ap i $str)
(next i)
)
)
)
(new $option-sugar-3
(seq
(xor
(xor
(ap strNone.$.[0]! $option-sugar-3)
(ap strNone.$.[0]! $option-sugar-3)
)
(null)
)
(call %init_peer_id% ("op" "identity") [$option-sugar-3] option-sugar-3-0)
)
)
(ap i $str)
)
(next i)
(fold option-sugar-3-0 i
(seq
(ap i $str)
(next i)
)
)
)
(call %init_peer_id% ("op" "identity") [$str] str-fix)
)