Switch to qw<>

[perl/modules/LaTeX-TikZ.git] / t / 21-layer.t

diff --git a/t/21-layer.t b/t/21-layer.t
index a4990b50e41a81e8631e955a82bd2a78815a8ee7..97e7bc83c9c889a0bb5c2d3799634f1cdc77d436 100644 (file)
--- a/t/21-layer.t
+++ b/t/21-layer.t
@@ -72,7 +72,7 @@ is $@, '', 'creating another layered raw set doesn\'t croak';
 my $seq = Tikz->seq($foo, $bar);
 
 check_layers $seq, 'a sequence of two layered raw sets',
-             <<'RES', [ qw/middle top/ ];
+             <<'RES', [ qw<middle top> ];
 \begin{pgfonlayer}{middle}
 \draw foo ;
 \end{pgfonlayer}
@@ -102,7 +102,7 @@ my $res = eval {
 is $@,     '',     'calling an empty ->layer onto a sequence doesn\'t croak';
 is "$res", "$seq", 'empty ->layer returns the object itself';
 
-check_layers $seq, 'a layered sequence', <<'RES', [ qw/bottom middle top/ ];
+check_layers $seq, 'a layered sequence', <<'RES', [ qw<bottom middle top> ];
 \begin{pgfonlayer}{bottom}
 \begin{pgfonlayer}{middle}
 \draw foo ;
@@ -120,7 +120,7 @@ my $red = Tikz->color('red');
 $seq->mod($red);
 
 check_layers $seq, 'mods folding with layers 1',
-             <<'RES', [ qw/bottom middle top/ ];
+             <<'RES', [ qw<bottom middle top> ];
 \begin{pgfonlayer}{bottom}
 \begin{scope} [color=red]
 \begin{pgfonlayer}{middle}
@@ -137,7 +137,7 @@ RES
 $baz->mod($top);
 
 check_layers $seq, 'mods folding with layers 2',
-             <<'RES', [ qw/bottom middle top/ ];
+             <<'RES', [ qw<bottom middle top> ];
 \begin{pgfonlayer}{bottom}
 \begin{scope} [color=red]
 \begin{pgfonlayer}{middle}
@@ -156,7 +156,7 @@ RES
 my $seq2 = Tikz->seq($bar, $baz, $foo)
                ->mod($red);
 
-check_layers $seq2, 'mods folding with layers 3', <<'RES', [ qw/middle top/ ];
+check_layers $seq2, 'mods folding with layers 3', <<'RES', [ qw<middle top> ];
 \begin{scope} [color=red]
 \begin{pgfonlayer}{top}
 \begin{scope} [color=red]
@@ -186,7 +186,7 @@ RES
 my $seq3 = Tikz->seq($seq2, $bar)
                ->mod($red);
 
-check_layers $seq3, 'mods folding with layers 5', <<'RES', [ qw/middle top/ ];
+check_layers $seq3, 'mods folding with layers 5', <<'RES', [ qw<middle top> ];
 \begin{scope} [color=red]
 \draw qux ;
 \begin{pgfonlayer}{middle}
@@ -201,7 +201,7 @@ RES
 $seq3 = Tikz->seq($bar, $seq2)
             ->mod($red);
 
-check_layers $seq3, 'mods folding with layers 6', <<'RES', [ qw/middle top/ ];
+check_layers $seq3, 'mods folding with layers 6', <<'RES', [ qw<middle top> ];
 \begin{scope} [color=red]
 \begin{pgfonlayer}{top}
 \draw [color=red] bar ;