TAP: Retain tempdirs for failed tests

ringerc · ringerc · commit 7132810cd3a2 · 2016-03-01T22:27:19.000+08:00
If a test fails temporary directories created for that test are retained
- in particular, PostgresNode data directories. This makes debugging
much easier.

By Kyotaro Horiguchi
diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm
@@ -107,6 +107,12 @@ INIT
 	autoflush TESTLOG 1;
 }
 
+END
+{
+	# Preserve temporary directory for this test on failure
+	$File::Temp::KEEP_ALL = 1 unless Test::More->builder->is_passing;
+}
+
 #
 # Helper functions
 #

Original file line number	Diff line number	Diff line change
`@@ -107,6 +107,12 @@ INIT`
`107`	`107`	`autoflush TESTLOG 1;`
`108`	`108`	`}`
`109`	`109`
	`110`	`+END`
	`111`	`+{`
	`112`	`+ # Preserve temporary directory for this test on failure`
	`113`	`+ $File::Temp::KEEP_ALL = 1 unless Test::More->builder->is_passing;`
	`114`	`+}`
	`115`	`+`
`110`	`116`	`#`
`111`	`117`	`# Helper functions`
`112`	`118`	`#`