nixos/tests/mod_perl.nix

   1 import ./make-test-python.nix (
   2   { pkgs, lib, ... }:
   3   {
   4     name = "mod_perl";
   5
   6     meta = with pkgs.lib.maintainers; {
   7       maintainers = [ sgo ];
   8     };
   9
  10     nodes.machine =
  11       {
  12         config,
  13         lib,
  14         pkgs,
  15         ...
  16       }:
  17       {
  18         services.httpd = {
  19           enable = true;
  20           adminAddr = "admin@localhost";
  21           virtualHosts."modperl" =
  22             let
  23               inc = pkgs.writeTextDir "ModPerlTest.pm" ''
  24                 package ModPerlTest;
  25                 use strict;
  26                 use Apache2::RequestRec ();
  27                 use Apache2::RequestIO ();
  28                 use Apache2::Const -compile => qw(OK);
  29                 sub handler {
  30                   my $r = shift;
  31                   $r->content_type('text/plain');
  32                   print "Hello mod_perl!\n";
  33                   return Apache2::Const::OK;
  34                 }
  35                 1;
  36               '';
  37               startup = pkgs.writeScript "startup.pl" ''
  38                 use lib "${inc}",
  39                   split ":","${with pkgs.perl.pkgs; makeFullPerlPath ([ mod_perl2 ])}";
  40                 1;
  41               '';
  42             in
  43             {
  44               extraConfig = ''
  45                 PerlRequire ${startup}
  46               '';
  47               locations."/modperl" = {
  48                 extraConfig = ''
  49                   SetHandler perl-script
  50                   PerlResponseHandler ModPerlTest
  51                 '';
  52               };
  53             };
  54           enablePerl = true;
  55         };
  56       };
  57     testScript =
  58       { ... }:
  59       ''
  60         machine.wait_for_unit("httpd.service")
  61         response = machine.succeed("curl -fvvv -s http://127.0.0.1:80/modperl")
  62         assert "Hello mod_perl!" in response, "/modperl handler did not respond"
  63       '';
  64   }
  65 )