lenses/tests/test_gtkbookmarks.aug

   1 (*
   2 Module: Test_GtkBookmarks
   3   Provides unit tests and examples for the <GtkBookmarks> lens.
   4 *)
   5
   6 module Test_GtkBookmarks =
   7
   8 (* Test: GtkBookmarks.lns
   9      Test without label *)
  10 test GtkBookmarks.lns get "ftp://user@myftp.com/somedir\n" =
  11  { "bookmark" = "ftp://user@myftp.com/somedir" }
  12
  13 (* Test: GtkBookmarks.lns
  14      Test with label *)
  15 test GtkBookmarks.lns get "file:///home/rpinson/Ubuntu%20One Ubuntu One\n" =
  16  { "bookmark" = "file:///home/rpinson/Ubuntu%20One"
  17    { "label" = "Ubuntu One" } }
  18
  19 (* Test: GtkBookmarks.lns
  20      Empty lines are allowed, not comments *)
  21 test GtkBookmarks.lns get "ftp://user@myftp.com/somedir\n\nfile:///home/rpinson/Ubuntu%20One Ubuntu One\n" =
  22  { "bookmark" = "ftp://user@myftp.com/somedir" }
  23  { }
  24  { "bookmark" = "file:///home/rpinson/Ubuntu%20One"
  25    { "label" = "Ubuntu One" } }