First version of scripts

Makefile

@@ -0,0 +1,155 @@
+include config.mk
+
+SRC_DIR=linux-source
+VERSION=$(shell $(MAKE) -s -C $(SRC_DIR) kernelversion)
+BZIMAGE=archives/bzImage.$(VERSION)
+CONFIG_REPO=kernel-config
+KERNEL.CONFIG=$(shell realpath "$(CONFIG_REPO)/kernel.config")
+TESTED_HASH=.bzImage_tested.sha512
+VIRSH_TEST_SCRIPT=./scripts/test_libvirt.expect
+DEBVM_TEST_SCRIPT=./scripts/test_debvm.expect
+DEBVM_IMG_DIR=/tmp
+DEBVM_DISK=$(DEBVM_IMG_DIR)/vz5_kernel_test.ext4
+DEBVM_SWAPFILE=$(DEBVM_IMG_DIR)/vz5_kernel_test.swapfile
+DEBVM_SWAPLABEL=testswap
+UPGRADE_SCRIPT=./scripts/upgrade.sh
+HASH=sha512sum
+
+CRED=$(shell tput setaf 1)
+CGRN=$(shell tput setaf 2)
+CRAZ=$(shell tput sgr0)
+
+
+ARCHIVE=archives/install_$(shell date "+%Y_%m_%dT%H_%M_%S")_$(VERSION)
+
+all: status
+
+status:
+	@echo "Images :\n========\n";
+	@[ -f "bzImage.latest" ] && echo 'Latest    : $(shell file -L bzImage.latest | cut -d ',' -f2)' || echo "$(CRED)None built$(CRAZ)";
+	@[ -f "$(BZIMAGE_INSTALL)" ] && echo 'Installed : $(shell file -L $(BZIMAGE_INSTALL) | cut -d ',' -f2)' || echo "$(CRED)None installed$(CRAZ)";
+	@[ -f "$(BZIMAGE_TEST)" ] && echo 'In test   : $(shell file -L $(BZIMAGE_TEST) | cut -d ',' -f2)' || echo "$(CRED)None in test$(CRAZ)";
+	@echo "\nLatest tested :\n----------";
+	@[ -f "bzImage.latest" ] && $(MAKE) -s tested || true;
+	@echo "\nSources :\n=========";
+	@sh $(UPGRADE_SCRIPT) check >/dev/null \
+		&& echo "$(CGRN)Kernel sources are up to date$(CRAZ)" \
+		|| echo "$(CRED)Kernel sources can be upgraded$(CRAZ)";
+	@echo "\nKernel config git repo :\n========================"
+	@git -C $(CONFIG_REPO) status
+
+
+$(SRC_DIR)/.config: $(KERNEL.CONFIG)
+	cp -v "$<" "$@"
+
+$(KERNEL.CONFIG): $(SRC_DIR)/.config
+	cp -v "$<" "$@"
+
+$(CONFIG_REPO):
+	mkdir $(CONFIG_REPO) && git -C $(CONFIG_REPO) init;
+
+menuconfig: $(SRC_DIR)/.config
+	$(MAKE) -C $(SRC_DIR) menuconfig
+
+$(BZIMAGE): $(SRC_DIR)/.config
+	$(MAKE) -C $(SRC_DIR);
+	cp "$(SRC_DIR)/arch/x86_64/boot/bzImage" "$@";
+	ln -vfs "$@" bzImage.latest
+	ls -lah "$@"
+
+upgrade_src:
+	sh $(UPGRADE_SCRIPT)
+
+can_upgrade:
+	@sh $(UPGRADE_SCRIPT) check || echo "$(CRED)Kernel sources can be ugraded$(CRAZ)";
+
+kernel: can_upgrade $(BZIMAGE)
+
+commit-config: tested $(KERNEL.CONFIG) can_upgrade
+	cp -v "$(SRC_DIR)/.config" "$(KERNEL.CONFIG)";
+	git -C $(CONFIG_REPO) add "$(KERNEL.CONFIG)";
+	git -C $(CONFIG_REPO) commit -m "Update config for kernel $(VERSION)";
+	git -C $(CONFIG_REPO) tag -fa "$(VERSION)" -m "$(shell date -Is) Config for kernel $(VERSION)";
+
+archives/:
+	mkdir -p archives;
+
+archive:
+	mkdir -p $(ARCHIVE);
+	cp -v $(BZIMAGE) $(ARCHIVE)/bzImage.new;
+	cp -v $(BZIMAGE_INSTALL) $(ARCHIVE)/bzImage.old;
+
+
+clean:
+	-rm -v $(BZIMAGE) bzImage.latest "$(DEBVM_SWAPFILE)" "$(DEBVM_DISK)" "$(TESTED_HASH)";
+	$(MAKE) -C $(SRC_DIR) clean;
+
+distclean:
+	-rm -R "$(shell realpath $(SRC_DIR))" "$(SRC_DIR)"
+
+.PHONY: can_upgrade distclean clean $(BZIMAGE_TEST) $(BZIMAGE_INSTALL) _test tested install
+
+tested:
+	@$(HASH) -c "$(TESTED_HASH)" 2>/dev/null || {\
+		echo "$(CRED)$(BZIMAGE) is not tested.";\
+		echo "run make test as root.$(CRAZ)";\
+		false;\
+	};
+
+_test:
+	if $(MAKE) is_root >/dev/null 2>/dev/null; then \
+	     	$(MAKE) _virsh_test;\
+	else\
+		$(MAKE) _debvm_test;\
+	fi
+
+test: _test
+	$(HASH) "$(BZIMAGE)" > "$(TESTED_HASH)";
+
+# non-privileged user tests
+
+$(DEBVM_DISK): $(BZIMAGE)
+	@debvm-create -r stable -o "$@" -h "$(TEST_VM_HOSTNAME)" \
+		--skip autologin --skip kernel --skip systemdnetwork -- \
+		--customize-hook="echo \"LABEL=$(DEBVM_SWAPLABEL) none swap sw 0 0\" >> \$$1/etc/fstab"\
+		--customize-hook="mkdir -p \$$1/etc/network; echo \"auto enp0s2\niface enp0s2 inet dhcp\" > \$$1/etc/network/interfaces" \
+		--include="udev" \
+		--include="iputils-ping iproute2 ifupdown isc-dhcp-client" \
+		--include="ssh qemu-guest-agent tzdata initscripts ntpdate ca-certificates console-setup console-common console-data locales acpid vim screen bash-completion rsyslog" \
+		|| { rm "$@"; false;}
+
+$(DEBVM_SWAPFILE):
+	dd if=/dev/zero "of=$@" bs=4096 count=32768 status=progress &&\
+		chmod 0600 "$@" &&\
+		mkswap -L "$(DEBVM_SWAPLABEL)" "$@"
+
+_debvm_test: $(DEBVM_DISK) $(DEBVM_SWAPFILE)
+	@$(DEBVM_TEST_SCRIPT) "$(TEST_VM_HOSTNAME)" "$(VERSION)" "$(DEBVM_DISK)" "$(BZIMAGE)" "$(DEBVM_SWAPFILE)" "$(DEBVM_SWAPLABEL)" \
+		|| echo "$(CRED)Kernel $(VERSION) [Error]$(CRAZ): Check /tmp/test_vz5_debvm_expect.log" >&2 \
+		&& echo "$(CGRN)Kernel $(VERSION) [OK]$(CRAZ): console logs in /tmp/test_debvm_expect.log" >&2;
+
+# superuser designed targets
+
+is_root:
+	@[ "$(shell whoami)" = "root" ] || {\
+		echo "$(CRED)ERROR :$(CRAZ) You need to be root to run this target" >&2;\
+		false;\
+	};
+
+$(BZIMAGE_TEST): can_upgrade is_root
+	cp "$(BZIMAGE)" "$@"
+
+_virsh_test: $(BZIMAGE_TEST) can_upgrade is_root
+	@$(VIRSH_TEST_SCRIPT) "$(TEST_VM_HOSTNAME)" "$(VERSION)" "$(TEST_VM_NAME)" || {\
+		echo "$(CRED)Kernel $(VERSION) [Error]$(CRAZ): Check /tmp/test_vz5_expect.log" >&2;\
+		false;\
+	} && echo "$(CGRN)Kernel $(VERSION) [OK]$(CRAZ): console logs in /tmp/test_vz5_expect.log" >&2;
+
+
+
+$(BZIMAGE_INSTALL): tested can_upgrade is_root
+	-cp -v $(BZIMAGE_INSTALL) $(BZIMAGE_INSTALL).old;
+	cp -v $(BZIMAGE) $(BZIMAGE_INSTALL);
+
+install: $(BZIMAGE_INSTALL) archive is_root
+

README

@@ -0,0 +1,54 @@
+Linux VZ5 :
+===========
+
+Compile test & install kernel image for vz5's VM.
+
+Dependencies :
+==============
+
+- virsh
+- expect
+- `apt build-dep linux-image-amd64`
+- `apt install linux-source`
+
+Install & config :
+==================
+
+Copy sample config `cp config.mk.inc config.mk`
+Edit configuration file to meet your needs `editor config.mk`
+
+Kernel sources  :
+-----------------
+
+* Automatic method (debian based) :
+
+Run `make upgrade`
+Will fetch the last kernel source in /usr/src
+
+* Manual method :
+
+Decompress kernel sources and create a symlink `linux-source` pointing to it.
+
+Kernel config :
+---------------
+
+Kernel configuration are versionned in a separetd git repository in kernel-config/ directory.
+In order to seed config file with yours run :
+```
+mkdir kernel-config
+git -C kernel-config/ init
+cp /path/to/.config kernel-config/kernel.config
+git -C kernel-config add kernel.config
+git -C kernel-config commit -m 'Initial kernel config'
+```
+
+Usage :
+=======
+
+Compile a kernel `make kernel`
+
+Test a kernel on virsh vm `make test`
+
+Install kernel `make install`
+
+Commit tested kernel config `make commit-config`

config.mk.inc

@@ -0,0 +1,4 @@
+BZIMAGE_TEST=/srv/tftpd/boot/bzImageTest
+BZIMAGE_INSTALL=/srv/tftpd/boot/bzImage
+TEST_VM_NAME=test
+TEST_VM_HOSTNAME=test

scripts/test_debvm.expect

@@ -0,0 +1,59 @@
+#!/usr/bin/expect -f
+
+log_file -noappend "/tmp/test_debvm_expect.log"
+
+namespace eval VZ5 {
+	variable HOSTNAME "[lindex $argv 0]"
+	variable KVER "[lindex $argv 1]"
+}
+set DISK_IMG_PATH "[lindex $argv 2]"
+set KERNEL_PATH "[lindex $argv 3]"
+set SWAP_PATH "[lindex $argv 4]"
+set SWAP_UUID "[lindex $argv 5]"
+
+set where [file dirname [info script]]
+source [file join $where testlib.expect]
+
+proc VZ5::destroy {} {
+	send_log "\nERROR EXIT DESTROY\n"
+	system "kill [exp_pid]"
+	exit 1
+}
+
+proc VZ5::abort {} {
+	send_log "\nERROR ABORT\n"
+	set timeout 1
+	send "\r"
+	expect "[prompt]" { send "shutdown -h now\r"; } timeout destroy
+	set timeout 15
+	expect eof {} timeout destroy
+	exit 1
+}
+
+spawn qemu-system-x86_64 \
+	-name $::VZ5::HOSTNAME \
+	-m 1024\
+	-smp 8 -cpu host -machine type=q35,accel=kvm:tcg -no-user-config\
+	-netdev "user,id=net0,domainname=testvm"\
+	-device "virtio-net-pci,netdev=net0"\
+	-device "virtio-rng-pci,rng=rng0"\
+	-object "rng-random,filename=/dev/urandom,id=rng0"\
+	-drive "media=disk,format=raw,discard=unmap,file=$DISK_IMG_PATH,if=virtio,cache=unsafe"\
+	-drive "media=disk,format=raw,discard=unmap,file=$SWAP_PATH,if=virtio,cache=unsafe"\
+	-kernel $KERNEL_PATH -append "root=/dev/vda rw console=ttyS0,38400n8"\
+	-nographic -snapshot
+
+
+login
+
+test_base
+test_kernel_version $::VZ5::KVER
+test_swap
+test_ssh
+test_vda_rw
+test_apt
+test_reboot
+
+shutdown
+
+exit 0

scripts/test_libvirt.expect

@@ -0,0 +1,49 @@
+#!/usr/bin/expect -f
+
+log_file -noappend "/tmp/test_libvirt_expect.log"
+namespace eval VZ5 {
+	variable HOSTNAME "[lindex $argv 0]"
+	variable KVER "[lindex $argv 1]"
+}
+variable VMNAME "[lindex $argv 2]"
+
+set where [file dirname [info script]]
+source [file join $where testlib.expect]
+
+
+proc VZ5::destroy {} {
+	system virsh destroy $::VMNAME
+	send_log "ERROR EXIT DESTROY\n"
+	system reset
+	exit 1
+}
+proc VZ5::abort {} {
+	set timeout 5
+	send_log "\nERROR ABORT\n"
+	send "\r"
+	expect "root@test:~#" {} timeout VZ5::destroy
+	send "shutdown -h now\r"
+	expect eof {} timeout VZ5::destroy
+	send_log "ERROR EXIT"
+	system reset
+	exit 1
+}
+
+spawn virsh start --console $VMNAME
+
+login
+
+test_base
+test_kernel_version $::VZ5::KVER
+test_swap
+test_ssh
+test_vz5_netconfig
+test_ping
+test_vda_rw
+test_apt
+test_reboot
+test_virsh_reboot
+
+shutdown
+
+exit 0

scripts/testlib.expect

@@ -0,0 +1,208 @@
+# Common VZ5 kernel test procedures
+# This file is designed to be sourced from expect script
+
+namespace eval VZ5 {
+	variable rows [stty rows]
+	variable cols [stty columns]
+}
+
+
+# Procedure called on timeout
+# The expect main script must define VZ5::abort ordering the VM to stop
+proc abort {} {
+	VZ5::abort
+}
+
+# Procedure called when abort fails to stop the VM
+# The expect main script must define VZ5::destroy
+proc destroy {} {
+	VZ5::destroy
+}
+
+# 
+proc debug_interact {} {
+	expect "[prompt]" {
+		send " echo H4sIAAAAAAACA+OSjjY2zFXGB7iUFaSjc/mlo01zXVydQt0VPP1CXIMcnUM8w1wVgl2Dgz39/aAqQEZxETbM2Cg3oCi1uFghuaQoRztRIb9IIS5WoSRfITUvRQFmCkRdSUaqQjFQaWZ+HlhCARUQsA3kKi4uALzdLXnkAAAA|base64 -d|gzip -d\r"
+	}
+	interact {
+		\001 { abort; }
+		\x1d { abort; }
+	}
+}
+
+proc vm_stty {} {
+	expect "[prompt]" {send "stty -brkint -imaxbel iutf8 rows $::VZ5::rows cols $::VZ5::cols\r"} timeout destroy
+}
+
+proc termconfig {} {
+	send_tty "\033\[?7h\033\[?4h"
+}
+
+
+####################
+# Tests procedures #
+####################
+
+
+# Wait for login prompt, and login as root without password
+# Calls stty to inform VM of terminal size
+proc login {} {
+	send_log "\nPID : '[exp_pid]'\n"
+	if { [exp_pid] == 0 } { destroy }
+	set timeout 15
+	expect "Console: " { termconfig } timeout destroy
+	expect {
+		"$::VZ5::HOSTNAME login:" {}
+		"FAIL" {
+			expect "\r"
+			expect "\r" {
+				sleep 2;
+				expect "login:" {
+					send "root\r";
+					vm_stty;
+					debug_interact;
+				} timeout destroy
+			} timeout destroy
+		}
+		timeout destroy
+	}
+	set timeout 5
+	if {[catch {send "root\r"} err]} {
+		destroy
+	}
+	vm_stty
+}
+
+# Basics tests
+# - Checks date & time
+# - Check uname status code
+# - Checks /proc/cpuinfo
+# - Checks kernel clocksource kvm-clock support
+proc test_base {} {
+	set timeout 2
+	expect "[prompt]" { send "date -Im\r" } timeout abort
+	expect [system date -Im] {} timeout abort
+	expect "[prompt]" { send "date\r" } timeout abort
+	check_ret
+	expect "[prompt]" { send "uname -a\r" } timeout abort
+	check_ret
+	expect {
+		"[prompt]" { send "cat /proc/cpuinfo\r" } timeout abort
+		"processor " {} timeout abort
+	}
+	expect "[prompt]" { send "cat /sys/devices/system/clocksource/clocksource0/current_clocksource\r" } timeout abort
+	expect "kvm-clock" {} timeout abort
+}
+
+# Tests uname kernel version
+# Arguments :
+#  - version : expected kernel version
+proc test_kernel_version {version} {
+	set timeout 3
+	expect "[prompt]" { send "uname -r\r" } timeout abort
+	expect "$version-kvmguest" {} timeout abort
+}
+
+# Testing swap support
+proc test_swap {} {
+	set timeout 3
+	expect "[prompt]" { send "cat /proc/swaps | grep partition\r" } timeout abort
+	expect "/dev/vd*" {} timeout abort
+
+	expect {
+		"[prompt]" { send "free -h\r" } timeout abort
+		"Mem: " {} timeout abort
+		"Swap: " {} timeout abort
+	}
+
+}
+
+# Testing ssh daemon is running
+proc test_ssh {} {
+	set timeout 3
+	expect {
+		"[prompt]" { send "ps aux|grep sshd\r" }
+		expect "*/usr/sbin/sshd -D \[listener\] *"
+		timeout abort
+	}
+
+}
+
+# Check for vz5 network address configuration
+proc test_vz5_netconfig {} {
+	set timeout 3
+	expect {
+		"[prompt]" { send "ip a\r" }
+		"2: enp1s0: <BROADCAST,MULTICAST,UP,LOWER_UP>" {} timeout abort
+		"inet 192.168.242." {} timeout abort
+		"inet6 2001:41d0:203:10ae:1312::" {} timeout abort
+	}
+}
+
+# Testing that apt runs
+proc test_apt {} {
+	set timeout 30
+	expect "[prompt]" { send "apt update\r" } timeout abort
+	check_ret
+	expect "[prompt]" { send "apt -y dist-upgrade\r" } timeout abort
+	check_ret
+}
+
+# Testing ping
+proc test_ping {} {
+	set timeout 10
+	expect "[prompt]" { send "ping -c2 gnu.org\r" } timeout abort
+	check_ret
+	expect "[prompt]" { send "ping -4 -c2 gnu.org\r" } timeout abort
+	check_ret
+}
+
+# Testing that vda is mounted rw
+proc test_vda_rw {} {
+	set timeout 3
+	expect {
+		"[prompt]" { send "grep '^rw' /proc/fs/ext4/vda/options\r" } timeout abort
+		"rw" {} timeout abort
+	}
+}
+
+
+# Reboot using systemctl and reboot
+proc test_reboot {} {
+	expect "[prompt]" { send "# Rebooting in 2 seconds\r" }
+	set timeout 30
+	expect "[prompt]" { sleep 2; send "systemctl reboot\r" }
+	login
+	expect "[prompt]" { send "reboot\r" }
+	login
+}
+
+
+proc test_virsh_reboot {} {
+	system virsh reboot test
+	login
+}
+
+proc shutdown {} {
+	set timeout 2
+	expect "[prompt]" { send "shutdown -h now\r" }
+	set timeout 15
+	expect eof {} timeout destroy
+}
+
+
+
+# Return the expected prompt in order to expect it
+proc prompt {} {
+	return "root@${::VZ5::HOSTNAME}:~#"
+}
+
+# Check that a command return a 0 status code
+proc check_ret {} {
+	expect "[prompt]" {
+		send "echo \"ret='$?'\"\r";
+		expect -timeout 1 "ret='0'" {} timeout abort
+	} timeout abort
+}
+
+

scripts/upgrade.sh

@@ -0,0 +1,35 @@
+#!/bin/sh
+set -e
+
+src_tarball=$(ls /usr/src/linux-source-* |sort -V | tail  -n1)
+version=$(basename "$src_tarball" |sed -e 's/^linux-source-//' -e 's/\.tar\.xz//')
+tarball_hash=.debian_src_tarball.sha512
+
+src_dir=$(realpath linux-source)
+
+if [ -d "$src_dir" -a -L "linux-source" ]
+then
+	if sha512sum -c "$tarball_hash"
+	then
+		exit 0
+	fi
+
+	if [ "$1" = "check" ]
+	then
+		exit 1
+	fi
+
+	make commit-config || true
+	rm -Rf "$src_dir" || true
+	rm "linux-source" || true
+
+elif [ "$1" = "check" ]
+then
+	exit 1
+fi
+
+tar -xvf "$src_tarball"
+
+ln -vs "linux-source-${version}" "linux-source"
+
+sha512sum "$src_tarball" > "$tarball_hash"