File: strings_test.ml

package info (click to toggle)
liquidsoap 2.4.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 12,372 kB
  • sloc: ml: 71,806; javascript: 27,320; ansic: 398; xml: 114; sh: 99; lisp: 96; makefile: 26
file content (15 lines) | stat: -rw-r--r-- 692 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
let () =
  let buf = Strings.of_list ["a"; "bc"; ""; "de"] in
  assert (Strings.length buf = 5);
  assert (Strings.to_string buf = "abcde");
  let b = Bytes.create 2 in
  assert (Strings.to_string (Strings.drop buf 1) = "bcde");
  assert (Strings.to_string (Strings.drop buf 2) = "cde");
  assert (Strings.to_string (Strings.drop buf 5) = "");
  Strings.blit (Strings.sub buf 1 2) b 0;
  assert (Bytes.unsafe_to_string b = "bc");
  Strings.blit (Strings.sub buf 2 2) b 0;
  assert (Bytes.unsafe_to_string b = "cd");
  assert (Strings.to_string (Strings.sub buf 1 2) = "bc");
  assert (Strings.to_string (Strings.sub buf 2 2) = "cd");
  assert (Strings.to_string (Strings.keep buf 3) = "cde")