More layer mod folding tests

diff --git a/t/21-layer.t b/t/21-layer.t
index 6aaafd6b5c67b415e1944f3ad974ba196a704d8a..1087d5cae03b2dca912628860851f1fcedde9bea 100644 (file)
--- a/t/21-layer.t
+++ b/t/21-layer.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 9 + 3 * 6;
+use Test::More tests => 9 + 3 * 10;
 
 use LaTeX::TikZ;
 
@@ -174,3 +174,57 @@ check $seq2, 'mods folding with layers 3', <<'RES', [ qw/middle top/ ];
 \end{scope}
 RES
 
+my $qux = Tikz->raw('qux');
+$seq2 = Tikz->seq($qux, $foo)
+            ->mod($red);
+
+check $seq2, 'mods folding with layers 4', <<'RES', [ 'middle' ];
+\begin{scope} [color=red]
+\draw qux ;
+\begin{pgfonlayer}{middle}
+\draw [color=red] foo ;
+\end{pgfonlayer}
+\end{scope}
+RES
+
+my $seq3 = Tikz->seq($seq2, $bar)
+               ->mod($red);
+
+check $seq3, 'mods folding with layers 5', <<'RES', [ qw/middle top/ ];
+\begin{scope} [color=red]
+\draw qux ;
+\begin{pgfonlayer}{middle}
+\draw [color=red] foo ;
+\end{pgfonlayer}
+\begin{pgfonlayer}{top}
+\draw [color=red] bar ;
+\end{pgfonlayer}
+\end{scope}
+RES
+
+$seq3 = Tikz->seq($bar, $seq2)
+            ->mod($red);
+
+check $seq3, 'mods folding with layers 6', <<'RES', [ qw/middle top/ ];
+\begin{scope} [color=red]
+\begin{pgfonlayer}{top}
+\draw [color=red] bar ;
+\end{pgfonlayer}
+\draw qux ;
+\begin{pgfonlayer}{middle}
+\draw [color=red] foo ;
+\end{pgfonlayer}
+\end{scope}
+RES
+
+my $blue = Tikz->color('blue');
+$qux->mod($blue);
+
+check $seq2, 'mods folding with layers 7', <<'RES', [ 'middle' ];
+\begin{scope} [color=red]
+\draw [color=blue] qux ;
+\begin{pgfonlayer}{middle}
+\draw [color=red] foo ;
+\end{pgfonlayer}
+\end{scope}
+RES