[elpa] externals/yaml b33b2ba412 003/124: Add test file

[ELPA Syncer]

branch: externals/yaml
commit b33b2ba41220044aab822504bd814e8425c3bb65
Author: Zachary Romero <zacromero@posteo.net>
Commit: Zachary Romero <zacromero@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