Mailing List Archive

commit 35e5fe2d49c3338d6994350ed5c2329c357aec04
Author: David Christensen <david@endpoint.com>
Date: Tue Jan 17 16:37:28 2017 -0600

Update test to be more verbose

t/robot_ua.t | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/t/robot_ua.t b/t/robot_ua.t
index e5e1de9..b6c3582 100644
--- a/t/robot_ua.t
+++ b/t/robot_ua.t
@@ -50,11 +50,11 @@ ok( $Global::NotRobotUA, "NotRobotUA regex exists" );

# check various hard-coded UA strings that should/shouldn't get flagged as robots
for my $ua (@robot_uas) {
- is(check_is_robot($ua), 1);
+ ok(check_is_robot($ua), "flagged as robot: $ua");
}

for my $ua (@not_robot_uas) {
- is(check_is_robot($ua), 0);
+ ok(!check_is_robot($ua), "not flagged as robot: $ua");
}

done_testing();

_______________________________________________
interchange-cvs mailing list
interchange-cvs@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs