mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +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 -*-
;;;;
;;;; 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
;;;; it under the terms of the GNU General Public License as published by
@ -577,11 +577,11 @@
(delete-proc 0 '() equal? 99))
(pass-if "empty"
(eq? '() (delete-proc 0 '())))
(eq? '() (delete-proc 0 '() equal?)))
(pass-if "equal? (the default)"
(pass-if "equal?"
(equal? '((1) (3))
(delete-proc '(2) '((1) (2) (3)))))
(delete-proc '(2) '((1) (2) (3)) equal?)))
(pass-if "eq?"
(equal? '((1) (2) (3))
@ -599,8 +599,8 @@
(let ((lst-copy (list-copy lst)))
(with-test-prefix lst-copy
(pass-if "result"
(equal? (delete #f lst)
(ref-delete #f lst)))
(equal? (delete #f lst equal?)
(ref-delete #f lst equal?)))
(pass-if "non-destructive"
(equal? lst-copy lst)))))))