summaryrefslogtreecommitdiffabout
path: root/tests/setpic.at
authorSergey Poznyakoff <gray@gnu.org.ua>2011-07-30 13:51:01 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2011-07-30 13:51:01 (GMT)
commit004fd5299b3c24a1d11e6c450e5e763ea95779ad (patch) (side-by-side diff)
tree3052034bd49efdb3fa84271e0eeccb6afc19e7cc /tests/setpic.at
parent8006a1de47d492a2fc15e314a3851fb40e6622bd (diff)
downloadidest-004fd5299b3c24a1d11e6c450e5e763ea95779ad.tar.gz
idest-004fd5299b3c24a1d11e6c450e5e763ea95779ad.tar.bz2
Finish the testsuite.
* scheme/Makefile.am: Rewrite. * src/frametab.gperf (frametab_enumerate): Minor fix. * tests/Makefile.am (TESTSUITE_AT): Add new testcases. (EXTRA_DIST): Add idest-32.png and idest-68.png. * tests/testsuite.at: Add new testcases. * tests/atlocal.in (GUILE_VERSION,INSTALL_PROG): New variables. * tests/id3v2: Remove trailing whitespace from USLT. * tests/delcomm.at: New file. * tests/fmt-shortlist.at: New file. * tests/framelist00.at: New file. * tests/framelist01.at: New file. * tests/framelist02.at: New file. * tests/list1.at: New file. * tests/list2.at: New file. * tests/lyrics00.at: New file. * tests/pic00.at: New file. * tests/pic01.at: New file. * tests/script00.at: New file. * tests/script01.at: New file. * tests/script02.at: New file. * tests/script03.at: New file. * tests/script04.at: New file. * tests/script05.at: New file. * tests/script06.at: New file. * tests/script07.at: New file. * tests/script08.at: New file. * tests/setlyrics.at: New file. * tests/setpic.at: New file. * tests/settitle.at: New file. * tests/shortlist.at: New file. * tests/version.at: Remove useless prereq.
Diffstat (limited to 'tests/setpic.at') (more/less context) (ignore whitespace changes)
-rw-r--r--tests/setpic.at32
1 files changed, 32 insertions, 0 deletions
diff --git a/tests/setpic.at b/tests/setpic.at
new file mode 100644
index 0000000..82642cb
--- a/dev/null
+++ b/tests/setpic.at
@@ -0,0 +1,32 @@
+# This file is part of idest -*- autotest -*-
+# Copyright (C) 2011 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 <http://www.gnu.org/licenses/>.
+
+AT_SETUP([batch: setpic])
+AT_KEYWORDS([script batch setpic])
+
+
+AT_CHECK([
+PREREQ_GUILE
+genfile -f file 10k
+idest -N -p $abs_top_srcdir/scheme --batch \
+ setpic -d '32x32 picture' -f $abs_srcdir/idest-32.png file
+idest -a file | sed 's/ *$//'
+],
+[0],
+[APIC:image/png:0:32x32 picture: 89504E470D0A1A0A0000000D4948445200000020000000200806000000737A7AF4000000017352474200AECE1CE900000006624B474400FF00FF00FFA0BDA793000000097048597300000B1300000B1301009A9C180000000774494D4507DB071C093A2D7365CBF80000001974455874436F6D6D656E74004372656174656420776974682047494D5057810E17000000954944415458C3ED56D10A002108D3E8FF7F79F7D421125D696107FA16452E5D6E0C00141885826309003313339BF7AFAC40F55EB0FAE2AD1568C9019095CBFF226102D0D1FA6EF97E2F8F72122680049000AE96E3DE749B9D5B5229DD7EE0E4B07419125D21A90DF2CCE801653691169C911991EBE32D98EDF5F65FA0135AE5D8ED07BC04ADAB64EB116DD4822F12A6214900E1001E26BD48441311DC6B0000000049454E44AE426082
+])
+x
+AT_CLEANUP

Return to:

Send suggestions and report system problems to the System administrator.