* test/automated/occur-tests.el (occur-test-create): New function.