From 4a416fd328d685b0946e5e6f40e5ea18e9c1adf0 Mon Sep 17 00:00:00 2001
From: Karen Arutyunov <karen@codesynthesis.com>
Date: Thu, 9 Feb 2017 16:35:03 +0300
Subject: Add support for &dir/*[*][/] test path cleanup syntax

---
 tests/test/script/runner/cleanup.test | 139 +++++++++++++++++++++++++---------
 1 file changed, 104 insertions(+), 35 deletions(-)

(limited to 'tests/test/script/runner')

diff --git a/tests/test/script/runner/cleanup.test b/tests/test/script/runner/cleanup.test
index 7b3539b..14e931e 100644
--- a/tests/test/script/runner/cleanup.test
+++ b/tests/test/script/runner/cleanup.test
@@ -144,47 +144,116 @@ b += --no-column
 : wildcard
 :
 {
-  : always
+  : self
   :
-  $c <'$* -d a/b -f a/b/c &a/***' && $b
+  {
+    : always
+    :
+    $c <'$* -d a/b -f a/b/c &a/***' && $b
 
-  : maybe
-  :
-  $c <'$* &?a/***' && $b
+    : maybe
+    :
+    $c <'$* &?a/***' && $b
 
-  : not-exists
-  :
-  : Test cleanup of a wildcard not matching any directory.
-  :
-  $c <'$* &a/***' && $b 2>>/EOE != 0
-  testscript:1: error: registered for cleanup wildcard test/1/a/*** doesn't match a directory
-  EOE
+    : not-exists
+    :
+    : Test cleanup of a wildcard not matching any directory.
+    :
+    $c <'$* &a/***' && $b 2>>/EOE != 0
+    testscript:1: error: registered for cleanup wildcard test/1/a/*** doesn't match a directory
+    EOE
 
-  : out-wd
-  :
-  : Test cleanup of a wildcard out of the testscript working directory.
-  :
-  $c <'$* &../../a/***' && $b 2>>/EOE != 0
-  testscript:1: error: wildcard cleanup ../../a/*** is out of working directory test/
-  EOE
+    : out-wd
+    :
+    : Test cleanup of a wildcard out of the testscript working directory.
+    :
+    $c <'$* &../../a/***' && $b 2>>/EOE != 0
+    testscript:1: error: wildcard cleanup ../../a/*** is out of working directory test/
+    EOE
 
-  : in-wd
-  :
-  : Test cleanup registration of a wildcard matching the directory that being
-  : outside the test working directory is inside the testscript working
-  : directory.
-  :
-  $c <'$* &../a/***' && $b 2>>/EOE != 0
-  testscript:1: error: registered for cleanup wildcard test/a/*** doesn't match a directory
-  EOE
+    : in-wd
+    :
+    : Test cleanup registration of a wildcard matching the directory that being
+    : outside the test working directory is inside the testscript working
+    : directory.
+    :
+    $c <'$* &../a/***' && $b 2>>/EOE != 0
+    testscript:1: error: registered for cleanup wildcard test/a/*** doesn't match a directory
+    EOE
 
-  : not-dir
-  :
-  : Test cleanup of a file as a wildcard.
-  :
-  $c <'$* -f a &a/***' && $b 2>>/~%EOE% != 0
-  %error: unable to remove directory test/1/a/: .+%
-  EOE
+    : not-dir
+    :
+    : Test cleanup of a file as a wildcard.
+    :
+    $c <'$* -f a &a/***' && $b 2>>/~%EOE% != 0
+    %error: unable to remove directory test/1/a/: .+%
+    EOE
+  }
+
+  : dir
+  :
+  {
+    : always
+    :
+    {
+      : immediate
+      :
+      $c <'$* -d a/b &a/ &a/*/' && $b
+
+      : recursive
+      :
+      $c <'$* -d a/b/c &a/ &a/**/' && $b
+    }
+
+    : maybe
+    :
+    $c <'$* &?a/**/' && $b
+
+    : not-exists
+    :
+    : Test cleanup of a wildcard that doesn't match any directory.
+    :
+    $c <'$* &a/**/' && $b 2>>/EOE != 0
+    testscript:1: error: registered for cleanup wildcard test/1/a/**/ doesn't match a directory
+    EOE
+
+    : not-dir
+    :
+    : Test cleanup of a file as a directory wildcard.
+    :
+    $c <'$* -f a &a/**/' && $b 2>>/EOE != 0
+    testscript:1: error: registered for cleanup wildcard test/1/a/**/ doesn't match a directory
+    EOE
+
+    : not-empty
+    :
+    : Test cleanup of a non-empty directory as a wildcard.
+    :
+    $c <'$* -d a/b/c -f a/b/d &a/**/' && $b 2>>/EOE != 0
+    testscript:1: error: registered for cleanup directory test/1/a/b/ is not empty
+      info: wildcard: 'test/1/a/**/'
+    EOE
+  }
+
+  : file
+  :
+  {
+    : always
+    :
+    {
+      : immediate
+      :
+      $c <'$* -d a -f a/c &a/ &a/*' && $b
+
+      : recursive
+      :
+      $c <'$* -d a/b -f a/c -f a/b/e &a/ &a/b/ &a/**' && $b
+    }
+
+    : maybe
+    :
+    $c <'$* &?a/**' && $b
+  }
 }
 
 : order
-- 
cgit v1.1