Sharp.Augeas/Sharp.Augeas.Test/lens/tests/test_desktop.aug

48 lines
1.2 KiB
Plaintext

module Test_desktop =
let conf = "# A comment
[Desktop Entry]
Version=1.0
Type=Application
Name=Foo Viewer
# another comment
Comment=The best viewer for Foo objects available!
TryExec=fooview
Exec=fooview %F
Icon=fooview
MimeType=image/x-foo;
X-KDE-Library=libfooview
X-KDE-FactoryName=fooviewfactory
X-KDE-ServiceType=FooService
"
test Desktop.lns get conf =
{ "#comment" = "A comment" }
{ "Desktop Entry"
{ "Version" = "1.0" }
{ "Type" = "Application" }
{ "Name" = "Foo Viewer" }
{ "#comment" = "another comment" }
{ "Comment" = "The best viewer for Foo objects available!" }
{ "TryExec" = "fooview" }
{ "Exec" = "fooview %F" }
{ "Icon" = "fooview" }
{ "MimeType" = "image/x-foo;" }
{ "X-KDE-Library" = "libfooview" }
{ "X-KDE-FactoryName" = "fooviewfactory" }
{ "X-KDE-ServiceType" = "FooService" } }
(* Entries with square brackets *)
test Desktop.lns get "[Desktop Entry]
X-GNOME-FullName[ca]=En canadien
" =
{ "Desktop Entry"
{ "X-GNOME-FullName[ca]" = "En canadien" } }
(* Test: Desktop.lns
Allow @ in setting (GH issue #92) *)
test Desktop.lns get "[Desktop Entry]
Name[sr@latin] = foobar\n" =
{ "Desktop Entry"
{ "Name[sr@latin]" = "foobar" } }