cups: Second attempt to fix our printing tests; add more sleep statements
This commit is contained in:
parent
8714140e31
commit
779b65f019
@ -68,6 +68,7 @@ import ./make-test.nix ({pkgs, ... }: {
|
|||||||
|
|
||||||
# Print the file on the client.
|
# Print the file on the client.
|
||||||
$client->succeed("lp $file");
|
$client->succeed("lp $file");
|
||||||
|
$client->sleep(10);
|
||||||
$client->succeed("lpq") =~ /active.*root.*$fn/ or die;
|
$client->succeed("lpq") =~ /active.*root.*$fn/ or die;
|
||||||
|
|
||||||
# Ensure that a raw PCL file appeared in the server's queue
|
# Ensure that a raw PCL file appeared in the server's queue
|
||||||
@ -75,11 +76,13 @@ import ./make-test.nix ({pkgs, ... }: {
|
|||||||
# course, since there is no actual USB printer attached, the
|
# course, since there is no actual USB printer attached, the
|
||||||
# file will stay in the queue forever.
|
# file will stay in the queue forever.
|
||||||
$server->waitForFile("/var/spool/cups/d00001-001");
|
$server->waitForFile("/var/spool/cups/d00001-001");
|
||||||
|
$server->sleep(10);
|
||||||
$server->succeed("lpq -a") =~ /$fn/ or die;
|
$server->succeed("lpq -a") =~ /$fn/ or die;
|
||||||
|
|
||||||
# Delete the job on the client. It should disappear on the
|
# Delete the job on the client. It should disappear on the
|
||||||
# server as well.
|
# server as well.
|
||||||
$client->succeed("lprm");
|
$client->succeed("lprm");
|
||||||
|
$client->sleep(10);
|
||||||
$client->succeed("lpq -a") =~ /no entries/;
|
$client->succeed("lpq -a") =~ /no entries/;
|
||||||
Machine::retry sub {
|
Machine::retry sub {
|
||||||
return 1 if $server->succeed("lpq -a") =~ /no entries/;
|
return 1 if $server->succeed("lpq -a") =~ /no entries/;
|
||||||
|
Loading…
Reference in New Issue
Block a user