Experiments for playing with atproto in Gleam.
⚗️ Set up basic syntax interop tests for tids.
Hayleigh Thompson
(Jul 17, 2026, 1:13 AM +0200)
ab38e5f8
58e926de
+37
+37
test/at/tid_test.gleam
+37
test/at/tid_test.gleam
···
1
+
// IMPORTS ---------------------------------------------------------------------
2
+
3
+
import at/tid
4
+
import gleam/list
5
+
6
+
// FIXTURES --------------------------------------------------------------------
7
+
8
+
const valid = [
9
+
"3jzfcijpj2z2a",
10
+
"7777777777777",
11
+
"3zzzzzzzzzzzz",
12
+
]
13
+
14
+
const invalid = [
15
+
"3jzfcijpj2z21",
16
+
"0000000000000",
17
+
"3jzfcijpj2z2aa",
18
+
"3jzfcijpj2z2",
19
+
"3jzf-cij-pj2z-2a",
20
+
"zzzzzzzzzzzzz",
21
+
"kjzfcijpj2z2a",
22
+
]
23
+
24
+
// INTEROP TESTS ---------------------------------------------------------------
25
+
26
+
pub fn atproto_interop_valid_tid_test() {
27
+
use input <- list.each(valid)
28
+
let assert Ok(tid) = tid.from_string(input) as input
29
+
30
+
assert tid.to_string(tid) == input
31
+
}
32
+
33
+
pub fn atproto_interop_invalid_tid_test() {
34
+
use input <- list.each(invalid)
35
+
36
+
assert tid.from_string(input) == Error(Nil) as input
37
+
}