mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-10 11:20:28 +02:00
Code Activity

Use the equal proc argument, so we exercise the

Browse source 
srfi-1 version of the code.  Without such an argument srfi-1.c passes
the job to the core scm_delete.
This commit is contained in:
Kevin Ryde 2006-02-04 00:54:24 +00:00
parent cf9d3c47fd
commit 2d6e3bd4c0
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test-suite/tests/srfi-1.test
View file

@ -1,6 +1,6 @@
;;;; srfi-1.test --- Test suite for Guile's SRFI-1 functions. -*- scheme -*- ;;;; srfi-1.test --- Test suite for Guile's SRFI-1 functions. -*- scheme -*-
;;;; ;;;;
;;;; Copyright 2003, 2004, 2005 Free Software Foundation, Inc. ;;;; Copyright 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This program is free software; you can redistribute it and/or modify ;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by ;;;; it under the terms of the GNU General Public License as published by
@ -577,11 +577,11 @@
(delete-proc 0 '() equal? 99)) (delete-proc 0 '() equal? 99))
(pass-if "empty" (pass-if "empty"
(eq? '() (delete-proc 0 '()))) (eq? '() (delete-proc 0 '() equal?)))
(pass-if "equal? (the default)" (pass-if "equal?"
(equal? '((1) (3)) (equal? '((1) (3))
(delete-proc '(2) '((1) (2) (3))))) (delete-proc '(2) '((1) (2) (3)) equal?)))
(pass-if "eq?" (pass-if "eq?"
(equal? '((1) (2) (3)) (equal? '((1) (2) (3))
@ -599,8 +599,8 @@
(let ((lst-copy (list-copy lst))) (let ((lst-copy (list-copy lst)))
(with-test-prefix lst-copy (with-test-prefix lst-copy
(pass-if "result" (pass-if "result"
(equal? (delete #f lst) (equal? (delete #f lst equal?)
(ref-delete #f lst))) (ref-delete #f lst equal?)))
(pass-if "non-destructive" (pass-if "non-destructive"
(equal? lst-copy lst))))))) (equal? lst-copy lst)))))))