aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2011-08-05 11:56:03 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2011-08-05 11:56:03 +0000
commit964085b7f4b2b1320d1ceb329135e23413bd09a4 (patch)
treea9326b43e0ee2396741048078fdd84c29e159f6a /tests
parentc98107bf2e430ee09599a1a29d9566dacaa6a854 (diff)
downloadgdbm-964085b7f4b2b1320d1ceb329135e23413bd09a4.tar.gz
gdbm-964085b7f4b2b1320d1ceb329135e23413bd09a4.tar.bz2
New files.
Diffstat (limited to 'tests')
-rw-r--r--tests/dbmfetch00.at32
-rw-r--r--tests/dbmfetch01.at31
2 files changed, 63 insertions, 0 deletions
diff --git a/tests/dbmfetch00.at b/tests/dbmfetch00.at
new file mode 100644
index 0000000..3ed4623
--- /dev/null
+++ b/tests/dbmfetch00.at
@@ -0,0 +1,32 @@
+# This file is part of GDBM. -*- autoconf -*-
+# Copyright (C) 2011 Free Software Foundation, Inc.
+#
+# GDBM 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 2, or (at your option)
+# any later version.
+#
+# GDBM 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 GDBM. If not, see <http://www.gnu.org/licenses/>. */
+
+AT_SETUP([fetch a record (dbm)])
+AT_KEYWORDS([dbm fetch fetch00 dbmfetch00])
+
+AT_CHECK([
+AT_COMPAT_PREREQ
+num2word 1:10000 | dtload test
+dtfetch test 1 2745 9999
+],
+[0],
+[one
+two thousand seven hundred and fourty-five
+nine thousand nine hundred and ninety-nine
+])
+
+AT_CLEANUP
+
diff --git a/tests/dbmfetch01.at b/tests/dbmfetch01.at
new file mode 100644
index 0000000..b94d774
--- /dev/null
+++ b/tests/dbmfetch01.at
@@ -0,0 +1,31 @@
+# This file is part of GDBM. -*- autoconf -*-
+# Copyright (C) 2011 Free Software Foundation, Inc.
+#
+# GDBM 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 2, or (at your option)
+# any later version.
+#
+# GDBM 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 GDBM. If not, see <http://www.gnu.org/licenses/>. */
+
+AT_SETUP([fetch (dbm): nonexisting record])
+AT_KEYWORDS([dbm fetch fetch01 dbmfetch01])
+
+AT_CHECK([
+AT_COMPAT_PREREQ
+num2word 1:10000 | dtload test
+dtfetch test 0
+],
+[2],
+[],
+[dtfetch: 0: not found
+])
+
+AT_CLEANUP
+

Return to:

Send suggestions and report system problems to the System administrator.