···

       
78
       
 
       
              # (showing that the right filters have been applied).  Of

     

       
79
       
 
       
              # course, since there is no actual USB printer attached, the

     

       
80
       
 
       
              # file will stay in the queue forever.

     

       
81
       
-
       
              $server->waitForFile("/var/spool/cups/d00001-001");

     

       
82
       
 
       
              $server->sleep(10);

     

       
83
       
 
       
              $server->succeed("lpq -a") =~ /$fn/ or die;

     

       
84
       
 
       


     
···

       
90
       
 
       
              Machine::retry sub {

     

       
91
       
 
       
                return 1 if $server->succeed("lpq -a") =~ /no entries/;

     

       
92
       
 
       
              };

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
93
       
 
       
          };

     

       
94
       
 
       
      }

     

       
95
       
 
       
    '';

     

···

       
78
       
 
       
              # (showing that the right filters have been applied).  Of

     

       
79
       
 
       
              # course, since there is no actual USB printer attached, the

     

       
80
       
 
       
              # file will stay in the queue forever.

     

       
81
       
+
       
              $server->waitForFile("/var/spool/cups/d*-001");

     

       
82
       
 
       
              $server->sleep(10);

     

       
83
       
 
       
              $server->succeed("lpq -a") =~ /$fn/ or die;

     

       
84
       
 
       


     
···

       
90
       
 
       
              Machine::retry sub {

     

       
91
       
 
       
                return 1 if $server->succeed("lpq -a") =~ /no entries/;

     

       
92
       
 
       
              };

     

       
93
       
+
       
              # The queue is empty already, so this should be safe.

     

       
94
       
+
       
              # Otherwise, pairs of "c*"-"d*-001" files might persist.

     

       
95
       
+
       
              $server->execute("rm /var/spool/cups/*");

     

       
96
       
 
       
          };

     

       
97
       
 
       
      }

     

       
98
       
 
       
    '';