org-element: Small fix to previous commit

* contrib/lisp/org-element.el (org-element-export-snippet-parser):
  Small fix.
* testing/lisp/test-org-export.el: Fix test.

contrib/lisp/org-element.el

@@ -1933,6 +1933,7 @@ Assume point is at the beginning of the snippet."
 	   (inner-begin (match-end 0))
 	   (inner-end
 	    (let ((count 1))
+	      (goto-char inner-begin)
 	      (while (and (> count 0) (re-search-forward "[<>]" nil t))
 		(if (equal (match-string 0) "<") (incf count) (decf count)))
 	      (1- (point))))

testing/lisp/test-org-export.el

@@ -303,7 +303,7 @@ text
 
 (ert-deftest test-org-export/export-snippet ()
   "Test export snippets transcoding."
-  (org-test-with-temp-text "@test{A}@t{B}"
+  (org-test-with-temp-text "<test@A><t@B>"
     (org-test-with-backend "test"
       (flet ((org-test-export-snippet
 	      (snippet contents info)