blob: 313df474514c9069252ca88a7cbff645a2762332 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
{ depot, ... }:
let
inherit (depot.nix.runTestsuite)
it
assertEq
runTestsuite
;
inherit (depot.users.sterni.nix)
char
string
int
fun
;
charList = string.toChars char.allChars;
testAllCharConversion = it "tests conversion of all chars" [
(assertEq "char.chr converts to char.allChars"
(builtins.genList (fun.rl char.chr (int.add 1)) 255)
charList)
(assertEq "char.ord converts from char.allChars"
(builtins.genList (int.add 1) 255)
(builtins.map char.ord charList))
];
in
runTestsuite "char" [
testAllCharConversion
]
|
