branch: externals/yaml
commit b33b2ba41220044aab822504bd814e8425c3bb65
Author: Zachary Romero <zacrom...@posteo.net>
Commit: Zachary Romero <zacrom...@posteo.net>
Add test file
---
yaml-tests.el | 280 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 280 insertions(+)
diff --git a/yaml-tests.el b/yaml-tests.el
new file mode 100644
index 0000000000..74111c176a
--- /dev/null
+++ b/yaml-tests.el
@@ -0,0 +1,280 @@
+;;; yaml-tests.el --- Tests for yaml.el -*- lexical-binding: t -*-
+
+;;; Code:
+
+(require 'yaml)
+(require 'ert)
+
+(ert-deftest yaml-parsing-functions-characters ()
+ "Tests the auto-generated parsing "
+ ;; 5.1. Character Set
+ (should (yaml-parse "\u0009"
+ (yaml-c-printable)))
+ (should (yaml-parse "\u000A"
+ (yaml-c-printable)))
+ (should (yaml-parse "\u000A"
+ (yaml-c-printable)))
+ (should (not (yaml-parse "\u000B"
+ (yaml-c-printable))))
+ (should (yaml-parse "\u0020"
+ (yaml-c-printable)))
+ (should (yaml-parse "\u0085"
+ (yaml-c-printable)))
+ (should (yaml-parse "\uE000"
+ (yaml-c-printable)))
+ (should (yaml-parse "\u10FFFF"
+ (yaml-c-printable)))
+ (should (yaml-parse "\u0009"
+ (yaml-nb-json)))
+ (should (yaml-parse "\u0009"
+ (yaml-nb-json)))
+ (should (yaml-parse "\u0020"
+ (yaml-nb-json)))
+ (should (yaml-parse "\uAAAAAA"
+ (yaml-nb-json)))
+ ;; 5.2. Character Encodings
+ (should (yaml-parse "\uFEFF"
+ (yaml-c-byte-order-mark)))
+ ;; 5.3. Indicator Characters
+ (should (yaml-parse "-"
+ (yaml-c-sequence-entry)))
+ (should (yaml-parse "?"
+ (yaml-c-mapping-key)))
+ (should (yaml-parse ":"
+ (yaml-c-mapping-value)))
+ (should (yaml-parse ","
+ (yaml-c-collect-entry)))
+ (should (yaml-parse "["
+ (yaml-c-sequence-start)))
+ (should (yaml-parse "]"
+ (yaml-c-sequence-end)))
+ (should (yaml-parse "{"
+ (yaml-c-mapping-start)))
+ (should (yaml-parse "}"
+ (yaml-c-mapping-end)))
+ (should (yaml-parse "#"
+ (yaml-c-comment)))
+ (should (yaml-parse "&"
+ (yaml-c-anchor)))
+ (should (yaml-parse "*"
+ (yaml-c-alias)))
+ (should (yaml-parse "!"
+ (yaml-c-tag)))
+ (should (yaml-parse "|"
+ (yaml-c-literal)))
+ (should (yaml-parse ">"
+ (yaml-c-folded)))
+ (should (yaml-parse "'"
+ (yaml-c-single-quote)))
+ (should (yaml-parse "\""
+ (yaml-c-double-quote)))
+ (should (yaml-parse "%"
+ (yaml-c-directive)))
+ (should (yaml-parse "@"
+ (yaml-c-reserved)))
+ (should (yaml-parse "`'"
+ (yaml-c-reserved)))
+ (should (yaml-parse "-"
+ (yaml-c-indicator)))
+ (should (yaml-parse "?"
+ (yaml-c-indicator)))
+ (should (yaml-parse ":"
+ (yaml-c-indicator)))
+ (should (yaml-parse ","
+ (yaml-c-indicator)))
+ (should (yaml-parse "|"
+ (yaml-c-indicator)))
+ (should (yaml-parse "%"
+ (yaml-c-indicator)))
+ (should (yaml-parse ","
+ (yaml-c-flow-indicator)))
+ (should (yaml-parse "["
+ (yaml-c-flow-indicator)))
+ (should (yaml-parse "]"
+ (yaml-c-flow-indicator)))
+ (should (yaml-parse "}"
+ (yaml-c-flow-indicator)))
+
+ ;; 5.4. Line Break Characters
+ (should (yaml-parse "\u000A"
+ (yaml-b-line-feed)))
+ (should (yaml-parse "\u000D"
+ (yaml-b-carriage-return)))
+ (should (yaml-parse "\u000A"
+ (yaml-b-char)))
+ (should (yaml-parse "a"
+ (yaml-nb-char)))
+ (should (not (yaml-parse "\u000A"
+ (yaml-nb-char))))
+ (should (not (yaml-parse "\u000D"
+ (yaml-nb-char))))
+
+ (should (yaml-parse "\u000A"
+ (yaml-b-break)))
+ (should (yaml-parse "\u000D\u000A"
+ (yaml-b-break)))
+ (should (yaml-parse "\u000D"
+ (yaml-b-break)))
+ (should (yaml-parse "\u000D"
+ (yaml-b-as-line-feed)))
+ (should (yaml-parse "\u000A"
+ (yaml-b-non-content)))
+
+ ;; 5.5. White Space Characters
+ (should (yaml-parse " "
+ (yaml-s-space)))
+ (should (yaml-parse "\t"
+ (yaml-s-tab)))
+ (should (yaml-parse " "
+ (yaml-s-white)))
+ (should (yaml-parse "\t"
+ (yaml-s-white)))
+ (should (yaml-parse "x"
+ (yaml-ns-char)))
+ (should (not (yaml-parse ""
+ (yaml-ns-char))))
+
+ ;; 5.6. Miscellaneous Characters
+ (should (yaml-parse "0"
+ (yaml-ns-dec-digit)))
+ (should (yaml-parse "1"
+ (yaml-ns-dec-digit)))
+ (should (yaml-parse "4"
+ (yaml-ns-dec-digit)))
+ (should (yaml-parse "9"
+ (yaml-ns-dec-digit)))
+ (should (yaml-parse "A"
+ (yaml-ns-hex-digit)))
+ (should (yaml-parse "F"
+ (yaml-ns-hex-digit)))
+ (should (not (yaml-parse "G"
+ (yaml-ns-hex-digit))))
+ (should (yaml-parse "a"
+ (yaml-ns-hex-digit)))
+ (should (yaml-parse "f"
+ (yaml-ns-hex-digit)))
+ (should (yaml-parse "a"
+ (yaml-ns-ascii-letter)))
+ (should (yaml-parse "z"
+ (yaml-ns-ascii-letter)))
+ (should (yaml-parse "-"
+ (yaml-ns-word-char)))
+ (should (yaml-parse "#"
+ (yaml-ns-uri-char)))
+ (should (yaml-parse "A"
+ (yaml-ns-uri-char)))
+ (should (yaml-parse "_"
+ (yaml-ns-uri-char)))
+ (should (yaml-parse ";"
+ (yaml-ns-uri-char)))
+ (should (yaml-parse "a"
+ (yaml-ns-tag-char)))
+ ;; 5.7. Escaped Characters
+ (should (yaml-parse "\\"
+ (yaml-c-escape)))
+
+ (should (yaml-parse "n"
+ (yaml-ns-esc-line-feed)
+ ))
+ (should (yaml-parse "\\n"
+ (yaml-c-ns-esc-char))))
+
+(ert-deftest yaml-parsing-functions-basic-structure ()
+ "Tests the auto-generated parsing"
+ (should (yaml-parse " "
+ (yaml-s-indent 4)))
+ (should (yaml-parse " "
+ (yaml-s-indent 1)))
+ ;; (should (yaml-parse " " (yaml-s-indent-lt 1)))
+ ;; (should (yaml-parse " " (yaml-s-indent-le 1)))
+ (should (yaml-parse " "
+ (yaml-s-separate-in-line)))
+ (should (yaml-parse " "
+ (yaml-s-block-line-prefix 2)))
+ (should (yaml-parse " "
+ (yaml-s-block-line-prefix 2)))
+ (should (yaml-parse " "
+ (yaml-s-flow-line-prefix 2)))
+ (should (yaml-parse " \n"
+ (yaml-l-empty 2 "block-in")))
+ (should (yaml-parse "\n \n \n\n"
+ (yaml-b-l-trimmed 2 "block-in")))
+ (should (yaml-parse "\n"
+ (yaml-b-as-space)))
+ (should (yaml-parse "\n "
+ (yaml-s-flow-folded 1)))
+
+ ;; 6.6. Comments
+ (should (yaml-parse "# Comment"
+ (yaml-c-nb-comment-text)))
+ (should (yaml-parse "\n"
+ (yaml-b-comment)))
+ (should (yaml-parse " # Comment\n"
+ (yaml-s-b-comment)))
+ (should (yaml-parse " # Comment\n \n\n"
+ (yaml-l-comment)))
+ (should (yaml-parse " # Comment\n # Lines\n"
+ (yaml-s-l-comments)))
+
+ ;; 6.7. Separation Lines
+ (should (yaml-parse "\n# Statistics:\n "
+ (yaml-s-separate-lines 2)))
+
+ ;; 6.8. Directives
+ (should (yaml-parse "FOO bar baz"
+ (yaml-ns-reserved-directive)))
+ (should (yaml-parse "%FOO bar baz # Should be ignored"
+ (yaml-l-directive)))
+
+ ;; 6.8.1. YAML Directives
+ (should (yaml-parse "1.3"
+ (yaml-ns-yaml-version)))
+ (should (yaml-parse "YAML 1.3"
+ (yaml-ns-yaml-directive)))
+
+ ;; 6.8.3. TAG Directives
+ (should (yaml-parse "TAG !yaml! tag:yaml.org,2002:"
+ (yaml-ns-tag-directive)))
+
+ (should (yaml-parse "!e!"
+ (yaml-c-named-tag-handle)))
+
+ ;;6.9. Node Properties
+ (should (yaml-parse "&a2"
+ (yaml-c-ns-anchor-property)))
+
+ (should (yaml-parse "!<tag:yaml.org,2002:str>"
+ (yaml-c-verbatim-tag)))
+ (should (yaml-parse "!local"
+ (yaml-c-ns-shorthand-tag)))
+
+ (should (yaml-parse "&anchor"
+ (yaml-c-ns-anchor-property))))
+
+
+(defun yaml--hash-table-equal (h1 h2)
+ (when (or (not (hash-table-p h1))
+ (not (hash-table-p h2)))
+ (error "arguments to yaml--hash-table-equal must be a hash-table."))
+ (if (not (= (hash-table-size h1)
+ (hash-table-size h2)))
+ nil
+ (let ((res t))
+ (maphash (lambda (key value)
+ (when (not (equal (gethash key h2)
+ value))
+ (setq res nil)))
+ h1)
+ res)))
+
+(ert-deftest yaml-parsing-yaml ()
+ "Tests YAML parsing."
+ (should (yaml--hash-table-equal
+ (let ((ht (make-hash-table :test 'equal)))
+ (puthash "test" 3 ht))
+ (yaml-parse-string "key: value"))))
+(yaml-parse-string "value")
+
+(provide 'yaml-tests)
+
+;;; yaml-tests.el ends here
