Add missing filetest primitives for consistency

rakudo · Dec 20, 2014 · d1b5249 · d1b5249
1 parent 6be8ec8
commit d1b5249
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -306,6 +306,14 @@ sub FILETEST-RW(Str $abspath) {
 sub FILETEST-X(Str $abspath) {
     nqp::p6bool(nqp::fileexecutable(nqp::unbox_s($abspath)));
 }
+sub FILETEST-RX(Str $abspath) {
+    my str $p = nqp::unbox_s($abspath);
+    nqp::p6bool(nqp::filereadable($p) && nqp::fileexecutable($p));
+}
+sub FILETEST-WX(Str $abspath) {
+    my str $p = nqp::unbox_s($abspath);
+    nqp::p6bool(nqp::filewritable($p) && nqp::fileexecutable($p));
+}
 sub FILETEST-RWX(Str $abspath) {
     my str $p = nqp::unbox_s($abspath);
     nqp::p6bool(