mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

Remove duplicate test in `tree-il.test'.

Browse source 
* test-suite/tests/tree-il.test ("partial evaluation"): Remove duplicate
  test for `(cons 0 (cons 1 (cons 2 (list 3 4 5))))'.
This commit is contained in:
Ludovic Courtès 2012-04-21 23:08:49 +02:00
parent 0f6dd25023
commit d8fe367a31
1 changed files with 0 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test-suite/tests/tree-il.test
View file

@ -704,13 +704,6 @@
(apply (primitive list) (apply (primitive list)
(const 0) (const 1) (const 2) (const 3) (const 4) (const 5))) (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 (pass-if-peval
;; First order, coalesced, immutability preserved. ;; First order, coalesced, immutability preserved.
(cons 0 (cons 1 (cons 2 '(3 4 5)))) (cons 0 (cons 1 (cons 2 '(3 4 5))))