t4018: convert perl pattern tests to the new infrastructure

diff --git a/t/t9812-git-p4-wildcards.sh b/t/t9812-git-p4-wildcards.sh
index f2ddbc50e7c2ecd198a7f76301101be5ce7de7a6..c7472cbf54584c7610094677693114d41b422afe 100755 (executable)
--- a/t/t9812-git-p4-wildcards.sh
+++ b/t/t9812-git-p4-wildcards.sh
@@ -188,6 +188,29 @@ test_expect_success 'p4 deleted a wildcard file' '
        )
 '
 
+test_expect_success 'wildcard files requiring keyword scrub' '
+       (
+               cd "$cli" &&
+               cat <<-\EOF >scrub@wild &&
+               $Id$
+               line2
+               EOF
+               p4 add -t text+k -f scrub@wild &&
+               p4 submit -d "scrub at wild"
+       ) &&
+       test_when_finished cleanup_git &&
+       git p4 clone --dest="$git" //depot &&
+       (
+               cd "$git" &&
+               git config git-p4.skipSubmitEdit true &&
+               git config git-p4.attemptRCSCleanup true &&
+               sed "s/^line2/line2 edit/" <scrub@wild >scrub@wild.tmp &&
+               mv -f scrub@wild.tmp scrub@wild &&
+               git commit -m "scrub at wild line2 edit" scrub@wild &&
+               git p4 submit
+       )
+'
+
 test_expect_success 'kill p4d' '
        kill_p4d
 '