issue_1639_1: {
    options = {
        booleans: true,
        collapse_vars: true,
        conditionals: true,
        evaluate: true,
        join_vars: true,
        loops: true,
        sequences: true,
        side_effects: true,
    }
    input: {
        var a = 100, b = 10;
        var L1 = 5;
        while (--L1 > 0) {
            if ((--b), false) {
                if (b) {
                    var ignore = 0;
                }
            }
        }
        console.log(a, b);
    }
    expect: {
        for (var a = 100, b = 10, L1 = 5; --L1 > 0;)
            if (--b, 0) var ignore = 0;
        console.log(a, b);
    }
    expect_stdout: "100 6"
}

issue_1639_2: {
    options = {
        booleans: true,
        collapse_vars: true,
        conditionals: true,
        evaluate: true,
        join_vars: true,
        sequences: true,
        side_effects: true,
    }
    input: {
        var a = 100, b = 10;
        function f19() {
            if (++a, false)
                if (a)
                    if (++a);
        }
        f19();
        console.log(a, b);
    }
    expect: {
        var a = 100, b = 10;
        function f19() {
            ++a, 1;
        }
        f19(),
        console.log(a, b);
    }
    expect_stdout: "101 10"
}

issue_1639_3: {
    options = {
        booleans: true,
        collapse_vars: true,
        conditionals: true,
        evaluate: true,
        sequences: true,
        side_effects: true,
    }
    input: {
        var a = 100, b = 10;
        a++ && false && a ? 0 : 0;
        console.log(a, b);
    }
    expect: {
        var a = 100, b = 10;
        a++,
        console.log(a, b);
    }
    expect_stdout: "101 10"
}
<select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=4e01bc440a4f20bf1597db2ed852e541da45efce'>root</a>/<a href='/guix/log/gnu?id=4e01bc440a4f20bf1597db2ed852e541da45efce'>gnu</a>/<a href='/guix/log/gnu/tests?id=4e01bc440a4f20bf1597db2ed852e541da45efce'>tests</a>/<a href='/guix/log/gnu/tests/docker.scm?id=4e01bc440a4f20bf1597db2ed852e541da45efce'>docker.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/tests/docker.scm?id=4e01bc440a4f20bf1597db2ed852e541da45efce&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-11-06 16:16:02 +0100'>2020-11-06</span></td><td><a href='/guix/commit/gnu/tests/docker.scm?id=3c69e81d85e337ccceb2248c497bd1732a63f7ec'>tests: docker-system: Increase VM memory.</a><span class='msg-avail'>...<span class='msg-tooltip'>The test was failing with ENOSPC.

* gnu/tests/docker.scm (run-docker-system-test)[vm]: Increase 'memory-size'.
(%test-docker-system): Change 'locale-libcs' for the OS passed to
'system-docker-image'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-07-17 22:13:58 +0200'>2020-07-17</span></td><td><a href='/guix/commit/gnu/tests/docker.scm?id=c9ea5dfdbe1c4758cfbd7b4b665219d4b8a4bad6'>tests: docker-system: Use guile-3.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>This helps find the (json) module in the virtual machine.

* gnu/tests/docker.scm (build-tarball&amp;run-docker-test,
run-docker-system-test): Replace guile-2.2 with guile-3.0.
</span></span></td><td>Jakub Kądziołka</td></tr>
<tr><td><span title='2020-03-09 23:46:36 +0100'>2020-03-09</span></td><td><a href='/guix/commit/gnu/tests/docker.scm?id=0e42a1643ea5a0cc4ddb81687c608ba407fdcdbb'>tests: docker-system: Increase memory requirement.</a><span class='msg-avail'>...<span class='msg-tooltip'>The system image would no longer fit in memory, starting from commit
8c7eb58453870f380a077c7cfd8dafa97bb8e13f.

* gnu/tests/docker.scm (run-docker-system-test): Set 'memory-size' to 3500.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-11-09 23:04:14 +0100'>2019-11-09</span></td><td><a href='/guix/commit/gnu/tests/docker.scm?id=f0034427f50be1bcab137d9877c3586e4be4d83e'>tests: Update references to the now-deprecated 'guile-json' variable.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/tests/docker.scm (build-tarball&amp;run-docker-test): Refer to
'guile-json-3' instead of 'guile-json'.
* gnu/tests/singularity.scm (build-tarball&amp;run-singularity-test):
Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-08-27 12:20:44 +0200'>2019-08-27</span></td><td><a href='/guix/commit/gnu/tests/docker.scm?id=7979a287f8eb84cbbfa44629951572408939a756'>pack: Create /tmp in Docker images.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/37161&gt;.

* guix/scripts/pack.scm (docker-image)[build]: Add a 'directory' entry
for "/tmp" to DIRECTIVES.
* tests/pack.scm ("docker-image + localstatedir"): Test the presence of /tmp.
* gnu/tests/docker.scm (run-docker-test)["Load docker image and run
it"]: Test the presence and permission bits of "/tmp".
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-07-04 18:05:02 +0200'>2019-07-04</span></td><td><a href='/guix/commit/gnu/tests/docker.scm?id=b9fcf0c82a14df48c7c6f36a08dbdcd3184fcbf8'>pack: 'docker' backend records the profile's search paths.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/docker.scm (config): Add #:environment parameter and honor it.
(build-docker-image): Likewise, and pass it to 'config'.
* guix/scripts/pack.scm (docker-image): Import (guix profiles) and (guix
search-paths).  Call 'profile-search-paths' and pass #:environment to
'build-docker-image'.
* gnu/tests/docker.scm (run-docker-test)["Load docker image and run it"]:
Add example that expects (json) to be available.
* gnu/tests/docker.scm (build-tarball&amp;run-docker-test): Replace
%BOOTSTRAP-GUILE by GUILE-2.2 and GUILE-JSON in the environment.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-06-07 09:57:19 +0200'>2019-06-07</span></td><td><a href='/guix/commit/gnu/tests/docker.scm?id=a0f352b30f4869a7af7017b8a5011ac7602dd115'>pack: Add '--entry-point'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/pack.scm (self-contained-tarball): Add #:entry-point and
warn when it's true.
(squashfs-image): Add #:entry-point and honor it.
(docker-image): Add #:entry-point and honor it.
(%options, show-help): Add '--entry-point'.
(guix-pack): Honor '--entry-point' and pass #:entry-point to BUILD-IMAGE.
* gnu/tests/docker.scm (run-docker-test): Test 'docker run' with the
default entry point.
(build-tarball&amp;run-docker-test): Pass #:entry-point to 'docker-image'.
* doc/guix.texi (Invoking guix pack): Document it.
* gnu/tests/singularity.scm (run-singularity-test)["singularity run"]:
New test.
(build-tarball&amp;run-singularity-test): Pass #:entry-point to
'squashfs-image'.
</span></span></td><td>Ludovic Courtès</td></tr>