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

[perl5.git] / t / op / upgrade.t

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