From d8fe367a31d15ea64c43c80c4e4819ef393696ef Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 21 Apr 2012 23:08:49 +0200 Subject: [PATCH] Remove duplicate test in `tree-il.test'. * test-suite/tests/tree-il.test ("partial evaluation"): Remove duplicate test for `(cons 0 (cons 1 (cons 2 (list 3 4 5))))'. --- test-suite/tests/tree-il.test | 7 ------- 1 file changed, 7 deletions(-) diff --git a/test-suite/tests/tree-il.test b/test-suite/tests/tree-il.test index 0be563623..0f0e553e9 100644 --- a/test-suite/tests/tree-il.test +++ b/test-suite/tests/tree-il.test @@ -704,13 +704,6 @@ (apply (primitive list) (const 0) (const 1) (const 2) (const 3) (const 4) (const 5))) - (pass-if-peval - ;; First order, coalesced, mutability preserved. - (cons 0 (cons 1 (cons 2 (list 3 4 5)))) - ;; This must not be a constant. - (apply (primitive list) - (const 0) (const 1) (const 2) (const 3) (const 4) (const 5))) - (pass-if-peval ;; First order, coalesced, immutability preserved. (cons 0 (cons 1 (cons 2 '(3 4 5))))