# This file is part of idest -*- autotest -*- # Copyright (C) 2011, 2015-2017 Sergey Poznyakoff # # Idest 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. # # Idest 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 idest. If not, see . AT_SETUP([formats: pic --store]) AT_KEYWORDS([script format pic--store pic01]) AT_CHECK([ WITH_GUILE([ genfile -f file -p $abs_srcdir/id3v2 10k idest -N -p $abs_top_srcdir/scheme --format pic --store --file ~N-~C.~T file]) echo file-32x32 sample image.png cmp "file-32x32 sample image.png" $abs_srcdir/idest-32.png echo file-68x68 sample image.png cmp "file-68x68 sample image.png" $abs_srcdir/idest-68.png ], [0], [Saving file-32x32 sample image.png Saving file-68x68 sample image.png file-32x32 sample image.png file-68x68 sample image.png ]) AT_CLEANUP