(* -*- 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 = "."
|}]