Make sure the stack is balanced in the case that we fake the result of unsupported filetests.

This time with an appropriate comment on the test. And with that I'll
attempt to stop spamming P5P, at least for today, and go and do
something less risky. Running with scissors perhaps.

1 files changed, 19 insertions, 0 deletions

diff --git a/t/op/filetest_stack_ok.t b/t/op/filetest_stack_ok.t
new file mode 100644
index 0000000000..91e31e0a27
--- /dev/null
+++ b/t/op/filetest_stack_ok.t
@@ -0,0 +1,19 @@
+#!./perl
+
+# On platforms that don't support all of the filetest operators the code
+# that faked the results of missing tests used to leave the test's
+# argument on the stack.
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    require './test.pl';
+}
+
+my @ops = split //, 'rwxoRWXOezsfdlpSbctugkTMBAC';
+
+plan( tests => @ops * 1 );
+
+for my $op (@ops) {
+    ok( 1 == @{ [ eval "-$op 'TEST'" ] }, "-$op returns single value" );
+}