You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
117 lines
3.7 KiB
117 lines
3.7 KiB
import ./make-test-python.nix ({ pkgs, ...}:
|
|
|
|
let
|
|
mkConfig = name: keys: ''
|
|
import XMonad
|
|
import XMonad.Operations (restart)
|
|
import XMonad.Util.EZConfig
|
|
import XMonad.Util.SessionStart
|
|
import Control.Monad (when)
|
|
import Text.Printf (printf)
|
|
import System.Posix.Process (executeFile)
|
|
import System.Info (arch,os)
|
|
import System.Environment (getArgs)
|
|
import System.FilePath ((</>))
|
|
|
|
main = do
|
|
dirs <- getDirectories
|
|
launch (def { startupHook = startup } `additionalKeysP` myKeys) dirs
|
|
|
|
startup = isSessionStart >>= \sessInit ->
|
|
spawn "touch /tmp/${name}"
|
|
>> if sessInit then setSessionStarted else spawn "xterm"
|
|
|
|
myKeys = [${builtins.concatStringsSep ", " keys}]
|
|
|
|
compiledConfig = printf "xmonad-%s-%s" arch os
|
|
|
|
compileRestart resume = do
|
|
dirs <- asks directories
|
|
|
|
whenX (recompile dirs True) $
|
|
when resume writeStateToFile
|
|
*> catchIO
|
|
( do
|
|
args <- getArgs
|
|
executeFile (cacheDir dirs </> compiledConfig) False args Nothing
|
|
)
|
|
'';
|
|
|
|
oldKeys =
|
|
[ ''("M-C-x", spawn "xterm")''
|
|
''("M-q", restart "xmonad" True)''
|
|
''("M-C-q", compileRestart True)''
|
|
''("M-C-t", spawn "touch /tmp/somefile")'' # create somefile
|
|
];
|
|
|
|
newKeys =
|
|
[ ''("M-C-x", spawn "xterm")''
|
|
''("M-q", restart "xmonad" True)''
|
|
''("M-C-q", compileRestart True)''
|
|
''("M-C-r", spawn "rm /tmp/somefile")'' # delete somefile
|
|
];
|
|
|
|
newConfig = pkgs.writeText "xmonad.hs" (mkConfig "newXMonad" newKeys);
|
|
in {
|
|
name = "xmonad";
|
|
meta = with pkgs.lib.maintainers; {
|
|
maintainers = [ nequissimus ivanbrennan ];
|
|
};
|
|
|
|
nodes.machine = { pkgs, ... }: {
|
|
imports = [ ./common/x11.nix ./common/user-account.nix ];
|
|
test-support.displayManager.auto.user = "alice";
|
|
services.xserver.displayManager.defaultSession = "none+xmonad";
|
|
services.xserver.windowManager.xmonad = {
|
|
enable = true;
|
|
enableConfiguredRecompile = true;
|
|
enableContribAndExtras = true;
|
|
extraPackages = with pkgs.haskellPackages; haskellPackages: [ xmobar ];
|
|
config = mkConfig "oldXMonad" oldKeys;
|
|
};
|
|
};
|
|
|
|
testScript = { nodes, ... }: let
|
|
user = nodes.machine.config.users.users.alice;
|
|
in ''
|
|
machine.wait_for_x()
|
|
machine.wait_for_file("${user.home}/.Xauthority")
|
|
machine.succeed("xauth merge ${user.home}/.Xauthority")
|
|
machine.send_key("alt-ctrl-x")
|
|
machine.wait_for_window("${user.name}.*machine")
|
|
machine.sleep(1)
|
|
machine.screenshot("terminal1")
|
|
machine.succeed("rm /tmp/oldXMonad")
|
|
machine.send_key("alt-q")
|
|
machine.wait_for_file("/tmp/oldXMonad")
|
|
machine.wait_for_window("${user.name}.*machine")
|
|
machine.sleep(1)
|
|
machine.screenshot("terminal2")
|
|
|
|
# /tmp/somefile should not exist yet
|
|
machine.fail("stat /tmp/somefile")
|
|
|
|
# original config has a keybinding that creates somefile
|
|
machine.send_key("alt-ctrl-t")
|
|
machine.wait_for_file("/tmp/somefile")
|
|
|
|
# set up the new config
|
|
machine.succeed("mkdir -p ${user.home}/.xmonad")
|
|
machine.copy_from_host("${newConfig}", "${user.home}/.config/xmonad/xmonad.hs")
|
|
|
|
# recompile xmonad using the new config
|
|
machine.send_key("alt-ctrl-q")
|
|
machine.wait_for_file("/tmp/newXMonad")
|
|
|
|
# new config has a keybinding that deletes somefile
|
|
machine.send_key("alt-ctrl-r")
|
|
machine.wait_until_fails("stat /tmp/somefile", timeout=30)
|
|
|
|
# restart with the old config, and confirm the old keybinding is back
|
|
machine.succeed("rm /tmp/oldXMonad")
|
|
machine.send_key("alt-q")
|
|
machine.wait_for_file("/tmp/oldXMonad")
|
|
machine.send_key("alt-ctrl-t")
|
|
machine.wait_for_file("/tmp/somefile")
|
|
'';
|
|
})
|
|
|