add test for stream canonicalization

This commit is contained in:
DieMyst
2021-10-26 19:10:39 +03:00
parent 9aacc98084
commit efb24218d9
46 changed files with 412 additions and 438 deletions

View File

@ -3,7 +3,7 @@
* This file is auto-generated. Do not edit manually: changes may be erased.
* Generated by Aqua compiler: https://github.com/fluencelabs/aqua/.
* If you find any bugs, please write an issue on GitHub: https://github.com/fluencelabs/aqua/issues
* Aqua version: 0.3.2-SNAPSHOT
* Aqua version: 0.4.0-SNAPSHOT
*
*/
import { Fluence, FluencePeer } from '@fluencelabs/fluence';
@ -14,10 +14,6 @@ import {
} from '@fluencelabs/fluence/dist/internal/compilerSupport/v2';
function missingFields(obj: any, fields: string[]): string[] {
return fields.filter(f => !(f in obj))
}
// Services
// Functions
@ -32,44 +28,44 @@ export function put_value(...args: any) {
(seq
(seq
(seq
(seq
(call %init_peer_id% ("getDataSrv" "-relay-") [] -relay-)
(call %init_peer_id% ("getDataSrv" "initial_peer") [] initial_peer)
)
(call %init_peer_id% ("getDataSrv" "value") [] value)
)
(par
(seq
(seq
(seq
(seq
(call %init_peer_id% ("getDataSrv" "-relay-") [] -relay-)
(call %init_peer_id% ("getDataSrv" "initial_peer") [] initial_peer)
)
(call %init_peer_id% ("getDataSrv" "value") [] value)
)
(call -relay- ("op" "noop") [])
)
(xor
(seq
(call initial_peer ("op" "string_to_b58") ["some-const3"] k)
(call initial_peer ("kad" "neighborhood") [k [] []] nodes)
(xor
(seq
(call initial_peer ("op" "string_to_b58") ["some-const3"] k)
(call initial_peer ("kad" "neighborhood") [k [] []] nodes)
)
(seq
(call -relay- ("op" "noop") [])
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 1])
)
)
)
(call %init_peer_id% ("op" "noop") [])
)
(fold nodes n
(par
(seq
(call -relay- ("op" "noop") [])
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 1])
)
)
)
(call -relay- ("op" "noop") [])
)
(fold nodes n
(par
(xor
(seq
(seq
(call n ("peer" "timestamp_sec") [] t)
(call n ("aqua-dht" "register_key") ["some-const3" t false 0])
(xor
(seq
(seq
(call n ("peer" "timestamp_sec") [] t)
(call n ("aqua-dht" "register_key") ["some-const3" t false 0])
)
(call n ("aqua-dht" "put_value") ["some-const3" value t [] [] 0])
)
(null)
)
(call n ("aqua-dht" "put_value") ["some-const3" value t [] [] 0])
)
(null)
)
(seq
(call -relay- ("op" "noop") [])
(next n)
)
)
@ -133,46 +129,46 @@ export function registerKeyPutValue(...args: any) {
(seq
(seq
(seq
(seq
(seq
(seq
(call %init_peer_id% ("getDataSrv" "-relay-") [] -relay-)
(call %init_peer_id% ("getDataSrv" "node_id") [] node_id)
)
(call %init_peer_id% ("getDataSrv" "key") [] key)
)
(call %init_peer_id% ("getDataSrv" "value") [] value)
)
(call %init_peer_id% ("getDataSrv" "relay_id") [] relay_id)
(call %init_peer_id% ("getDataSrv" "-relay-") [] -relay-)
(call %init_peer_id% ("getDataSrv" "node_id") [] node_id)
)
(call %init_peer_id% ("getDataSrv" "service_id") [] service_id)
)
(call -relay- ("op" "noop") [])
)
(xor
(seq
(call key ("op" "string_to_b58") [node_id] k)
(call key ("kad" "neighborhood") [k [] []] nodes)
)
(seq
(call -relay- ("op" "noop") [])
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 1])
(call %init_peer_id% ("getDataSrv" "key") [] key)
)
(call %init_peer_id% ("getDataSrv" "value") [] value)
)
(call %init_peer_id% ("getDataSrv" "relay_id") [] relay_id)
)
(call -relay- ("op" "noop") [])
(call %init_peer_id% ("getDataSrv" "service_id") [] service_id)
)
(fold nodes n
(par
(xor
(call n ("peer" "timestamp_sec") [] t)
(seq
(call -relay- ("op" "noop") [])
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 2])
)
)
(par
(seq
(seq
(call -relay- ("op" "noop") [])
(xor
(seq
(call key ("op" "string_to_b58") [node_id] k)
(call key ("kad" "neighborhood") [k [] []] nodes)
)
(seq
(call -relay- ("op" "noop") [])
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 1])
)
)
)
(call %init_peer_id% ("op" "noop") [])
)
(fold nodes n
(par
(seq
(call -relay- ("op" "noop") [])
(xor
(call n ("peer" "timestamp_sec") [] t)
(seq
(call -relay- ("op" "noop") [])
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 2])
)
)
)
(next n)
)
)
@ -356,23 +352,32 @@ export function findSubscribers(...args: any) {
)
(call -relay- ("op" "noop") [])
)
(fold nodes n
(par
(seq
(xor
(seq
(call n ("peer" "timestamp_sec") [] t)
(call n ("aqua-dht" "get_values") [topic t] $res)
)
(null)
)
(call node_id ("op" "noop") [])
)
(par
(seq
(seq
(call -relay- ("op" "noop") [])
(next n)
(fold nodes n
(par
(seq
(xor
(seq
(call n ("peer" "timestamp_sec") [] t)
(call n ("aqua-dht" "get_values") [topic t] $res)
)
(null)
)
(call node_id ("op" "noop") [])
)
(seq
(call -relay- ("op" "noop") [])
(next n)
)
)
)
)
(call node_id ("op" "noop") [])
)
(null)
)
)
(xor
@ -442,49 +447,49 @@ export function initTopicAndSubscribe(...args: any) {
(seq
(seq
(seq
(seq
(seq
(seq
(call %init_peer_id% ("getDataSrv" "-relay-") [] -relay-)
(call %init_peer_id% ("getDataSrv" "node_id") [] node_id)
)
(call %init_peer_id% ("getDataSrv" "topic") [] topic)
)
(call %init_peer_id% ("getDataSrv" "value") [] value)
)
(call %init_peer_id% ("getDataSrv" "relay_id") [] relay_id)
(call %init_peer_id% ("getDataSrv" "-relay-") [] -relay-)
(call %init_peer_id% ("getDataSrv" "node_id") [] node_id)
)
(call %init_peer_id% ("getDataSrv" "service_id") [] service_id)
)
(call -relay- ("op" "noop") [])
)
(xor
(seq
(call node_id ("op" "string_to_b58") [topic] k)
(call node_id ("kad" "neighborhood") [k [] []] nodes)
)
(seq
(call -relay- ("op" "noop") [])
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 1])
(call %init_peer_id% ("getDataSrv" "topic") [] topic)
)
(call %init_peer_id% ("getDataSrv" "value") [] value)
)
(call %init_peer_id% ("getDataSrv" "relay_id") [] relay_id)
)
(call -relay- ("op" "noop") [])
(call %init_peer_id% ("getDataSrv" "service_id") [] service_id)
)
(fold nodes n
(par
(xor
(seq
(seq
(call n ("peer" "timestamp_sec") [] t)
(call n ("aqua-dht" "register_key") [topic t false 0])
)
(call n ("aqua-dht" "put_value") [topic value t relay_id service_id 0])
)
(null)
)
(par
(seq
(seq
(call -relay- ("op" "noop") [])
(xor
(seq
(call node_id ("op" "string_to_b58") [topic] k)
(call node_id ("kad" "neighborhood") [k [] []] nodes)
)
(seq
(call -relay- ("op" "noop") [])
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 1])
)
)
)
(call %init_peer_id% ("op" "noop") [])
)
(fold nodes n
(par
(seq
(call -relay- ("op" "noop") [])
(xor
(seq
(seq
(call n ("peer" "timestamp_sec") [] t)
(call n ("aqua-dht" "register_key") [topic t false 0])
)
(call n ("aqua-dht" "put_value") [topic value t relay_id service_id 0])
)
(null)
)
)
(next n)
)
)