diff options
Diffstat (limited to 'tests/forlan01.at')
-rw-r--r-- | tests/forlan01.at | 77 |
1 files changed, 77 insertions, 0 deletions
diff --git a/tests/forlan01.at b/tests/forlan01.at new file mode 100644 index 0000000..cf826e9 --- /dev/null +++ b/tests/forlan01.at @@ -0,0 +1,77 @@ +# This file is part of Eclat -*- Autotest -*- +# Copyright (C) 2012 Sergey Poznyakoff +# +# Eclat is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3, or (at your option) +# any later version. +# +# Eclat is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with Eclat. If not, see <http://www.gnu.org/licenses/>. + +AT_SETUP([dump]) +AT_KEYWORDS([forlan forlan01]) + +AT_DATA([input],[// test format for DescribeTags +if (.DescribeTagsResponse) { + if (.DescribeTagsResponse.tagSet.item.resourceId[[i-deadbeef]] && + parent(last).key[[hostname]]) + print(parent(last).value); +} else if (.Response.Errors) + error(.Response.Errors.Error.Message); +else + dump(); +]) + +AT_CHECK([tforlan -D input], +[0], +[0001: COND +0002: NODE +0003: COMP ABS +0004: LIT: "DescribeTagsResponse" +0005: IFTRUE 0001 +0006: COND +0007: AND +0008: NODE +0009: COMP ABS +0010: LIT: "DescribeTagsResponse" +0011: LIT: "tagSet" +0012: LIT: "item" +0013: TEST: resourceId[[i-deadbeef]] +0014: NODE +0015: COMP +0016: CALL: parent +0017: LAST +0018: TEST: key[[hostname]] +0019: IFTRUE 0006 +0020: CALL: print +0021: COMP +0022: CALL: parent +0023: LAST +0024: LIT: "value" +0025: IFFALSE 0006 +0026: IFFALSE 0001 +0027: COND +0028: NODE +0029: COMP ABS +0030: LIT: "Response" +0031: LIT: "Errors" +0032: IFTRUE 0027 +0033: CALL: error +0034: COMP ABS +0035: LIT: "Response" +0036: LIT: "Errors" +0037: LIT: "Error" +0038: LIT: "Message" +0039: IFFALSE 0027 +0040: CALL: dump +]) + +AT_CLEANUP + + |