Test that proves that Choice can be embedded in Combination (#1801)

TODO: display fails

lemonldap-ng-portal/MANIFEST

@@ -408,6 +408,7 @@ t/01-CSP-and-CORS-headers.t
 t/01-pdata.t
 t/02-Password-Demo.t
 t/03-XSS-protection.t
+t/04-language-selection.t
 t/19-Auth-Null.t
 t/20-Auth-and-password-DBI-dynamic-hash.t
 t/20-Auth-and-password-DBI.t
@@ -475,6 +476,7 @@ t/35-REST-sessions-with-REST-server.t
 t/35-SOAP-config-backend.t
 t/35-SOAP-sessions-with-SOAP-server.t
 t/36-Combination-Kerberos-or-Demo.t
+t/36-Combination-with-Choice.t
 t/36-Combination-with-over.t
 t/36-Combination-with-token.t
 t/36-Combination.t

lemonldap-ng-portal/t/36-Combination-with-Choice.t

@@ -0,0 +1,118 @@
+use Test::More;
+use strict;
+use IO::String;
+
+require 't/test-lib.pm';
+
+my $res;
+my $maintests = 0;
+my $client;
+
+eval { unlink 't/userdb.db' };
+
+SKIP: {
+    eval { require DBI; require DBD::SQLite; };
+    if ($@) {
+        skip 'DBD::SQLite not found', $maintests;
+    }
+    my $dbh = DBI->connect("dbi:SQLite:dbname=t/userdb.db");
+    $dbh->do('CREATE TABLE users (user text,password text,name text)');
+    $dbh->do("INSERT INTO users VALUES ('dvador','dvador','Test user 1')");
+    $dbh->do("INSERT INTO users VALUES ('rtyler','rtyler','Test user 1')");
+
+    $client = iniCmb('[Dm] or [Ch]');
+    expectCookie( try('dwho') );
+    expectCookie( try( 'dvador', 'sql' ) );
+
+    $client = iniCmb('[Dm] and [Ch]');
+    expectCookie( try( 'rtyler', 'sql' ) );
+    expectCookie( try( 'dwho',   'demo' ) );
+    expectReject( try( 'dwho',   'sql' ) );
+
+    $client = iniCmb('if($env->{HTTP_X} eq "dwho") then [Dm] else [Ch]');
+    expectCookie( try('dwho') );
+    expectCookie( try( 'dvador', 'sql' ) );
+
+    $client = iniCmb(
+'if($env->{HTTP_X} eq "rtyler") then [Dm] and [Ch] else if($env->{HTTP_X} eq "dvador") then [Ch] else [Ch]'
+    );
+    expectCookie( try( 'rtyler', 'sql' ) );
+    expectCookie( try( 'dvador', 'sql' ) );
+    expectCookie( try( 'dwho',   'demo' ) );
+    expectReject( try( 'dwho',   'sql' ) );
+}
+count($maintests);
+clean_sessions();
+eval { unlink 't/userdb.db' };
+done_testing( count() );
+
+sub try {
+    my $user = shift;
+    my $s    = "user=$user&password=$user";
+    $s .= "&test=$_[0]" if (@_);
+    my $res;
+    ok(
+        $res = $client->_post(
+            '/', IO::String->new($s),
+            length => length($s),
+            custom => { HTTP_X => $user }
+        ),
+        " Try to connect with login $user"
+    );
+    count(1);
+    return $res;
+}
+
+sub iniCmb {
+    my $expr = shift;
+    &Lemonldap::NG::Handler::Main::cfgNum( 0, 0 );
+    if (
+        my $res = LLNG::Manager::Test->new( {
+                ini => {
+                    logLevel       => 'error',
+                    useSafeJail    => 1,
+                    authentication => 'Combination',
+                    userDB         => 'Same',
+
+                    combination => $expr,
+                    combModules => {
+                        Dm => {
+                            for  => 0,
+                            type => 'Demo',
+                        },
+                        Ch => {
+                            for  => 0,
+                            type => 'Choice',
+                        },
+                    },
+
+                    dbiAuthChain        => 'dbi:SQLite:dbname=t/userdb.db',
+                    dbiAuthUser         => '',
+                    dbiAuthPassword     => '',
+                    dbiAuthTable        => 'users',
+                    dbiAuthLoginCol     => 'user',
+                    dbiAuthPasswordCol  => 'password',
+                    dbiAuthPasswordHash => '',
+                    dbiExportedVars     => {},
+                    demoExportedVars    => {},
+
+                    authChoiceParam   => 'test',
+                    authChoiceModules => {
+                        sql   => 'DBI;DBI;DBI',
+                        slave => 'Slave;DBI;DBI',
+                        demo  => 'Demo;Demo;Demo',
+                    },
+                    slaveUserHeader   => 'My-Test',
+                    slaveExportedVars => {
+                        name => 'Name',
+                    }
+                }
+            }
+        )
+      )
+    {
+        pass(qq'Expression loaded: "$expr"');
+        count(1);
+        return $res;
+    }
+}