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 (file)
--- 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});
     }