3
0
Fork 0
forked from mirrors/nixpkgs
nixpkgs/nixos/tests/printing.nix

100 lines
3.7 KiB
Nix
Raw Normal View History

2013-09-26 20:00:30 +01:00
# Test printing via CUPS.
import ./make-test.nix ({pkgs, ... }: {
2014-06-28 15:04:49 +01:00
name = "printing";
meta = with pkgs.stdenv.lib.maintainers; {
maintainers = [ domenkozar eelco chaoflow jgeerds ];
};
2013-09-26 20:00:30 +01:00
nodes = {
server =
{ config, pkgs, ... }:
{ services.printing.enable = true;
2014-04-24 23:30:12 +01:00
services.printing.listenAddresses = [ "*:631" ];
services.printing.defaultShared = true;
2014-11-27 19:00:56 +00:00
services.printing.extraConf =
2013-09-26 20:00:30 +01:00
''
<Location />
Order allow,deny
Allow from all
</Location>
'';
networking.firewall.allowedTCPPorts = [ 631 ];
2013-09-26 20:00:30 +01:00
};
client =
{ config, pkgs, nodes, ... }:
{ services.printing.enable = true;
};
};
testScript =
''
startAll;
# Make sure that cups is up on both sides.
$server->waitForUnit("cups.service");
$client->waitForUnit("cups.service");
$client->sleep(10); # wait until cups is fully initialized
2013-09-26 20:00:30 +01:00
$client->succeed("lpstat -r") =~ /scheduler is running/ or die;
$client->succeed("lpstat -H") =~ "/var/run/cups/cups.sock" or die;
$client->succeed("curl --fail http://localhost:631/");
$client->succeed("curl --fail http://server:631/");
$server->fail("curl --fail --connect-timeout 2 http://client:631/");
2013-09-26 20:00:30 +01:00
# Add a HP Deskjet printer connected via USB to the server.
2014-11-27 19:00:56 +00:00
$server->succeed("lpadmin -p DeskjetLocal -E -v usb://foobar/printers/foobar");
2013-09-26 20:00:30 +01:00
# Add it to the client as well via IPP.
2014-11-27 19:00:56 +00:00
$client->succeed("lpadmin -p DeskjetRemote -E -v ipp://server/printers/DeskjetLocal");
2013-09-26 20:00:30 +01:00
$client->succeed("lpadmin -d DeskjetRemote");
# Do some status checks.
$client->succeed("lpstat -a") =~ /DeskjetRemote accepting requests/ or die;
$client->succeed("lpstat -h server:631 -a") =~ /DeskjetLocal accepting requests/ or die;
2013-09-26 20:00:30 +01:00
$client->succeed("cupsdisable DeskjetRemote");
$client->succeed("lpq") =~ /DeskjetRemote is not ready.*no entries/s or die;
$client->succeed("cupsenable DeskjetRemote");
$client->succeed("lpq") =~ /DeskjetRemote is ready.*no entries/s or die;
# Test printing various file types.
foreach my $file ("${pkgs.groff.doc}/share/doc/*/examples/mom/penguin.pdf",
"${pkgs.groff.doc}/share/doc/*/meref.ps",
"${pkgs.cups.out}/share/doc/cups/images/cups.png",
"${pkgs.pcre.doc}/share/doc/pcre/pcre.txt")
2013-09-26 20:00:30 +01:00
{
$file =~ /([^\/]*)$/; my $fn = $1;
subtest "print $fn", sub {
# Print the file on the client.
$client->succeed("lp $file");
$client->sleep(10);
2013-09-26 20:00:30 +01:00
$client->succeed("lpq") =~ /active.*root.*$fn/ or die;
# Ensure that a raw PCL file appeared in the server's queue
# (showing that the right filters have been applied). Of
# course, since there is no actual USB printer attached, the
# file will stay in the queue forever.
$server->waitForFile("/var/spool/cups/d*-001");
$server->sleep(10);
2014-11-27 19:00:56 +00:00
$server->succeed("lpq -a") =~ /$fn/ or die;
2013-09-26 20:00:30 +01:00
# Delete the job on the client. It should disappear on the
# server as well.
$client->succeed("lprm");
$client->sleep(10);
2013-09-26 20:00:30 +01:00
$client->succeed("lpq -a") =~ /no entries/;
Machine::retry sub {
return 1 if $server->succeed("lpq -a") =~ /no entries/;
};
# The queue is empty already, so this should be safe.
# Otherwise, pairs of "c*"-"d*-001" files might persist.
$server->execute("rm /var/spool/cups/*");
2013-09-26 20:00:30 +01:00
};
}
'';
})