From 2d6e3bd4c07fe3bf671e25b63762ce035cb2e9fd Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Sat, 4 Feb 2006 00:54:24 +0000 Subject: [PATCH] Use the equal proc argument, so we exercise the srfi-1 version of the code. Without such an argument srfi-1.c passes the job to the core scm_delete. --- test-suite/tests/srfi-1.test | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/test-suite/tests/srfi-1.test b/test-suite/tests/srfi-1.test index 1ea775ed7..0f60a16be 100644 --- a/test-suite/tests/srfi-1.test +++ b/test-suite/tests/srfi-1.test @@ -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))))))) -- 2.20.1