32 lines
679 B
Plaintext
32 lines
679 B
Plaintext
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
|