+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 2 + 4 * 2;
+
+use LaTeX::TikZ;
+
+my $tikz = Tikz->formatter(
+ format => '%d',
+);
+
+sub check {
+ my ($set, $desc, $exp_decl, $exp) = @_;
+
+ local $Test::Builder::Level = $Test::Builder::Level + 1;
+
+ my ($head, $decl, $body) = eval {
+ $tikz->render(ref $set eq 'ARRAY' ? @$set : $set);
+ };
+ is $@, '', "$desc: no error";
+
+ is $head->[-1], '\usetikzlibrary{patterns}', "$desc: header";
+
+ unless (ref $exp_decl eq 'ARRAY') {
+ $exp_decl = [ split /\n/, $exp_decl ];
+ }
+
+ unless (ref $exp eq 'ARRAY') {
+ $exp = [ split /\n/, $exp ];
+ }
+ unshift @$exp, '\begin{tikzpicture}';
+ push @$exp, '\end{tikzpicture}';
+
+ is_deeply $decl, $exp_decl, "$desc: declarations";
+ is_deeply $body, $exp, "$desc: body";
+}
+
+my $lines = eval {
+ Tikz->raw("foo")
+ ->mod(Tikz->pattern(class => 'Lines'));
+};
+is $@, '', 'creating a line pattern doesn\'t croak';
+
+check $lines, 'a line pattern', <<'DECL', <<'BODY';
+\pgfdeclarepatternformonly{pata}{\pgfqpoint{-0.2pt}{-0.2pt}}{\pgfqpoint{0.3pt}{0.3pt}}{\pgfqpoint{0.2pt}{0.2pt}}{
+\pgfsetlinewidth{0.2pt}
+\pgfpathmoveto{\pgfqpoint{-0.2pt}{0.1pt}}
+\pgfpathlineto{\pgfqpoint{0.3pt}{0.1pt}}
+\pgfusepath{stroke}
+}
+DECL
+\draw [fill,pattern=pata] foo ;
+BODY
+
+my $dots = eval {
+ Tikz->raw("foo")
+ ->mod(Tikz->pattern(class => 'Dots'));
+};
+is $@, '', 'creating a dot pattern doesn\'t croak';
+
+check $dots, 'a dot pattern', <<'DECL', <<'BODY';
+\pgfdeclarepatternformonly{patb}{\pgfqpoint{-0.2pt}{-0.2pt}}{\pgfqpoint{0.3pt}{0.3pt}}{\pgfqpoint{0.2pt}{0.2pt}}{
+\pgfpathcircle{\pgfqpoint{0.1pt}{0.1pt}}{0.2pt}
+\pgfusepath{fill}
+}
+DECL
+\draw [fill,pattern=patb] foo ;
+BODY