Index: t/op/string_interpolation.t
===================================================================
--- t/op/string_interpolation.t	(revision 574)
+++ t/op/string_interpolation.t	(working copy)
@@ -11,7 +11,7 @@
 
 =cut
 
-plan 5;
+plan 7;
 
 my $world = "World";
 
@@ -23,4 +23,7 @@
 
 sub list_count (*@args) { +@args }
 my @a = (1,2,3);
-ok(list_count("@a") == 1, 'quoted interpolation gets string context');
+ok(list_count("@a[]") == 1, 'quoted interpolation gets string context');
+
+todo_is("@a", '@a', "array without empty square brackets doesn't interpolate");
+todo_is("@a[]", '1 2 3', 'array with empty square brackets interpolates');