1 files changed, 24 insertions, 0 deletions
diff --git a/application/third_party/test-more-php/t/testertests_func_ok.pl b/application/third_party/test-more-php/t/testertests_func_ok.pl
new file mode 100755
index 000000000..e87d97bb1
--- /dev/null
+++ b/application/third_party/test-more-php/t/testertests_func_ok.pl
@@ -0,0 +1,24 @@
+#!/bin/env perl
+    use strict;
+    use warnings;
+
+    my $lib = defined($ENV{'TESTLIB'}) ? $ENV{'TESTLIB'} : 'Test::Simple';
+    eval "use $lib;";
+
+    print "# OK\n";
+    print "# (No message for next test)\n";
+    ok(1);
+    ok(1,"1 is ok");
+    ok(  !0,"TRUE is ok");
+    ok('string',"'string' is ok");
+
+    print "# Not OK\n";
+    print "# (No message for next test)\n";
+    ok(0);
+    ok(0,"0 is not ok");
+    ok(   !1,"FALSE is not ok");
+    ok('',"'' is not ok");
+    ok(undef,"undef is not ok");
+
+    done_testing();
+