===================================================================
RCS file: /cvs/HOPE/Net-OpenAMD/t/network_tests.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- HOPE/Net-OpenAMD/t/network_tests.t	2010/06/26 17:47:01	1.2
+++ HOPE/Net-OpenAMD/t/network_tests.t	2010/06/26 17:50:40	1.3
@@ -1,7 +1,7 @@
 #!perl
 package NetworkTests;
 
-# $AFresh1: network_tests.t,v 1.1 2010/06/26 16:33:33 andrew Exp $
+# $AFresh1: network_tests.t,v 1.2 2010/06/26 16:47:01 andrew Exp $
 
 use strict;
 use warnings;
@@ -67,7 +67,7 @@
             no warnings 'uninitialized';
             my $result;
             eval { $result = $amd->$method( $test->{args} ) };
-            is( $@,      undef,           "$method($test->{args})" );
+            is( $@,      undef,           "AMD->$method($test->{args})" );
             is( $result, $test->{expect}, 'got expected result' );
         }
     }