+watch { cast @a, $wiz } { }, 'cast';
+
+my $b = watch { $a[2] } { }, 'assign element to';
+is $b, $n[2], 'array: assign element to correctly';
+
+my @b = watch { @a } { len => 1 }, 'assign to';
+is_deeply \@b, \@n, 'array: assign to correctly';
+
+$b = watch { "X@{a}Y" } { len => 1 }, 'interpolate';
+is $b, "X@{n}Y", 'array: interpolate correctly';
+
+$b = watch { \@a } { }, 'reference';
+
+@b = watch { @a[2 .. 4] } { }, 'slice';
+is_deeply \@b, [ @n[2 .. 4] ], 'array: slice correctly';