[perl-Champlain] More debug in the test messages for test_event()



commit cd31aceabf8fee9ecc3b9df5649ca5bf8fb09c5b
Author: Emmanuel Rodriguez <emmanuel rodriguez gmail com>
Date:   Tue May 18 22:01:45 2010 +0200

    More debug in the test messages for test_event()

 t/ChamplainView.t |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)
---
diff --git a/t/ChamplainView.t b/t/ChamplainView.t
index c1ae46c..2b57989 100644
--- a/t/ChamplainView.t
+++ b/t/ChamplainView.t
@@ -264,12 +264,12 @@ sub test_event {
 	is($event->y, $middle, "Fake event is in the middle (y)");
 
 	my ($latitude, $longitude) = $view->get_coords_from_event($event);
-	ok($latitude >= -2.0 && $latitude <= 2.0, "get_coords_from_event() latitude");
-	ok($longitude >= -2.0 && $longitude <= 2.0, "get_coords_from_event() longitude");
+	ok($latitude >= -2.0 && $latitude <= 2.0, "get_coords_from_event() latitude ($latitude)");
+	ok($longitude >= -2.0 && $longitude <= 2.0, "get_coords_from_event() longitude ($longitude)");
 
 	($latitude, $longitude) = $view->get_coords_at($event->x, $event->y);
-	ok($latitude >= -2.0 && $latitude <= 2.0, "get_coords_at() latitude");
-	ok($longitude >= -2.0 && $longitude <= 2.0, "get_coords_at() longitude");
+	ok($latitude >= -2.0 && $latitude <= 2.0, "get_coords_at() latitude ($latitude)");
+	ok($longitude >= -2.0 && $longitude <= 2.0, "get_coords_at() longitude ($longitude)");
 }
 
 



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]