57 lines
698 B
Plaintext
57 lines
698 B
Plaintext
(* -*- tuareg -*- *)
|
|
|
|
#warnings "-40";;
|
|
|
|
open Dune;;
|
|
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 = "."
|
|
|}]
|