32 lines
602 B
Nix
32 lines
602 B
Nix
|
{ 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
|
||
|
|
]
|