diff options
Diffstat (limited to 'tests/modules/xml/test.lua')
| -rw-r--r-- | tests/modules/xml/test.lua | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/tests/modules/xml/test.lua b/tests/modules/xml/test.lua index 841a1c797..60d50d62a 100644 --- a/tests/modules/xml/test.lua +++ b/tests/modules/xml/test.lua @@ -101,3 +101,26 @@ function test_plist_sample(t) t:are_equal(last_flag.name, "true") end +function test_scan_stop(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>CFBundleExecutable</key> + <string>$(EXECUTABLE_NAME)</string> + <key>NSPrincipalClass</key> + <string>NSApplication</string> + </dict> +</plist>]] + local found + xml.scan(plist, function(node) + if node.name == "key" and xml.text_of(node) == "NSPrincipalClass" then + found = node + return false + end + end) + t:are_equal(found ~= nil, true) + t:are_equal(xml.text_of(found), "NSPrincipalClass") +end + |