2017-03-31 12:34:30 +00:00
|
|
|
(* -*- tuareg -*- *)
|
|
|
|
|
|
|
|
#warnings "-40";;
|
|
|
|
|
2018-05-02 11:56:12 +00:00
|
|
|
open Dune;;
|
2017-03-31 12:34:30 +00:00
|
|
|
open Import;;
|
|
|
|
|
|
|
|
Filename.extension "toto.titi";;
|
|
|
|
[%%expect{|
|
|
|
|
- : string = ".titi"
|
|
|
|
|}]
|
|
|
|
|
|
|
|
Filename.extension "toto.";;
|
|
|
|
[%%expect{|
|
|
|
|
- : string = "."
|
|
|
|
|}]
|
|
|
|
|
|
|
|
Filename.extension ".";;
|
|
|
|
[%%expect{|
|
|
|
|
- : string = ""
|
|
|
|
|}]
|
|
|
|
|
|
|
|
Filename.extension ".titi";;
|
|
|
|
[%%expect{|
|
|
|
|
- : string = ""
|
|
|
|
|}]
|
|
|
|
|
|
|
|
Filename.extension ".a";;
|
|
|
|
[%%expect{|
|
|
|
|
- : string = ""
|
|
|
|
|}]
|
|
|
|
|
|
|
|
Filename.extension "a.";;
|
|
|
|
[%%expect{|
|
|
|
|
- : string = "."
|
|
|
|
|}]
|
|
|
|
|
|
|
|
Filename.extension "a.a";;
|
|
|
|
[%%expect{|
|
|
|
|
- : string = ".a"
|
|
|
|
|}]
|
|
|
|
|
|
|
|
Filename.extension "truc/a.a";;
|
|
|
|
[%%expect{|
|
|
|
|
- : string = ".a"
|
|
|
|
|}]
|
|
|
|
|
|
|
|
Filename.extension "truc/.a";;
|
|
|
|
[%%expect{|
|
|
|
|
- : string = ""
|
|
|
|
|}]
|
|
|
|
|
|
|
|
Filename.extension "truc/a.";;
|
|
|
|
[%%expect{|
|
|
|
|
- : string = "."
|
|
|
|
|}]
|