From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 26 Dec 2007 13:03:27 +0000 (+0000)
Subject: Use print rather than diag(), as these routine messages shouldn't be
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=649a2d69cba5456d243c77abefcc644293c5d08a;p=p5sagit%2Fp5-mst-13.2.git

Use print rather than diag(), as these routine messages shouldn't be
going to STDERR.

p4raw-id: //depot/perl@32726
---

diff --git a/t/op/upgrade.t b/t/op/upgrade.t
index 787d413..5f2ffa6 100644
--- a/t/op/upgrade.t
+++ b/t/op/upgrade.t
@@ -41,7 +41,9 @@ foreach my $source_type (@keys) {
 	my $vars = {};
 	$vars->{dest} = $types{$dest_type};
 	$vars->{source} = $types{$source_type};
-	diag "Assigning $source_type to $dest_type";
+	# The assignment can potentially trigger assertion failures, so it's
+	# useful to have the diagnostics about what was attempted printed first
+	print "# Assigning $source_type to $dest_type\n";
 	$vars->{dest} = $vars->{source};
 	is ($vars->{dest}, $vars->{source});
     }