Skip to content

Commit dc64c83

Browse files
author
Test User
committed
Fix Gleam test syntax for Gleeunit 1.6.0 compatibility
1 parent 5cfe978 commit dc64c83

4 files changed

Lines changed: 79 additions & 58 deletions

File tree

‎wrappers/gleam/test/pre_key_bundle_test.gleam‎

Lines changed: 20 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
import gleeunit
22
import gleeunit/should
3-
import signal_protocol
43
import pre_key_bundle
4+
import signal_protocol
55

66
pub fn main() {
77
gleeunit.main()
@@ -12,25 +12,32 @@ pub fn test_create_bundle() {
1212
Ok(identity_key_pair) -> {
1313
case signal_protocol.generate_pre_key(1) {
1414
Ok(pre_key) -> {
15-
case signal_protocol.generate_signed_pre_key(identity_key_pair.public_key, 1) {
15+
case
16+
signal_protocol.generate_signed_pre_key(
17+
identity_key_pair.public_key,
18+
1,
19+
)
20+
{
1621
Ok(signed_pre_key) -> {
17-
case pre_key_bundle.create(
18-
1,
19-
identity_key_pair.public_key,
20-
pre_key,
21-
signed_pre_key,
22-
<<"base_key_placeholder":utf8>>,
23-
) {
22+
case
23+
pre_key_bundle.create(
24+
1,
25+
identity_key_pair.public_key,
26+
pre_key,
27+
signed_pre_key,
28+
<<"base_key_placeholder":utf8>>,
29+
)
30+
{
2431
Ok(_bundle) -> should.equal(True, True)
25-
Error(_e) -> panic("Failed to create bundle")
32+
Error(_e) -> panic as "Failed to create bundle"
2633
}
2734
}
28-
Error(_e) -> panic("Failed to generate signed pre-key")
35+
Error(_e) -> panic as "Failed to generate signed pre-key"
2936
}
3037
}
31-
Error(_e) -> panic("Failed to generate pre-key")
38+
Error(_e) -> panic as "Failed to generate pre-key"
3239
}
3340
}
34-
Error(_e) -> panic("Failed to generate identity key pair")
41+
Error(_e) -> panic as "Failed to generate identity key pair"
3542
}
3643
}

‎wrappers/gleam/test/session_test.gleam‎

Lines changed: 10 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -12,14 +12,19 @@ pub fn test_create_session() {
1212
Ok(local_identity) -> {
1313
case signal_protocol.generate_identity_key_pair() {
1414
Ok(remote_identity) -> {
15-
case session.create(local_identity.public_key, remote_identity.public_key) {
15+
case
16+
session.create(
17+
local_identity.public_key,
18+
remote_identity.public_key,
19+
)
20+
{
1621
Ok(_session) -> should.equal(True, True)
17-
Error(e) -> should.fail("Failed to create session: " <> e)
22+
Error(_e) -> should.fail()
1823
}
1924
}
20-
Error(e) -> should.fail("Failed to generate remote identity: " <> e)
25+
Error(_e) -> should.fail()
2126
}
2227
}
23-
Error(e) -> should.fail("Failed to generate local identity: " <> e)
28+
Error(_e) -> should.fail()
2429
}
25-
}
30+
}

‎wrappers/gleam/test/signal_protocol_test.gleam‎

Lines changed: 16 additions & 17 deletions
Original file line numberDiff line numberDiff line change
@@ -13,7 +13,7 @@ pub fn test_generate_identity_key_pair() {
1313
should.equal(bit_array.byte_size(identity_key_pair.public_key) > 0, True)
1414
should.equal(bit_array.byte_size(identity_key_pair.signature) > 0, True)
1515
}
16-
Error(e) -> should.fail("Failed to generate identity key pair: " <> e)
16+
Error(_e) -> should.fail()
1717
}
1818
}
1919

@@ -23,7 +23,7 @@ pub fn test_generate_pre_key() {
2323
should.equal(pre_key.key_id, 1)
2424
should.equal(bit_array.byte_size(pre_key.public_key) > 0, True)
2525
}
26-
Error(e) -> should.fail("Failed to generate pre-key: " <> e)
26+
Error(_e) -> should.fail()
2727
}
2828
}
2929

@@ -38,10 +38,10 @@ pub fn test_generate_signed_pre_key() {
3838
should.equal(bit_array.byte_size(signed_pre_key.public_key) > 0, True)
3939
should.equal(bit_array.byte_size(signed_pre_key.signature) > 0, True)
4040
}
41-
Error(e) -> should.fail("Failed to generate signed pre-key: " <> e)
41+
Error(_e) -> should.fail()
4242
}
4343
}
44-
Error(e) -> should.fail("Failed to generate identity key pair: " <> e)
44+
Error(_e) -> should.fail()
4545
}
4646
}
4747

@@ -52,10 +52,10 @@ pub fn test_create_session() {
5252
Ok(session) -> {
5353
should.equal(bit_array.byte_size(session.reference) > 0, True)
5454
}
55-
Error(e) -> should.fail("Failed to create session: " <> e)
55+
Error(_e) -> should.fail()
5656
}
5757
}
58-
Error(e) -> should.fail("Failed to generate identity key pair: " <> e)
58+
Error(_e) -> should.fail()
5959
}
6060
}
6161

@@ -71,17 +71,13 @@ pub fn test_encrypt_message() {
7171
// Note: We can't decrypt with the current simplified implementation
7272
// This is expected for the basic test
7373
}
74-
Error(_e) -> {
75-
// This is expected since we're using a simplified session
76-
// The important thing is that we can create the session
77-
should.equal(True, True)
78-
}
74+
Error(_e) -> should.fail()
7975
}
8076
}
81-
Error(e) -> should.fail("Failed to create session: " <> e)
77+
Error(_e) -> should.fail()
8278
}
8379
}
84-
Error(e) -> should.fail("Failed to generate identity key pair: " <> e)
80+
Error(_e) -> should.fail()
8581
}
8682
}
8783

@@ -99,16 +95,19 @@ pub fn test_basic_functionality() {
9995
{
10096
Ok(signed_pre_key) -> {
10197
// All key generation successful
102-
should.equal(bit_array.byte_size(identity_key_pair.public_key) > 0, True)
98+
should.equal(
99+
bit_array.byte_size(identity_key_pair.public_key) > 0,
100+
True,
101+
)
103102
should.equal(pre_key.key_id, 1)
104103
should.equal(signed_pre_key.key_id, 1)
105104
}
106-
Error(e) -> should.fail("Failed to generate signed pre-key: " <> e)
105+
Error(_e) -> should.fail()
107106
}
108107
}
109-
Error(e) -> should.fail("Failed to generate pre-key: " <> e)
108+
Error(_e) -> should.fail()
110109
}
111110
}
112-
Error(e) -> should.fail("Failed to generate identity key pair: " <> e)
111+
Error(_e) -> should.fail()
113112
}
114113
}

‎wrappers/gleam/test/utils_test.gleam‎

Lines changed: 33 additions & 23 deletions
Original file line numberDiff line numberDiff line change
@@ -19,15 +19,20 @@ pub fn test_generate_user_keys() {
1919
should.equal(bit_array.byte_size(signed_pre_key.public_key) > 0, True)
2020
should.equal(bit_array.byte_size(signed_pre_key.signature) > 0, True)
2121
}
22-
Error(e) -> should.fail("Failed to generate user keys: " <> e)
22+
Error(_e) -> should.fail()
2323
}
2424
}
2525

2626
pub fn test_create_user_bundle() {
2727
case utils.generate_user_keys() {
2828
Ok(#(identity_key_pair, pre_key, signed_pre_key)) -> {
2929
case
30-
utils.create_user_bundle(1, identity_key_pair.public_key, pre_key, signed_pre_key)
30+
utils.create_user_bundle(
31+
1,
32+
identity_key_pair.public_key,
33+
pre_key,
34+
signed_pre_key,
35+
)
3136
{
3237
Ok(bundle) -> {
3338
should.equal(bundle.registration_id, 1)
@@ -39,10 +44,10 @@ pub fn test_create_user_bundle() {
3944
signed_pre_key.signature,
4045
))
4146
}
42-
Error(e) -> should.fail("Failed to create user bundle: " <> e)
47+
Error(_e) -> should.fail()
4348
}
4449
}
45-
Error(e) -> should.fail("Failed to generate user keys: " <> e)
50+
Error(_e) -> should.fail()
4651
}
4752
}
4853

@@ -64,16 +69,22 @@ pub fn test_establish_session() {
6469
)
6570
{
6671
Ok(#(local_session, remote_session)) -> {
67-
should.equal(bit_array.byte_size(local_session.reference) > 0, True)
68-
should.equal(bit_array.byte_size(remote_session.reference) > 0, True)
72+
should.equal(
73+
bit_array.byte_size(local_session.reference) > 0,
74+
True,
75+
)
76+
should.equal(
77+
bit_array.byte_size(remote_session.reference) > 0,
78+
True,
79+
)
6980
}
70-
Error(e) -> should.fail("Failed to establish session: " <> e)
81+
Error(_e) -> should.fail()
7182
}
7283
}
73-
Error(e) -> should.fail("Failed to generate remote user keys: " <> e)
84+
Error(_e) -> should.fail()
7485
}
7586
}
76-
Error(e) -> should.fail("Failed to generate local user keys: " <> e)
87+
Error(_e) -> should.fail()
7788
}
7889
}
7990

@@ -113,20 +124,19 @@ pub fn test_message_exchange() {
113124
True,
114125
)
115126
}
116-
Error(e) ->
117-
should.fail("Message verification failed: " <> e)
127+
Error(_e) -> should.fail()
118128
}
119129
}
120-
Error(e) -> should.fail("Failed to exchange messages: " <> e)
130+
Error(_e) -> should.fail()
121131
}
122132
}
123-
Error(e) -> should.fail("Failed to establish session: " <> e)
133+
Error(_e) -> should.fail()
124134
}
125135
}
126-
Error(e) -> should.fail("Failed to generate remote user keys: " <> e)
136+
Error(_e) -> should.fail()
127137
}
128138
}
129-
Error(e) -> should.fail("Failed to generate local user keys: " <> e)
139+
Error(_e) -> should.fail()
130140
}
131141
}
132142

@@ -167,26 +177,26 @@ pub fn test_send_receive_with_session() {
167177
True,
168178
)
169179
should.equal(
170-
bit_array.byte_size(new_remote_session.reference) > 0,
180+
bit_array.byte_size(new_remote_session.reference)
181+
> 0,
171182
True,
172183
)
173184
}
174-
Error(e) ->
175-
should.fail("Message verification failed: " <> e)
185+
Error(_e) -> should.fail()
176186
}
177187
}
178-
Error(e) -> should.fail("Failed to receive message: " <> e)
188+
Error(_e) -> should.fail()
179189
}
180190
}
181-
Error(e) -> should.fail("Failed to send message: " <> e)
191+
Error(_e) -> should.fail()
182192
}
183193
}
184-
Error(e) -> should.fail("Failed to establish session: " <> e)
194+
Error(_e) -> should.fail()
185195
}
186196
}
187-
Error(e) -> should.fail("Failed to generate remote user keys: " <> e)
197+
Error(_e) -> should.fail()
188198
}
189199
}
190-
Error(e) -> should.fail("Failed to generate local user keys: " <> e)
200+
Error(_e) -> should.fail()
191201
}
192202
}

0 commit comments

Comments
 (0)