colin/nixpkgs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add a test for CUPS

Browse Source
This commit is contained in:
Eelco Dolstra 2013-09-26 21:00:30 +02:00
parent 82e1d0c8b1
commit a26e4a43f3
3 changed files with 92 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
release-combined.nix
View File

@ -53,6 +53,7 @@ in rec {
(all nixos.tests.login)
(all nixos.tests.misc)
(all nixos.tests.openssh)
(all nixos.tests.printing)
(all nixos.tests.xfce)
nixpkgs.tarball

1
tests/default.nix
View File

@ -22,6 +22,7 @@ with import ../lib/testing.nix { inherit system minimal; };
#nfs4 = makeTest (import ./nfs.nix { version = 4; });
openssh = makeTest (import ./openssh.nix);
partition = makeTest (import ./partition.nix);
printing = makeTest (import ./printing.nix);
proxy = makeTest (import ./proxy.nix);
quake3 = makeTest (import ./quake3.nix);
simple = makeTest (import ./simple.nix);

90
tests/printing.nix Normal file
View File

@ -0,0 +1,90 @@
# Test printing via CUPS.
{ pkgs, ... }:
{
nodes = {
server =
{ config, pkgs, ... }:
{ services.printing.enable = true;
services.printing.cupsdConf =
''
Listen server:631
<Location />
Order allow,deny
Allow from all
</Location>
'';
};
client =
{ config, pkgs, nodes, ... }:
{ services.printing.enable = true;
};
};
testScript =
''
startAll;
# Make sure that cups is up on both sides.
$server->waitForUnit("cupsd.service");
$client->waitForUnit("cupsd.service");
$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 http://client:631/");
# Add a HP Deskjet printer connected via USB to the server.
$server->succeed("lpadmin -p DeskjetLocal -v usb://HP/Deskjet%205400%20series?serial=TH93I152S123XY -m 'drv:///sample.drv/deskjet.ppd' -E");
# Add it to the client as well via IPP.
$client->succeed("lpadmin -p DeskjetRemote -v ipp://server/printers/DeskjetLocal -m 'drv:///sample.drv/deskjet.ppd' -E");
$client->succeed("lpadmin -d DeskjetRemote");
# Do some status checks.
$client->succeed("lpstat -a") =~ /DeskjetRemote accepting requests/ or die;
$client->succeed("lpstat -h server -a") =~ /DeskjetLocal accepting requests/ or die;
$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}/share/doc/*/examples/mom/typesetting.pdf",
"${pkgs.groff}/share/doc/*/meref.ps",
"${pkgs.cups}/share/doc/cups/images/cups.png",
"${pkgs.xz}/share/doc/xz/faq.txt")
{
$file =~ /([^\/]*)$/; my $fn = $1;
subtest "print $fn", sub {
# Print the file on the client.
$client->succeed("lp $file");
$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*-*");
$server->succeed("lpq -a") =~ /remroot.*$fn/ or die;
$server->succeed("hexdump -C -n2 /var/spool/cups/d*-*") =~ /1b 45/ or die; # 1b 45 = printer reset
# Delete the job on the client. It should disappear on the
# server as well.
$client->succeed("lprm");
$client->succeed("lpq -a") =~ /no entries/;
Machine::retry sub {
return 1 if $server->succeed("lpq -a") =~ /no entries/;
};
};
}
'';
}