mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

Fix coverage expectations

Browse source 
* test-suite/tests/coverage.test ("line-execution-counts"): Update
  expectations.  Since there's nothing to do at the loop header and the
  renaming of X happens at the end of the loops, the compiled code only
  sees the loop header once.
This commit is contained in:
Andy Wingo 2014-04-04 16:49:59 +02:00
parent 8c6a0b7e13
commit 5e8f5ebaf3
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/tests/coverage.test
View file

@ -1,6 +1,6 @@
;;;; coverage.test --- Code coverage. -*- mode: scheme; coding: utf-8; -*- ;;;; coverage.test --- Code coverage. -*- mode: scheme; coding: utf-8; -*-
;;;; ;;;;
;;;; Copyright (C) 2010, 2011, 2012, 2013 Free Software Foundation, Inc. ;;;; Copyright (C) 2010, 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -107,8 +107,8 @@
(let ((line (car line+count)) (let ((line (car line+count))
(count (cdr line+count))) (count (cdr line+count)))
(case line (case line
((0 1) (= count 1)) ((0 1 2) (= count 1))
((2 3) (= count 78)) ((3) (= count 78))
((4 5 6) (= count 77)) ((4 5 6) (= count 77))
((7) (= count 1)) ((7) (= count 1))
((8) (= count 0)) ((8) (= count 0))