From 3282252e09d960108cea00dc464799111be42220 Mon Sep 17 00:00:00 2001
From: Karen Arutyunov <karen@codesynthesis.com>
Date: Tue, 23 May 2023 20:44:50 +0300
Subject: Add find builtin

---
 tests/builtin/driver.cxx      |   7 ++
 tests/builtin/find.testscript | 276 ++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 283 insertions(+)
 create mode 100644 tests/builtin/find.testscript

(limited to 'tests')

diff --git a/tests/builtin/driver.cxx b/tests/builtin/driver.cxx
index 7a0193f..bdf3fa9 100644
--- a/tests/builtin/driver.cxx
+++ b/tests/builtin/driver.cxx
@@ -28,6 +28,13 @@
 using namespace std;
 using namespace butl;
 
+// Disable arguments globbing that may be enabled by default for MinGW runtime
+// (see tests/wildcard/driver.cxx for details).
+//
+#ifdef __MINGW32__
+int _CRT_glob = 0;
+#endif
+
 inline ostream&
 operator<< (ostream& os, const path& p)
 {
diff --git a/tests/builtin/find.testscript b/tests/builtin/find.testscript
new file mode 100644
index 0000000..b09822c
--- /dev/null
+++ b/tests/builtin/find.testscript
@@ -0,0 +1,276 @@
+# file      : tests/builtin/find.testscript
+# license   : MIT; see accompanying LICENSE file
+
+posix = ($cxx.target.class != 'windows')
+
+test.arguments = "find"
+
+: no-paths
+:
+$* 2>"find: missing start path" == 1
+
+: no-paths-primary
+:
+$* -name foo 2>"find: unknown option '-name'" == 1
+
+: unknown-primary
+:
+$* . -foo 2>"find: unknown primary '-foo'" == 1
+
+
+: no-primary-value
+:
+$* . -name 2>"find: missing value for primary '-name'" == 1
+
+: empty-primary-value
+:
+$* . -type '' 2>"find: empty value for primary '-type'" == 1
+
+: invalid-type-primary
+:
+$* . -type foo 2>"find: invalid value 'foo' for primary '-type'" == 1
+
+: invalid-mindepth-primary
+:
+$* . -mindepth 12a 2>"find: invalid value '12a' for primary '-mindepth'" == 1
+
+: path-not-exists
+:
+{
+  mkdir d;
+  $* x d >'d' 2>"find: 'x' doesn't exists" != 0
+}
+
+: path
+:
+{
+  : relative
+  :
+  {
+    : no-cwd
+    :
+    {
+      mkdir a;
+      touch a/b;
+
+      $* a >>/EOO
+        a
+        a/b
+        EOO
+    }
+
+    : absolute-cwd
+    :
+    : When cross-testing we cannot guarantee that host absolute paths are
+    : recognized by the target process.
+    :
+    if ($test.target == $build.host)
+    {
+      test.options += -d $~/a;
+      mkdir a;
+      touch a/b;
+
+      $* b >'b'
+    }
+
+    : relative-cwd
+    :
+    if ($test.target == $build.host)
+    {
+      test.options += -d a;
+      mkdir a;
+      touch a/b;
+
+      $* b >'b'
+    }
+  }
+
+  : non-normalized
+  :
+  {
+    mkdir a;
+    touch a/b;
+
+    # Note that the path specified on the command line is used unaltered.
+    #
+    s = ($posix ? '/' : '\');
+
+    $* ./a >>"EOO"
+      ./a
+      ./a$(s)b
+      EOO
+  }
+
+  : absolute
+  :
+  {
+    mkdir a;
+    touch a/b;
+
+    $* $~/a >>/"EOO"
+      $~/a
+      $~/a/b
+      EOO
+  }
+
+  : non-existent
+  :
+  {
+    touch a b;
+
+    $* a x b >>EOO 2>"find: 'x' doesn't exists" != 0
+      a
+      b
+      EOO
+  }
+
+  : non-directory
+  :
+  {
+    touch a b c;
+
+    $* a b/ c >>EOO 2>"find: 'b' is not a directory" != 0
+      a
+      c
+      EOO
+  }
+
+  : trailing-slash
+  :
+  {
+    mkdir -p a/b;
+
+    $* a >>/"EOO";
+      a
+      a/b
+      EOO
+
+    $* a/ >>"EOO"
+      a/
+      a/b
+      EOO
+  }
+}
+
+: name-primary
+:
+{
+  : basic
+  :
+  {
+    mkdir a;
+    touch a/ab a/ba;
+
+    $* . -name 'a*' >>/EOO;
+      ./a
+      ./a/ab
+      EOO
+
+    $* . -name 'b*' >>/EOO;
+      ./a/ba
+      EOO
+
+    $* a -name 'a*' >>/EOO
+      a
+      a/ab
+      EOO
+  }
+
+  : empty
+  :
+  {
+    touch a;
+
+    $* . -name ''
+  }
+}
+
+: type-primary
+:
+{
+  : regular
+  :
+  {
+    mkdir -p a/b;
+    touch a/b/c;
+
+    $* a -type f >>/EOO
+      a/b/c
+      EOO
+  }
+
+  : directory
+  :
+  {
+    mkdir -p a/b;
+    touch a/b/c;
+
+    $* a -type d >>/EOO
+      a
+      a/b
+      EOO
+  }
+
+  : symlink
+  :
+  if $posix
+  {
+    mkdir -p a/b;
+    touch a/b/c;
+    ln -s c a/b/d;
+
+    $* a -type l >>/EOO
+      a/b/d
+      EOO
+  }
+}
+
+: mindepth-primary
+:
+{
+  mkdir -p a/b/c;
+
+  $* a -mindepth 0 >>/EOO;
+    a
+    a/b
+    a/b/c
+    EOO
+
+  $* a -mindepth 1 >>/EOO;
+    a/b
+    a/b/c
+    EOO
+
+  $* a -mindepth 2 >>/EOO;
+    a/b/c
+    EOO
+
+  $* a -mindepth 3
+}
+
+: maxdepth-primary
+:
+{
+  mkdir -p a/b/c;
+
+  $* a -maxdepth 0 >>/EOO;
+    a
+    EOO
+
+  $* a -maxdepth 1 >>/EOO;
+    a
+    a/b
+    EOO
+
+  $* a -maxdepth 2 >>/EOO;
+    a
+    a/b
+    a/b/c
+    EOO
+
+  $* a -maxdepth 3 >>/EOO
+    a
+    a/b
+    a/b/c
+    EOO
+}
-- 
cgit v1.1