Test that perl.c reports {non_,}bincompat_options in sorted order.

Whilst the actual order doesn't matter semantically, ensuring that they are
always in a sorted order means that string comparison can be used to validate
that two sets of options are identical. This will be useful in the near future
for improved load-time extension compatibility checking.

1 files changed, 18 insertions, 0 deletions

diff --git a/t/porting/bincompat.t b/t/porting/bincompat.t
new file mode 100644
index 0000000000..f65fe3782f
--- /dev/null
+++ b/t/porting/bincompat.t
@@ -0,0 +1,18 @@
+#!./perl -w
+use strict;
+require './test.pl';
+
+use Config;
+
+plan(2);
+
+# Defiantely a white box test...
+
+# As we need to call it direct, we'll take advantage of its result ordering:
+my @to_check = qw(bincompat_options non_bincompat_options);
+my @V = map {s/^ //r} Internals::V();
+
+while (my ($index, $sub) = each @to_check) {
+    my $got = join ' ', &{Config->can($sub)}();
+    is($got, $V[$index], "C source code has $sub in sorted order");
+}