# This file is part of grecs -*- Autotest -*- # Copyright (C) 2012-2016 Sergey Poznyakoff # # Grecs 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. # # Grecs 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 Grecs. If not, see . AT_SETUP(Subtree - percent) AT_KEYWORDS([peek peek08 glob glob05]) AT_DATA([test.cf],[text "string"; block { foo { quux 1; }; bar 123; baz { quux 2; } crex { quux 3; } } ]) AT_CHECK([gcfpeek -match -root=block test.cf '.%.quux'], [0], [.block.foo.quux: "1" .block.baz.quux: "2" .block.crex.quux: "3" ]) AT_CLEANUP