diff -Naur IO-Socket-SSL-1.15/t/core.t IO-Socket-SSL-1.15.oden/t/core.t
--- IO-Socket-SSL-1.15/t/core.t	2008-02-21 12:34:47.000000000 -0500
+++ IO-Socket-SSL-1.15.oden/t/core.t	2009-09-30 14:33:30.000000000 -0400
@@ -106,7 +106,7 @@
 	my ($ok, $ctx_store, $cert, $error) = @_;
 	unless ($ok && $ctx_store && $cert && !$error) 
 	{ print("not ok #client failure\n") && exit; }
-	($cert =~ /IO::Socket::SSL Test CA/) || print "not";
+	($cert =~ /IO::Socket::SSL Demo CA/) || print "not";
 	&ok("Client Verify-sub Check");
 	return 1;
     }
diff -Naur IO-Socket-SSL-1.15/t/verify_hostname.t IO-Socket-SSL-1.15.oden/t/verify_hostname.t
--- IO-Socket-SSL-1.15/t/verify_hostname.t	2009-09-30 14:33:10.000000000 -0400
+++ IO-Socket-SSL-1.15.oden/t/verify_hostname.t	2009-09-30 14:33:30.000000000 -0400
@@ -53,7 +53,7 @@
 	ok( "client ssl connect" );
 
 	my $issuer = $client->peer_certificate( 'issuer' );
-	print "not " if $issuer !~m{IO::Socket::SSL Test CA};
+	print "not " if $issuer !~m{IO::Socket::SSL Demo CA};
 	ok("issuer");
 
 	my $cn = $client->peer_certificate( 'cn' );