1 files changed, 31 insertions, 0 deletions
diff --git a/test/lib/completions/cancel.exp b/test/lib/completions/cancel.exp
new file mode 100644
index 00000000..24ca47c4
--- /dev/null
+++ b/test/lib/completions/cancel.exp
@@ -0,0 +1,31 @@
+proc setup {} {
+    save_env
+}; # setup()
+
+
+proc teardown {} {
+    assert_env_unmodified
+}; # teardown()
+
+
+setup
+
+
+    # Adding a print job is successful?
+if {[assert_exec {lp -H hold fixtures/shared/default/foo} job "" "untested"]} {
+    # Yes, adding a print-job is successful;
+        # Retrieve job-id, so we can cancel the job after the test
+    set job_id [lindex [split $job] 3]
+        # Retrieve list of all current print jobs
+    assert_exec {lpstat | cut -d\040 -f1} jobs
+        # Completion should show all print jobs
+    assert_complete $jobs "cancel "
+        # Remove/cancel the test print job
+    assert_exec "cancel $job_id"
+}; # if
+
+
+sync_after_int
+
+
+teardown