commit 5e13c58f78b685f1d9fd451160dfb1adc9c4ce07 · pyrox.dev/nixpkgs

nixos/tests/all-tests.nix

···

       255
       255
        
         miniflux = handleTest ./miniflux.nix {};

     

       256
       256
        
         minio = handleTest ./minio.nix {};

     

       257
       257
        
         misc = handleTest ./misc.nix {};

     

       258
       258
       +
         mod_perl = handleTest ./mod_perl.nix {};

     

       258
       259
        
         moinmoin = handleTest ./moinmoin.nix {};

     

       259
       260
        
         mongodb = handleTest ./mongodb.nix {};

     

       260
       261
        
         moodle = handleTest ./moodle.nix {};

+53

nixos/tests/mod_perl.nix

···

       1
       1
       +
       import ./make-test-python.nix ({ pkgs, lib, ... }: {

     

       2
       2
       +
         name = "mod_perl";

     

       3
       3
       +
       

     

       4
       4
       +
         meta = with pkgs.lib.maintainers; {

     

       5
       5
       +
           maintainers = [ sgo ];

     

       6
       6
       +
         };

     

       7
       7
       +
       

     

       8
       8
       +
         machine = { config, lib, pkgs, ... }: {

     

       9
       9
       +
           services.httpd = {

     

       10
       10
       +
             enable = true;

     

       11
       11
       +
             adminAddr = "admin@localhost";

     

       12
       12
       +
             virtualHosts."modperl" =

     

       13
       13
       +
               let

     

       14
       14
       +
                 inc = pkgs.writeTextDir "ModPerlTest.pm" ''

     

       15
       15
       +
                   package ModPerlTest;

     

       16
       16
       +
                   use strict;

     

       17
       17
       +
                   use Apache2::RequestRec ();

     

       18
       18
       +
                   use Apache2::RequestIO ();

     

       19
       19
       +
                   use Apache2::Const -compile => qw(OK);

     

       20
       20
       +
                   sub handler {

     

       21
       21
       +
                     my $r = shift;

     

       22
       22
       +
                     $r->content_type('text/plain');

     

       23
       23
       +
                     print "Hello mod_perl!\n";

     

       24
       24
       +
                     return Apache2::Const::OK;

     

       25
       25
       +
                   }

     

       26
       26
       +
                   1;

     

       27
       27
       +
                 '';

     

       28
       28
       +
                 startup = pkgs.writeScript "startup.pl" ''

     

       29
       29
       +
                   use lib "${inc}",

     

       30
       30
       +
                     split ":","${with pkgs.perl.pkgs; makeFullPerlPath ([ mod_perl2 ])}";

     

       31
       31
       +
                   1;

     

       32
       32
       +
                 '';

     

       33
       33
       +
               in

     

       34
       34
       +
               {

     

       35
       35
       +
                 extraConfig = ''

     

       36
       36
       +
                   PerlRequire ${startup}

     

       37
       37
       +
                 '';

     

       38
       38
       +
                 locations."/modperl" = {

     

       39
       39
       +
                   extraConfig = ''

     

       40
       40
       +
                     SetHandler perl-script

     

       41
       41
       +
                     PerlResponseHandler ModPerlTest

     

       42
       42
       +
                   '';

     

       43
       43
       +
                 };

     

       44
       44
       +
               };

     

       45
       45
       +
             enablePerl = true;

     

       46
       46
       +
           };

     

       47
       47
       +
         };

     

       48
       48
       +
         testScript = { ... }: ''

     

       49
       49
       +
           machine.wait_for_unit("httpd.service")

     

       50
       50
       +
           response = machine.succeed("curl -fvvv -s http://127.0.0.1:80/modperl")

     

       51
       51
       +
           assert "Hello mod_perl!" in response, "/modperl handler did not respond"

     

       52
       52
       +
         '';

     

       53
       53
       +
       })