WIP: Add a kola verb

Blocked by coreos/mantle#918

src/cmd-kola

@@ -0,0 +1,12 @@
+#!/usr/bin/env bash
+set -xeuo pipefail
+
+dn=$(dirname $0)
+. ${dn}/cmdlib.sh
+
+latest_qcow=$(get_latest_qcow)
+if [ -z "${latest_qcow}" ]; then
+    fatal "No latest build"
+fi
+
+exec sudo kola -b rhcos --tapfile test.tap --qemu-image ${latest_qcow} run rhcos.basic

src/cmd-run

@@ -7,6 +7,9 @@
 
 set -euo pipefail
 
+dn=$(dirname $0)
+. ${dn}/cmdlib.sh
+
 VM_DISK=
 VM_MEMORY=2048
 VM_PERSIST=0
@@ -71,10 +74,8 @@ while [ $# -ge 1 ]; do
 done
 
 if [ -z "${VM_DISK}" ]; then
-    if [ -L ./builds/latest ]; then
-        latest_build=$(readlink builds/latest)
-        VM_DISK=$(ls builds/${latest_build}/*-qemu.qcow2)
-    else
+    VM_DISK=$(get_latest_qcow)
+    if [ -z "${VM_DISK}" ]; then
         die "No builds/latest, and no -d argument provided"
     fi
 fi

src/cmdlib.sh

@@ -57,3 +57,16 @@ runcompose() {
     sudo rpm-ostree compose tree --repo=${workdir}/repo-build --cachedir=${workdir}/cache ${treecompose_args} \
          ${TREECOMPOSE_FLAGS:-} ${manifest} "$@"
 }
+
+get_latest_build() {
+    if [ -L builds/latest ]; then
+        readlink builds/latest
+    fi
+}
+
+get_latest_qcow() {
+    local latest=$(get_latest_build)
+    if [ -n "$latest" ]; then
+        ls builds/${latest}/*-qemu.qcow2
+    fi
+}