issue_269_1: {
	options = {
        unsafe: true,
    }
	input: {
		f(
			String(x),
			Number(x),
			Boolean(x),

			String(),
			Number(),
			Boolean()
		);
	}
	expect: {
		f(
			x + '', +x, !!x,
			'', 0, false
		);
	}
}

issue_269_dangers: {
	options = {
        unsafe: true,
    }
	input: {
		f(
			String(x, x),
			Number(x, x),
			Boolean(x, x)
		);
	}
	expect: {
		f(String(x, x), Number(x, x), Boolean(x, x));
	}
}

issue_269_in_scope: {
	options = {
        unsafe: true,
    }
	input: {
		var String, Number, Boolean;
		f(
			String(x),
			Number(x, x),
			Boolean(x)
		);
	}
	expect: {
		var String, Number, Boolean;
		f(String(x), Number(x, x), Boolean(x));
	}
}

strings_concat: {
	options = {
        unsafe: true,
    }
	input: {
		f(
			String(x + 'str'),
			String('str' + x)
		);
	}
	expect: {
		f(
			x + 'str',
			'str' + x
		);
	}
}

regexp: {
	options = {
        evaluate: true,
        unsafe: true,
    }
	input: {
		RegExp("foo");
		RegExp("bar", "ig");
		RegExp(foo);
		RegExp("bar", ig);
		RegExp("should", "fail");
	}
	expect: {
		/foo/;
		/bar/ig;
		RegExp(foo);
		RegExp("bar", ig);
		RegExp("should", "fail");
	}
	expect_warnings: [
		'WARN: Error converting RegExp("should","fail") [test/compress/issue-269.js:5,2]',
	]
}
f5f1a81f3f00a971404cf64b59d61312c0be08c5'>tree</a><a href='/guix/commit/tests/pack.scm?id=f5f1a81f3f00a971404cf64b59d61312c0be08c5'>commit</a><a href='/guix/diff/tests/pack.scm?id=f5f1a81f3f00a971404cf64b59d61312c0be08c5'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/pack.scm'>
<input type='hidden' name='id' value='f5f1a81f3f00a971404cf64b59d61312c0be08c5'/><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=f5f1a81f3f00a971404cf64b59d61312c0be08c5'>root</a>/<a href='/guix/log/tests?id=f5f1a81f3f00a971404cf64b59d61312c0be08c5'>tests</a>/<a href='/guix/log/tests/pack.scm?id=f5f1a81f3f00a971404cf64b59d61312c0be08c5'>pack.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/tests/pack.scm?id=f5f1a81f3f00a971404cf64b59d61312c0be08c5&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-07-18 02:02:34 -0400'>2021-07-18</span></td><td><a href='/guix/commit/tests/pack.scm?id=aeded14b8342c1e72afd014a1bc121770f8c3a1c'>pack: Allow embedding custom control files in deb packs.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/pack.scm (self-contained-tarball/builder)
[extra-options]: New argument.
(self-contained-tarball, squashfs-image, docker-image)
(debian-archive): Likewise.  Remove two TODO comments.  Document
EXTRA-OPTIONS.  Use the custom control files when provided.
(%deb-format-options): New variable.
(show-deb-format-options, show-deb-format-options/detailed): New procedures.
(%options): Register new options.
(show-help): Augment with new usage.
(guix-pack): Validate and propagate new argument values.
* doc/guix.texi (Invoking guix pack)[deb]: Document how to list advanced
options.  Add an example.
* tests/pack.scm (deb archive...): Provide extra-options to the debian-archive
procedure, and validate that the provided files are embedded in the pack.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-06-29 14:53:21 -0400'>2021-06-29</span></td><td><a href='/guix/commit/tests/pack.scm?id=82daab42811a2e3c7684ebdf12af75ff0fa67b99'>pack: Add support for the deb format.</a><span class='msg-avail'>...<span class='msg-tooltip'>* .dir-locals.el (scheme-mode)[gexp-&gt;derivation]: Define indentation rule.
* guix/scripts/pack.scm (debian-archive): New procedure.
(%formats): Register the new deb format.
(show-formats): Add it to the usage string.
* tests/pack.scm (%ar-bootstrap): New variable.
(deb archive with symlinks): New test.
* doc/guix.texi (Invoking guix pack): Document it.
* NEWS: Add news entry.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-06-29 14:53:21 -0400'>2021-06-29</span></td><td><a href='/guix/commit/tests/pack.scm?id=8108c266dc2fbc70602b2aa5c6887bf17bed16e8'>tests: pack: Fix compressor extension.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/pack.scm (%gzip-compressor): Add the missing leading period to the
gzip compressor file extension.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2020-07-20 23:25:09 +0200'>2020-07-20</span></td><td><a href='/guix/commit/tests/pack.scm?id=b3802495f607fd5e17c5acf0be2ee014036e2464'>pack: Build the store database under a UTF-8 locale.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/42389&gt;.
Reported by branjam4@gmail.com.

* guix/scripts/pack.scm (store-database)[build]: Add calls to 'setenv'
and 'setlocale'.
* tests/pack.scm ("self-contained-tarball + localstatedir, UTF-8 file
names"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-07-20 23:25:09 +0200'>2020-07-20</span></td><td><a href='/guix/commit/tests/pack.scm?id=181e0dddd68dc58190bd4831ea5d1ecbd420d83a'>pack: 'self-contained-tarball' runs derivation in a UTF-8local.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/pack.scm (self-contained-tarball)
[set-utf8-locale]: New variable.
[build]: Use it.
* tests/pack.scm ("self-contained-tarball"): Use a &lt;profile&gt; record
instead of 'profile-derivation'.
</span></span></td><td>Ludovic Courtès</td></tr>