unikernel/duniverse/dune_/test/blackbox-tests/test-cases/dune-cache/clear.t

@@ -0,0 +1,40 @@
+Test for the "dune cache clear" command.
+
+  $ export DUNE_CACHE=enabled
+  $ export DUNE_CACHE_ROOT=$PWD/dune-cache
+
+  $ cat >dune-project <<EOF
+  > (lang dune 3.10)
+  > EOF
+
+  $ cat >dune <<EOF
+  > (rule (with-stdout-to foo (progn)))
+  > EOF
+
+  $ dune build
+
+  $ ls $DUNE_CACHE_ROOT | sort -u
+  files
+  meta
+  temp
+  values
+
+  $ dune cache clear
+
+  $ ! test -d $DUNE_CACHE_ROOT
+
+Next let us add some extra directories/files and check that they are not deleted
+by mistake.
+
+  $ dune build
+
+  $ mkdir -p $DUNE_CACHE_ROOT/extra; touch $DUNE_CACHE_ROOT/extra1 $DUNE_CACHE_ROOT/extra/extra2
+
+  $ dune cache clear
+  Error:
+  rmdir($TESTCASE_ROOT/dune-cache): Directory not empty
+  [1]
+
+  $ find $DUNE_CACHE_ROOT -type f | sort -u
+  $TESTCASE_ROOT/dune-cache/extra/extra2
+  $TESTCASE_ROOT/dune-cache/extra1