/[gcl]/gcl/ansi-tests/search-string.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/search-string.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC revision 1.2 by pfdietz, Mon Oct 14 03:54:59 2002 UTC
# Line 5  Line 5 
5    
6  (in-package :cl-test)  (in-package :cl-test)
7    
8    ;;; The next test was busted due to to a stupid cut and paste
9    ;;; error.  The loop terminates immediately, doing nothing
10    ;;; useful. -- PFD
11    #|
12  (deftest search-string.1  (deftest search-string.1
13    (let ((target *searched-string*)    (let ((target *searched-string*)
14          (pat #(a)))          (pat #(a)))
# Line 14  Line 18 
18            (let ((pos (search pat tail)))            (let ((pos (search pat tail)))
19              (search-check pat tail pos))))              (search-check pat tail pos))))
20    t)    t)
21    |#
22    
23  (deftest search-string.2  (deftest search-string.2
24    (let ((target *searched-string*)    (let ((target *searched-string*)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26