forked from mirrors/nixpkgs
122 lines
4.2 KiB
Nix
122 lines
4.2 KiB
Nix
import ./make-test.nix ({ pkgs, ...} :
|
|
|
|
let
|
|
|
|
# Build some packages with coverage instrumentation.
|
|
overrides = pkgs:
|
|
with pkgs.stdenvAdapters;
|
|
let
|
|
do = pkg: pkg.override (args: {
|
|
stdenv = addCoverageInstrumentation args.stdenv;
|
|
});
|
|
in
|
|
rec {
|
|
apr = do pkgs.apr;
|
|
aprutil = do pkgs.aprutil;
|
|
apacheHttpd = do pkgs.apacheHttpd;
|
|
mod_python = do pkgs.mod_python;
|
|
subversion = do pkgs.subversion;
|
|
|
|
# To build the kernel with coverage instrumentation, we need a
|
|
# special patch to make coverage data available under /proc.
|
|
linux = pkgs.linux.override (orig: {
|
|
stdenv = overrideInStdenv pkgs.stdenv [ pkgs.keepBuildTree ];
|
|
extraConfig =
|
|
''
|
|
GCOV_KERNEL y
|
|
GCOV_PROFILE_ALL y
|
|
'';
|
|
});
|
|
};
|
|
|
|
in
|
|
|
|
{
|
|
name = "subversion";
|
|
meta = with pkgs.stdenv.lib.maintainers; {
|
|
maintainers = [ eelco chaoflow ];
|
|
};
|
|
|
|
nodes =
|
|
{ webserver =
|
|
{ config, pkgs, ... }:
|
|
|
|
{
|
|
services.httpd.enable = true;
|
|
services.httpd.adminAddr = "e.dolstra@tudelft.nl";
|
|
services.httpd.extraSubservices =
|
|
[ { function = import <services/subversion>;
|
|
urlPrefix = "";
|
|
dataDir = "/data/subversion";
|
|
userCreationDomain = "192.168.0.0/16";
|
|
}
|
|
];
|
|
nixpkgs.config.packageOverrides = overrides;
|
|
};
|
|
|
|
client =
|
|
{ config, pkgs, ... }:
|
|
|
|
{
|
|
environment.systemPackages = [ pkgs.subversion ];
|
|
nixpkgs.config.packageOverrides = overrides;
|
|
};
|
|
|
|
};
|
|
|
|
testScript =
|
|
''
|
|
startAll;
|
|
|
|
$webserver->waitForOpenPort(80);
|
|
|
|
print STDERR $client->succeed("svn --version");
|
|
|
|
print STDERR $client->succeed("curl --fail http://webserver/");
|
|
|
|
# Create a new user through the web interface.
|
|
$client->succeed("curl --fail -F username=alice -F fullname='Alice Lastname' -F address=alice\@example.org -F password=foobar -F password_again=foobar http://webserver/repoman/adduser");
|
|
|
|
# Let Alice create a new repository.
|
|
$client->succeed("curl --fail -u alice:foobar --form repo=xyzzy --form description=Xyzzy http://webserver/repoman/create");
|
|
|
|
$client->succeed("curl --fail http://webserver/") =~ /alice/ or die;
|
|
|
|
# Let Alice do a checkout.
|
|
my $svnFlags = "--non-interactive --username alice --password foobar";
|
|
$client->succeed("svn co $svnFlags http://webserver/repos/xyzzy wc");
|
|
$client->succeed("echo hello > wc/world");
|
|
$client->succeed("svn add wc/world");
|
|
$client->succeed("svn ci $svnFlags -m 'Added world.' wc/world");
|
|
|
|
# Create a new user on the server through the create-user.pl script.
|
|
$webserver->execute("svn-server-create-user.pl bob bob\@example.org Bob");
|
|
$webserver->succeed("svn-server-resetpw.pl bob fnord");
|
|
$client->succeed("curl --fail http://webserver/") =~ /bob/ or die;
|
|
|
|
# Bob should not have access to the repo.
|
|
my $svnFlagsBob = "--non-interactive --username bob --password fnord";
|
|
$client->fail("svn co $svnFlagsBob http://webserver/repos/xyzzy wc2");
|
|
|
|
# Bob should not be able change the ACLs of the repo.
|
|
# !!! Repoman should really return a 403 here.
|
|
$client->succeed("curl --fail -u bob:fnord -F description=Xyzzy -F readers=alice,bob -F writers=alice -F watchers= -F tardirs= http://webserver/repoman/update/xyzzy")
|
|
=~ /not authorised/ or die;
|
|
|
|
# Give Bob access.
|
|
$client->succeed("curl --fail -u alice:foobar -F description=Xyzzy -F readers=alice,bob -F writers=alice -F watchers= -F tardirs= http://webserver/repoman/update/xyzzy");
|
|
|
|
# So now his checkout should succeed.
|
|
$client->succeed("svn co $svnFlagsBob http://webserver/repos/xyzzy wc2");
|
|
|
|
# Test ViewVC and WebSVN
|
|
$client->succeed("curl --fail -u alice:foobar http://webserver/viewvc/xyzzy");
|
|
$client->succeed("curl --fail -u alice:foobar http://webserver/websvn/xyzzy");
|
|
$client->succeed("curl --fail -u alice:foobar http://webserver/repos-xml/xyzzy");
|
|
|
|
# Stop Apache to gather all the coverage data.
|
|
$webserver->stopJob("httpd");
|
|
'';
|
|
|
|
})
|