Enforce the non-negativity of some attributes with anonymous types

[perl/modules/LaTeX-TikZ.git] / t / 12-geo.t

diff --git a/t/12-geo.t b/t/12-geo.t
index 7ce5d643a2414d94b3d43658c4c37614ea5c1c07..f36d00273163957417ea3bd1b3923e853d5560ba 100644 (file)
--- a/t/12-geo.t
+++ b/t/12-geo.t
@@ -206,7 +206,7 @@ RES
 eval {
  Tikz->circle($o => -1);
 };
-like $@, qr/isn't a non-negative real number/,
+like $@, failed_valid('__ANON__'),
                               'creating a circle with a negative radius croaks';
 
 # Arc