blob: 5769526734711bbbba02a882ed7d639db6164afe (
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
{ depot, ... }:
let
inherit (depot.users.sterni.nix)
string
;
inherit (depot.nix.runTestsuite)
it
assertEq
runTestsuite
;
testTakeDrop = it "tests take and drop" [
(assertEq "take"
(string.take 5 "five and more")
"five ")
(assertEq "drop"
(string.drop 2 "coin")
"in")
(assertEq "take out of bounds"
(string.take 100 "foo")
"foo")
(assertEq "drop out of bounds"
(string.drop 42 "lol")
"")
];
testIndexing = it "tests string indexing" [
(assertEq "normal charAt"
(string.charAt 3 "helo")
"o")
(assertEq "out of bounds charAt"
(string.charAt 5 "helo")
null)
];
testFinding = it "tests finding in strings" [
(assertEq "normal charIndex"
(string.charIndex "d" "abcdefghijkl")
3)
(assertEq "charIndex no match"
(string.charIndex "w" "zZzZzzzZZZ")
null)
];
in
runTestsuite "nix.string" [
testTakeDrop
testIndexing
testFinding
]
|
