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

going to STDERR.

p4raw-id: //depot/perl@32726

1 files changed, 3 insertions, 1 deletions

diff --git a/t/op/upgrade.t b/t/op/upgrade.t
index 787d413f92..5f2ffa6299 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});
     }