[master] confirm excess parentheses cannot be elided (#36)

t/002macro/019extra-parens.t

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+$ENV{"DALE_TEST_ARGS"} ||= "";
+my $test_dir = $ENV{"DALE_TEST_DIR"} || ".";
+$ENV{PATH} .= ":.";
+
+use Data::Dumper;
+use Test::More tests => 3;
+
+my @res = `dalec $ENV{"DALE_TEST_ARGS"} $test_dir/t/src/extra-parens.dt -o extra-parens `;
+is_deeply(\@res, [], 'No compilation errors');
+@res = `./extra-parens`;
+is($?, 0, 'Program executed successfully');
+
+chomp for @res;
+
+is_deeply(\@res, [ 'extra parens'
+],
+        'Got correct results');
+
+`rm extra-parens`;
+
+1;

t/src/extra-parens.dt

@@ -0,0 +1,10 @@
+(import macros)
+
+; For confirming that a macro may return a form like ((second)), where
+; (second) expands in turn to some other form.
+
+(using-namespace std.macros
+  (def first (macro intern (void) (qq (second))))
+  (def second (macro intern (void) (mnfv mc "third")))
+  (def third (fn intern int (void) (printf "extra parens\n")))
+  (def main (fn extern-c int (void) (first) 0)))