Similar to virsh-snapshots (which also gets a minor tweak, to prove we
properly lock out one API from the other until later integration
efforts figure out the best way to proceed). Provides decent coverage
of the checkpoint API, the test driver implementation, and the virsh
access to the API.
Signed-off-by: Eric Blake <ebl...@redhat.com>
---
tests/Makefile.am | 1 +
tests/virsh-checkpoint | 181 +++++++++++++++++++++++++++++++++++++++++
tests/virsh-snapshot | 12 ++-
3 files changed, 193 insertions(+), 1 deletion(-)
create mode 100755 tests/virsh-checkpoint
diff --git a/tests/Makefile.am b/tests/Makefile.am
index 1fd698c2d2..0ae1e51e03 100644
--- a/tests/Makefile.am
+++ b/tests/Makefile.am
@@ -414,6 +414,7 @@ libvirtd_test_scripts = \
virsh-schedinfo \
virsh-self-test \
virt-admin-self-test \
+ virsh-checkpoint \
virsh-snapshot \
virsh-start \
virsh-undefine \
diff --git a/tests/virsh-checkpoint b/tests/virsh-checkpoint
new file mode 100755
index 0000000000..13888cf8eb
--- /dev/null
+++ b/tests/virsh-checkpoint
@@ -0,0 +1,181 @@
+#!/bin/sh
+# simple testing of checkpoint APIs on test driver
+
+# Copyright (C) 2019 Red Hat, Inc.
+
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 2 of the License, or
+# (at your option) any later version.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see
+# <http://www.gnu.org/licenses/>.
+
+. "$(dirname $0)/test-lib.sh"
+
+if test "$VERBOSE" = yes; then
+ set -x
+ $abs_top_builddir/tools/virsh --version
+fi
+
+fail=0
+
+mock_xdg_ || framework_failure
+
+# The test driver loses states between restarts, so we perform a script
+# with some convenient markers for later post-processing of output.
+$abs_top_builddir/tools/virsh --connect test:///default >out 2>err '
+ # Create a series of checkpoints, with names that intentionally sort
+ # differently by topology than by name. For now, it is not possible
+ # to create fanout without hacking through redefines.
+ checkpoint-create-as test c1
+ checkpoint-create-as test c3
+ checkpoint-create-as test c2
+ # snapshots cannot be created while checkpoints exist
+ echo --err marker
+ snapshot-create-as test s1
+ echo --err marker
+ # Checking tree view (siblings sorted alphabetically)
+ checkpoint-list test --tree
+ # Demonstrate list filtering
+ checkpoint-list test --current
+ checkpoint-list test --current-only --name
+ checkpoint-list test --roots
+ checkpoint-list test --leaves
+ checkpoint-list test --parent --no-leaves
+ checkpoint-list test --from c3
+ checkpoint-list test --from c1 --descendants --name
+ # Now the tree is linear, so we have an unambiguous topological order
+ checkpoint-list test --name
+ checkpoint-list test --name --topological
+ checkpoint-list test --name --no-current
+ # Capture some XML for later redefine
+ checkpoint-delete test c1
+ echo "<!--MarkerA-->"
+ checkpoint-dumpxml test c3
+ echo "<!--MarkerB-->"
+ checkpoint-dumpxml test --current
+ echo "<!--MarkerC-->"
+ # Deleting current checkpoint moves current up to remaining parent
+ checkpoint-delete test --children-only c3
+ checkpoint-list test --current-only --name
+ checkpoint-delete test --children c3
+ checkpoint-list test --current-only --name
+ # All done
+' || fail=1
+
+# First part is expected output, --tree results in trailing spaces,
+# and checkpoint-list produces timestamps
+sed 's/ *$//; s/[0-9-]\{10\} [0-9:.]* .[0-9]\{4\}/TIMESTAMP/;
+ /MarkerA/,/MarkerC/d' < out > out.cooked || fail=1
+# Second part holds domain checkpoint XMLs
+sed -n '/MarkerA/,/MarkerB/p' < out > c3.xml || fail=1
+sed -n '/MarkerB/,/MarkerC/p' < out > c2.xml || fail=1
+
+cat <<\EOF > exp || fail=1
+Domain checkpoint c1 created
+Domain checkpoint c3 created
+Domain checkpoint c2 created
+
+
+
+c1
+ |
+ +- c3
+ |
+ +- c2
+
+
+ Name Creation Time
+-----------------------
+
+c2
+
+ Name Creation Time
+-----------------------------------
+ c1 TIMESTAMP
+
+ Name Creation Time
+-----------------------------------
+ c2 TIMESTAMP
+
+ Name Creation Time Parent
+--------------------------------------------
+ c1 TIMESTAMP
+ c3 TIMESTAMP c1
+
+ Name Creation Time
+-----------------------------------
+ c2 TIMESTAMP
+
+c2
+c3
+
+c1
+c2
+c3
+
+c1
+c3
+c2
+
+c1
+c3
+
+Domain checkpoint c1 deleted
+
+Domain checkpoint c3 children deleted
+
+c3
+
+Domain checkpoint c3 deleted
+
+
+EOF
+compare exp out.cooked || fail=1
+
+cat <<EOF > exp || fail=1
+error: marker
+error: Operation not supported: cannot create snapshot while checkpoint exists
+error: marker
+EOF
+compare exp err || fail=1
+
+# Restore state with redefine
+$abs_top_builddir/tools/virsh -c test:///default >out 2>err <<EOF || fail=1
+ # Redefine must be in topological order; this will fail
+ checkpoint-create test --redefine c2.xml
+ echo --err marker
+ # This is the right order
+ checkpoint-create test --redefine c3.xml
+ checkpoint-create test --redefine c2.xml
+ checkpoint-info test --current
+EOF
+
+cat <<\EOF > exp || fail=1
+
+
+Domain checkpoint s3 created from 's3.xml'
+Domain checkpoint s2 created from 's2.xml'
+Name: s2
+Domain: test
+Current: yes
+Parent: s3
+Children: 0
+Descendants: 0
+
+EOF
+
+cat <<EOF > exp || fail=1
+error: invalid argument: parent c3 for moment c2 not found
+error: marker
+EOF
+compare exp err || fail=1
+
+(exit $fail); exit $fail
diff --git a/tests/virsh-snapshot b/tests/virsh-snapshot
index 8b0813233f..feb2f097e4 100755
--- a/tests/virsh-snapshot
+++ b/tests/virsh-snapshot
@@ -44,6 +44,10 @@ $abs_top_builddir/tools/virsh --connect test:///default >out
2>err '
snapshot-revert test s1
snapshot-create-as test s7
snapshot-create-as test s8
+ # checkpoints cannot be created while snapshots exist
+ echo --err marker
+ checkpoint-create-as test c1
+ echo --err marker
# Checking tree view (siblings sorted alphabetically)
snapshot-list test --tree
# Current was last one created, but we can change that
@@ -86,7 +90,7 @@ $abs_top_builddir/tools/virsh --connect test:///default >out
2>err '
# and snapshot-list produces timestamps
sed 's/ *$//; s/[0-9-]\{10\} [0-9:.]* .[0-9]\{4\}/TIMESTAMP/;
/MarkerA/,/MarkerC/d' < out > out.cooked || fail=1
-# Second part holds domain XMLs
+# Second part holds domain snapshot XMLs
sed -n '/MarkerA/,/MarkerB/p' < out > s3.xml || fail=1
sed -n '/MarkerB/,/MarkerC/p' < out > s2.xml || fail=1
@@ -102,6 +106,9 @@ Domain snapshot s4 created
Domain snapshot s7 created
Domain snapshot s8 created
+
+
+
s1
|
+- s3
@@ -178,6 +185,9 @@ compare exp out.cooked || fail=1
cat <<EOF > exp || fail=1
error: marker
+error: Operation not supported: cannot create checkpoint while snapshot exists
+error: marker
+error: marker
error: domain 'test' has no current snapshot
error: marker
EOF
--
2.20.1
--
libvir-list mailing list
libvir-list@redhat.com
https://www.redhat.com/mailman/listinfo/libvir-list
