(* Tests for the Xorg module *)

module Test_xorg =

  let conf = "

# xorg.conf

Section \"ServerLayout\"

        Identifier     \"single head configuration\"

        Screen      0  \"Screen0\" 0 0

        InputDevice    \"Generic Keyboard\" \"CoreKeyboard\"

EndSection

Section \"InputDevice\"

	Identifier	\"Generic Keyboard\"

        # that's a driver

	Driver		\"kbd\"

	Option		\"XkbOptions\"	\"lv3:ralt_switch\"

EndSection

Section \"Device\"

	Identifier	\"Configured Video Device\"

	Option 		\"MonitorLayout\" \"LVDS,VGA\"

	VideoRam	229376

        Option          \"NoAccel\"

        Option          \"fbdev\" \"\"

        Screen          0

EndSection

Section \"Screen\"

        Identifier \"Screen0\"

        Device     \"Configured Video Device\"

        DefaultDepth     24

        SubSection \"Display\"

                Viewport   0 0

                Depth     24

                Modes    \"1280x1024\" \"1280x960\" \"1280x800\"

        EndSubSection

EndSection

Section \"Module\"

          SubSection \"extmod\"

                   Option  \"omit XFree86-DGA\"

          EndSubSection

EndSection

"

  test Xorg.lns get conf =

     { }

     { "#comment" = "xorg.conf" }

     { }

     { "ServerLayout"

        { "Identifier" = "single head configuration" }

        { "Screen"     = "Screen0"

           { "num"      = "0" }

           { "position" = "0 0" } }

        { "InputDevice" = "Generic Keyboard"

           { "option"   = "CoreKeyboard" } } }

     { }

     { "InputDevice"

        { "Identifier" = "Generic Keyboard" }

        { "#comment"   = "that's a driver" }

        { "Driver"     = "kbd" }

        { "Option"     = "XkbOptions"

             { "value"  = "lv3:ralt_switch" } } }

     { }

     { "Device"

        { "Identifier" = "Configured Video Device" }

        { "Option"     = "MonitorLayout"

             { "value"  = "LVDS,VGA" } }

        { "VideoRam"   = "229376" }

        { "Option"     = "NoAccel" }

        { "Option"     = "fbdev"

             { "value"  = "" } }

        { "Screen"

          { "num" = "0" } } }

     { }

     { "Screen"

        { "Identifier" = "Screen0" }

        { "Device"     = "Configured Video Device" }

        { "DefaultDepth" = "24" }

        { "Display"

           { "ViewPort"

              { "x" = "0" }

              { "y" = "0" } }

           { "Depth"    = "24" }

           { "Modes"

              { "mode" = "1280x1024" }

              { "mode" = "1280x960" }

              { "mode" = "1280x800" } } } }

     { }

     { "Module"

       { "extmod"

           { "Option" = "omit XFree86-DGA" } } }