TESTrun: add definitions of true and false.

If we don't give them definitions, in some contents they are interpreted
as strings, and 'false', being a non-empty string, is interpreted as
being true.  See, for example:

https://stackoverflow.com/questions/6936194/is-there-a-built-in-true-false-boolean-value-in-perl

1 files changed, 5 insertions, 0 deletions

diff --git a/tests/TESTrun b/tests/TESTrun
index cb46a505..842a2dfd 100755
--- a/tests/TESTrun
+++ b/tests/TESTrun
@@ -18,6 +18,11 @@ if (!($TCPDUMP = $ENV{TCPDUMP_BIN})) {
     }
 }
 
+#
+# Make true and false work as Booleans.
+#
+use constant { true => 1, false => 0 };
+
 use File::Basename;
 use POSIX qw( WEXITSTATUS WIFEXITED);
 use Cwd qw(abs_path getcwd);