# This file is part of Eclat -*- Autotest -*- # Copyright (C) 2012, 2013 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 . AT_SETUP([complex format]) AT_KEYWORDS([forlan tagshairy]) AT_DATA([input],[// Almost real-life format for DescribeTags if (.DescribeTagsResponse) { for (var in .DescribeTagsResponse.tagSet.item) { print(var.resourceId," ", var.resourceType," ", var.key," ", var.value,"\n"); } } else if (.Response.Errors) error("Error: ",.Response.Errors.Error.Message); else { error("Unrecognized response:\n"); dump(.); } ]) AT_CHECK([tforlan -s input $abs_srcdir/tags.xml], [0], [ami-12312312 image Name "Some important image" snap-abcdefef snapshot Name "Not so important snapshot" i-deadbeef instance backup "goes to /dev/null" i-deadbeef instance Name "Primary server" i-deadbeef instance ipaddr 192.168.1.1 i-12345678 instance Name "Secondary server" i-12345678 instance hostname secondary.example.org i-deadbeef instance hostname primary.example.org i-12345678 instance ipaddr 192.168.1.2 i-12345678 instance backup "Somewhere else" ]) AT_CLEANUP