X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=t%2F21-layer.t;h=97e7bc83c9c889a0bb5c2d3799634f1cdc77d436;hp=a4990b50e41a81e8631e955a82bd2a78815a8ee7;hb=65b895926935d98e3bd34b82a6e8b4e4e6b2f09c;hpb=93cd22e1b7e23ed939e79ec70c4baa5c3ecc158a

diff --git a/t/21-layer.t b/t/21-layer.t
index a4990b5..97e7bc8 100644
--- 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 ;