diff options
Diffstat (limited to 'tests/modules/xml/test.lua')
| -rw-r--r-- | tests/modules/xml/test.lua | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/tests/modules/xml/test.lua b/tests/modules/xml/test.lua index 271865338..841a1c797 100644 --- a/tests/modules/xml/test.lua +++ b/tests/modules/xml/test.lua @@ -68,3 +68,36 @@ function test_load_save(t) os.tryrm(filepath) end +function test_plist_sample(t) + local plist = [[<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd"> +<plist version="1.0"> +<dict> + <key>CFBundleDevelopmentRegion</key> + <string>$(DEVELOPMENT_LANGUAGE)</string> + <key>CFBundleExecutable</key> + <string>$(EXECUTABLE_NAME)</string> + <key>CFBundleIdentifier</key> + <string>$(PRODUCT_BUNDLE_IDENTIFIER)</string> + <key>NSHumanReadableCopyright</key> + <string>Copyright © 2020 tboox. All rights reserved.</string> + <key>NSSupportsAutomaticTermination</key> + <true/> +</dict> +</plist>]] + local doc = xml.decode(plist) + t:are_equal(doc.name, "plist") + t:are_equal(doc.attrs.version, "1.0") + t:are_equal(doc.prolog[1].kind, "doctype") + local dict = xml.find(doc, "plist/dict") + t:are_equal(dict.kind, "element") + local first_key = dict.children[1] + t:are_equal(first_key.name, "key") + t:are_equal(xml.text_of(first_key), "CFBundleDevelopmentRegion") + local first_value = dict.children[2] + t:are_equal(first_value.name, "string") + t:are_equal(xml.text_of(first_value), "$(DEVELOPMENT_LANGUAGE)") + local last_flag = dict.children[#dict.children] + t:are_equal(last_flag.name, "true") +end + |