Mercurial > hg > xemacs-beta

comparison lisp/oobr/hash-test.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 4103f0995bd7
children 4be1180a9e89
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
4 ;; SUMMARY: Interactively test functions from hasht.el. 4 ;; SUMMARY: Interactively test functions from hasht.el.
5 ;; USAGE: GNU Emacs Lisp Library 5 ;; USAGE: GNU Emacs Lisp Library
6 ;; KEYWORDS: extensions, maint, tools 6 ;; KEYWORDS: extensions, maint, tools
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: InfoDock Associates 9 ;; ORG: Motorola Inc.
10 ;; 10 ;;
11 ;; ORIG-DATE: 16-Mar-90 at 03:38:48 11 ;; ORIG-DATE: 16-Mar-90 at 03:38:48
12 ;; LAST-MOD: 20-Feb-97 at 07:04:19 by Bob Weiner 12 ;; LAST-MOD: 14-Apr-95 at 15:37:49 by Bob Weiner
13 ;; 13 ;;
14 ;; Copyright (C) 1990-1995, 1997 Free Software Foundation, Inc. 14 ;; Copyright (C) 1990-1995 Free Software Foundation, Inc.
15 ;; See the file BR-COPY for license information. 15 ;; See the file BR-COPY for license information.
16 ;; 16 ;;
17 ;; This file is part of the OO-Browser. 17 ;; This file is part of the OO-Browser.
18 ;; 18 ;;
19 ;; DESCRIPTION: 19 ;; DESCRIPTION:
74 ; => ("e1" "e2") 74 ; => ("e1" "e2")
75 (hash-lookup "b" hs3) 75 (hash-lookup "b" hs3)
76 ; => ("b1" "b2") 76 ; => ("b1" "b2")
77 77
78 (hash-make -3) 78 (hash-make -3)
79 ; => (error ("(hash-make): Initializer must be >= 0, not `-3'")) 79 ; => (error ("(hash-make): Initializer must be >= 0, not '-3'"))
80 80
81 (hash-replace '("e11" "e22") "e" hs3) 81 (hash-replace '("e11" "e22") "e" hs3)
82 ; => ("e11" "e22") 82 ; => ("e11" "e22")
83 (hash-lookup "e" hs3) 83 (hash-lookup "e" hs3)
84 ; => ("e11" "e22") 84 ; => ("e11" "e22")