X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=t%2F10-set.t;h=4ddac3c9d670ff68b9dc81a3dde2daaea4411531;hp=190846c6972956359b799d9f0db65f28fcf7b206;hb=d9b3236d7adf9b87cebe8f956539469d42b9aef9;hpb=37b2cca5547d02b2a751a26f9949d492b5002c2e diff --git a/t/10-set.t b/t/10-set.t index 190846c..4ddac3c 100644 --- a/t/10-set.t +++ b/t/10-set.t @@ -106,12 +106,10 @@ sub failed_valid { qr/Validation failed for '\Q$tc\E'/; } -my $err_path = qr/does not pass the type constraint because: Validation failed for 'Maybe\[ArrayRef\[LaTeX::TikZ::Set::Path::Elements\]\]/; - eval { Tikz->path($foo, $seq2); }; -like $@, failed_valid('Maybe[ArrayRef[LaTeX::TikZ::Set::Path::Elements]]'), +like $@, failed_valid('Maybe[ArrayRef[LaTeX::TikZ::Set::Op]]'), 'creating a path that contains a sequence croaks'; my $path = eval { @@ -136,5 +134,5 @@ RES eval { $path->add($seq2); }; -like $@, failed_valid('LaTeX::TikZ::Set::Path::Elements'), +like $@, failed_valid('LaTeX::TikZ::Set::Op'), 'adding a sequence to a path croaks';