Files
rose-ash/lib/ocaml
giles 5d33f8f20b
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 31s
ocaml: phase 6 Filename module + Char.compare/equal/escaped (+7 tests, 569 total)
Filename module (forward-slash only, no Windows-separator detection):

  basename '/foo/bar/baz.ml'        = 'baz.ml'
  dirname  '/foo/bar/baz.ml'        = '/foo/bar'
  extension 'baz.tar.gz'            = '.gz'
  chop_extension 'hello.ml'         = 'hello'
  concat 'a' 'b'                    = 'a/b'
  is_relative 'a/b'                 = true
  current_dir_name = '.', parent_dir_name = '..', dir_sep = '/'

Char additions:

  equal a b                         = (a = b)
  compare a b                       = code(a) - code(b)
  escaped '\n'                      = '\\n'    (likewise t, r, \\, ")
2026-05-09 05:24:37 +00:00
..