/**
 * There was an incorrect sort behaviour documented in issue #143:
 * (x = f(…)) <= x → x >= (x = f(…))
 *
 * For example, let the equation be:
 * (a = parseInt('100')) <= a
 *
 * If a was an integer and has the value of 99,
 * (a = parseInt('100')) <= a → 100 <= 100 → true
 *
 * When transformed incorrectly:
 * a >= (a = parseInt('100')) → 99 >= 100 → false
 */

tranformation_sort_order_equal: {
    options = {
        comparisons: true,
    };

    input: { (a = parseInt('100')) == a }
    expect: { (a = parseInt('100')) == a }
}

tranformation_sort_order_unequal: {
    options = {
        comparisons: true,
    };

    input: { (a = parseInt('100')) != a }
    expect: { (a = parseInt('100')) != a }
}

tranformation_sort_order_lesser_or_equal: {
    options = {
        comparisons: true,
    };

    input: { (a = parseInt('100')) <= a }
    expect: { (a = parseInt('100')) <= a }
}
tranformation_sort_order_greater_or_equal: {
    options = {
        comparisons: true,
    };

    input: { (a = parseInt('100')) >= a }
    expect: { (a = parseInt('100')) >= a }
}y</a><a href='/guix/refs/?id=9042a304165b3b045ffe8e5f4b7e0bd4f311457d'>refs</a><a class='active' href='/guix/log/gnu/tests.scm'>log</a><a href='/guix/tree/gnu/tests.scm?id=9042a304165b3b045ffe8e5f4b7e0bd4f311457d'>tree</a><a href='/guix/commit/gnu/tests.scm?id=9042a304165b3b045ffe8e5f4b7e0bd4f311457d'>commit</a><a href='/guix/diff/gnu/tests.scm?id=9042a304165b3b045ffe8e5f4b7e0bd4f311457d'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/tests.scm'>
<input type='hidden' name='id' value='9042a304165b3b045ffe8e5f4b7e0bd4f311457d'/><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=9042a304165b3b045ffe8e5f4b7e0bd4f311457d'>root</a>/<a href='/guix/log/gnu?id=9042a304165b3b045ffe8e5f4b7e0bd4f311457d'>gnu</a>/<a href='/guix/log/gnu/tests.scm?id=9042a304165b3b045ffe8e5f4b7e0bd4f311457d'>tests.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.scm?id=9042a304165b3b045ffe8e5f4b7e0bd4f311457d&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-02-19 20:10:08 +0100'>2021-02-19</span></td><td><a href='/guix/commit/gnu/tests.scm?id=f57b7cea748c1e8284373811c13398d9f69aec89'>tests: Export %simple-os.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/tests.scm (%simple-os): Export it.
</span></span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-07-25 19:11:36 +0200'>2020-07-25</span></td><td><a href='/guix/commit/gnu/tests.scm?id=a5e2fc73760a2ae023f2e56bdbf8025971f90e64'>utils: Move &lt;location&gt; and '&amp;error-location' to (guix diagnostics).</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/utils.scm (&lt;location&gt;, source-properties-&gt;location)
(location-&gt;source-properties, &amp;error-location): Move to...
* guix/diagnostics.scm: ... here.
* gnu.scm: Adjust imports accordingly.
* gnu/machine.scm: Likewise.
* gnu/system.scm: Likewise.
* gnu/tests.scm: Likewise.
* guix/inferior.scm: Likewise.
* tests/channels.scm: Likewise.
* tests/packages.scm: Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-03-05 16:33:37 +0100'>2020-03-05</span></td><td><a href='/guix/commit/gnu/tests.scm?id=c0b726c2112e0e670dc134583b376541c0a3789a'>tests: Add &lt;system-test&gt; gexp compiler.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/tests.scm (compile-system-test): New gexp compiler.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-01-23 11:26:55 +0100'>2020-01-23</span></td><td><a href='/guix/commit/gnu/tests.scm?id=f79313b3871ebe204c7b29fdb823666af06f48ff'>tests: Fix typo in comment.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/tests.scm: Add missing word in commentary.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-12-18 22:36:37 +0100'>2019-12-18</span></td><td><a href='/guix/commit/gnu/tests.scm?id=ab7010af1f1077c056529769a53a380147c3933f'>gexp: Allow character literals in GEXP-&gt;SEXP.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/38628&gt;.

* tests/gexp.scm ("lower-gexp, character literal"): New test.
* guix/gexp.scm (gexp-&gt;sexp)[self-quoting?]: Add CHAR? to the tested types.
* guix/repl.scm (self-quoting?): Likewise.
* gnu/tests.scm (marionette-shepherd-service)[self-quoting?]: Likewise.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2019-09-23 23:41:19 +0200'>2019-09-23</span></td><td><a href='/guix/commit/gnu/tests.scm?id=7abd5997f41fec38ea1daa9099a9693062f10dbc'>repl, marionette: 'self-quoting?' matches keywords.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/repl.scm (self-quoting?): Add 'keyword?' and 'array?'; remove
'vector?' and 'bytevector?'.
* gnu/tests.scm (marionette-shepherd-service) &lt;start&gt;: Likewise.
&lt;modules&gt;: Remove (rnrs bytevector).
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-03-25 23:37:06 +0100'>2019-03-25</span></td><td><a href='/guix/commit/gnu/tests.scm?id=cf848cc0a17a3a58d600116896f6e7abfb0440d4'>accounts: Add default value for the 'home-directory' field of &lt;user-account&gt;.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/accounts.scm (&lt;user-account&gt;)[home-directory]: Mark as
thunked and add a default value.
(default-home-directory): New procedure.
* doc/guix.texi (User Accounts): Remove 'home-directory' from example.
* gnu/system/examples/bare-bones.tmpl: Likewise.
* gnu/system/examples/beaglebone-black.tmpl: Likewise.
* gnu/system/examples/desktop.tmpl: Likewise.
* gnu/system/examples/docker-image.tmpl: Likewise.
* gnu/system/examples/lightweight-desktop.tmpl: Likewise.
* gnu/system/install.scm (installation-os): Likewise.
* gnu/tests.scm (%simple-os): Likewise.
* gnu/tests/install.scm (%minimal-os, %minimal-os-on-vda):
(%separate-home-os, %encrypted-root-os, %btrfs-root-os): Likewise.
* tests/accounts.scm ("allocate-passwd")
("allocate-passwd with previous state"): Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>