2009-06-14 16:22:25 +02:00
|
|
|
proc setup {} {
|
|
|
|
save_env
|
2010-06-18 17:21:38 +02:00
|
|
|
}
|
2009-06-14 16:22:25 +02:00
|
|
|
|
|
|
|
|
|
|
|
proc teardown {} {
|
|
|
|
assert_env_unmodified
|
2010-06-18 17:21:38 +02:00
|
|
|
}
|
2009-06-14 16:22:25 +02:00
|
|
|
|
|
|
|
|
|
|
|
setup
|
|
|
|
|
|
|
|
|
2009-07-12 21:41:56 +02:00
|
|
|
# Adding a print job is successful?
|
2010-04-21 20:30:49 +03:00
|
|
|
if {[assert_exec {lp -H hold fixtures/shared/default/foo} job "" "untested"]} {
|
2009-07-12 21:41:56 +02:00
|
|
|
# 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"
|
2010-06-18 17:21:38 +02:00
|
|
|
}
|
2009-06-14 16:22:25 +02:00
|
|
|
|
|
|
|
|
|
|
|
sync_after_int
|
|
|
|
|
|
|
|
|
|
|
|
teardown
|