1 files changed, 25 insertions, 0 deletions
diff --git a/application/third_party/test-more-php/t/testertests_deprecated_comparisons.pl b/application/third_party/test-more-php/t/testertests_deprecated_comparisons.pl
new file mode 100755
index 000000000..2bea27ec4
--- /dev/null
+++ b/application/third_party/test-more-php/t/testertests_deprecated_comparisons.pl
@@ -0,0 +1,25 @@
+#!/bin/env perl
+    use strict;
+    use warnings;
+    use Test::More ('no_plan');
+
+    diag('Test of deprecated Test::More functions provided for compatibility completeness.');
+
+    my $foo = [1,'B','third'];
+    my $oof = ['third','B',1];
+    my $foo_h = {0=>1,1=>'B',2=>'third'};
+    my $oof_h = {0=>'third',1=>'B',2=>1};
+
+    my $bar = [23,42,];
+    my $rab = [42,23,];
+    my $bar_h = {'q'=>23,'Y'=>42,};
+    my $rab_h = {'Y'=>42,'q'=>23,};
+
+    ok(eq_array($foo,$oof),'eq_array() with misordered array is ok');
+    ok(eq_array($bar,$rab),'eq_array() with misordered assoc is ok');
+    ok(eq_hash($foo_h,$oof_h),'eq_hash() with misordered array is ok');
+    ok(eq_hash($bar_h,$rab_h),'eq_hash() with misordered assoc is ok');
+    ok(eq_set($foo,$oof),'eq_set() with misordered array is ok');
+    ok(eq_set($bar,$rab),'eq_set() with misordered assoc is ok');
+
+    done_testing();