Ensure describe_environment does not break its output in half

[dbsrgits/DBIx-Class.git] / t / 00describe_environment.t

diff --git a/t/00describe_environment.t b/t/00describe_environment.t
index 9a973de..ed0378b 100644 (file)
--- a/t/00describe_environment.t
+++ b/t/00describe_environment.t
@@ -501,6 +501,11 @@ $final_out .= "=============================\n$discl\n\n";
 
 diag $final_out;
 
+# *very* large printouts may not finish flushing before the test exits
+# injecting a <testname> ... ok in the middle of the diag
+# http://www.cpantesters.org/cpan/report/fbdac74c-35ca-11e6-ab41-c893a58a4b8c
+select( undef, undef, undef, 0.2 );
+
 exit 0;