Source file test_operators.ml

open! Core

(* The operators are synonyms for already-tested functions. *)

let ( ~/ ) = Test_relative.of_string
let ( !/ ) = Test_absolute.of_string
let ( ?/ ) = Test_path.of_string
let ( ~. ) = Test_part.of_string
let ( !/$ ) = Test_absolute.to_string
let ( ~/$ ) = Test_relative.to_string
let ( ?/$ ) = Test_path.to_string
let ( ~.$ ) = Test_part.to_string
let ( !/? ) = Test_path.of_absolute
let ( ~/? ) = Test_path.of_relative
let ( ~.? ) = Test_path.of_part_relative
let ( ~.~ ) = Test_relative.of_part
let ( /~/ ) = Test_relative.append
let ( /!/ ) = Test_absolute.append
let ( /?/ ) = Test_path.append
let ( /~. ) = Test_relative.append_part
let ( /!. ) = Test_absolute.append_part
let ( /?. ) = Test_path.append_part
let ( /~^ ) = Test_relative.append_to_basename_exn
let ( /!^ ) = Test_absolute.append_to_basename_exn
let ( /?^ ) = Test_path.append_to_basename_exn
let ( /.^ ) = Test_part.append_to_basename_exn