26 lines
820 B
Plaintext
26 lines
820 B
Plaintext
|
(*
|
||
|
|
Module: Test_GtkBookmarks
|
||
|
|
Provides unit tests and examples for the <GtkBookmarks> lens.
|
||
|
|
*)
|
||
|
|
|
||
|
|
module Test_GtkBookmarks =
|
||
|
|
|
||
|
|
(* Test: GtkBookmarks.lns
|
||
|
|
Test without label *)
|
||
|
|
test GtkBookmarks.lns get "ftp://user@myftp.com/somedir\n" =
|
||
|
|
{ "bookmark" = "ftp://user@myftp.com/somedir" }
|
||
|
|
|
||
|
|
(* Test: GtkBookmarks.lns
|
||
|
|
Test with label *)
|
||
|
|
test GtkBookmarks.lns get "file:///home/rpinson/Ubuntu%20One Ubuntu One\n" =
|
||
|
|
{ "bookmark" = "file:///home/rpinson/Ubuntu%20One"
|
||
|
|
{ "label" = "Ubuntu One" } }
|
||
|
|
|
||
|
|
(* Test: GtkBookmarks.lns
|
||
|
|
Empty lines are allowed, not comments *)
|
||
|
|
test GtkBookmarks.lns get "ftp://user@myftp.com/somedir\n\nfile:///home/rpinson/Ubuntu%20One Ubuntu One\n" =
|
||
|
|
{ "bookmark" = "ftp://user@myftp.com/somedir" }
|
||
|
|
{ }
|
||
|
|
{ "bookmark" = "file:///home/rpinson/Ubuntu%20One"
|
||
|
|
{ "label" = "Ubuntu One" } }
|