path: root/nixos/tests/mod_perl.nix

import ./make-test-python.nix ({ pkgs, lib, ... }: {
  name = "mod_perl";

  meta = with pkgs.lib.maintainers; {
    maintainers = [ sgo ];
  };

  machine = { config, lib, pkgs, ... }: {
    services.httpd = {
      enable = true;
      adminAddr = "admin@localhost";
      virtualHosts."modperl" =
        let
          inc = pkgs.writeTextDir "ModPerlTest.pm" ''
            package ModPerlTest;
            use strict;
            use Apache2::RequestRec ();
            use Apache2::RequestIO ();
            use Apache2::Const -compile => qw(OK);
            sub handler {
              my $r = shift;
              $r->content_type('text/plain');
              print "Hello mod_perl!\n";
              return Apache2::Const::OK;
            }
            1;
          '';
          startup = pkgs.writeScript "startup.pl" ''
            use lib "${inc}",
              split ":","${with pkgs.perl.pkgs; makeFullPerlPath ([ mod_perl2 ])}";
            1;
          '';
        in
        {
          extraConfig = ''
            PerlRequire ${startup}
          '';
          locations."/modperl" = {
            extraConfig = ''
              SetHandler perl-script
              PerlResponseHandler ModPerlTest
            '';
          };
        };
      enablePerl = true;
    };
  };
  testScript = { ... }: ''
    machine.wait_for_unit("httpd.service")
    response = machine.succeed("curl -fvvv -s http://127.0.0.1:80/modperl")
    assert "Hello mod_perl!" in response, "/modperl handler did not respond"
  '';
})