Code coverage

Code coverage

[jeremy]

Hello dear guilers !

I have implemented a code coverage test with a piece of code I modified 
for my usage, here it is (filename : cybo-cov.scm):

(use-modules (system vm coverage)
	     (system vm vm)
	     (srfi srfi-11))

(let ((output-directory
        (string-append
	(getenv "HOME") "/Workspace/guile-cybo/coverage")))
   (let-values (((data . values)
		(with-code-coverage (the-vm)
				    (lambda ()
				      (load "cybo-test.scm")))))
     (let* ((port (mkstemp! (string-copy "/tmp/cybo-coverage-XXXXXX")))
	   (file (port-filename port)))
       (coverage-data->lcov data port)
       (close port)
       (when (not (zero? (system* "genhtml" file "-o" output-directory)))
	    (error "genhtml failed"))
       (delete-file file))))

When I execute

$ guile -L .

then

scheme@(guile-user)> (load "cybo-cov.scm")

The report seems to cover my project and all Guile 2.0 code. I would 
like the test to focus on my project only.
Does someone know how I can configure the test ?

Thank you in advance for your help.

Jeko

Re: Code coverage

[Jeremy Korwin-Zmijowski]

Le vendredi 12 avril 2019 à 12:35 +0200, jeremy@korwin-zmijowski.fr a
écrit :
> Hello dear guilers !
> 
> I have implemented a code coverage test with a piece of code I
> modified 
> for my usage, here it is (filename : cybo-cov.scm):
> 
> (use-modules (system vm coverage)
> 	     (system vm vm)
> 	     (srfi srfi-11))
> 
> (let ((output-directory
>         (string-append
> 	(getenv "HOME") "/Workspace/guile-cybo/coverage")))
>    (let-values (((data . values)
> 		(with-code-coverage (the-vm)
> 				    (lambda ()
> 				      (load "cybo-test.scm")))))
>      (let* ((port (mkstemp! (string-copy "/tmp/cybo-coverage-
> XXXXXX")))
> 	   (file (port-filename port)))
>        (coverage-data->lcov data port)
>        (close port)
>        (when (not (zero? (system* "genhtml" file "-o" output-
> directory)))
> 	    (error "genhtml failed"))
>        (delete-file file))))
> 
> When I execute
> 
> $ guile -L .
> 
> then
> 
> scheme@(guile-user)> (load "cybo-cov.scm")
> 
> The report seems to cover my project and all Guile 2.0 code. I would 
> like the test to focus on my project only.
> Does someone know how I can configure the test ?
> 
> Thank you in advance for your help.
> 
> Jeko
> 

The code for Guile 2.2.3 is

(use-modules (system vm coverage)
	     (system vm vm)
	     (srfi srfi-11))

(let ((output-directory (string-append
			 (getenv "HOME")
			 "/Workspace/guile-cybo/coverage")))
  (let-values (((data . values)
		(with-code-coverage
		 (lambda ()
		   (load "cybo-test.scm")))))
    (let* ((port (mkstemp! (string-copy "/tmp/cybo-coverage-XXXXXX")))
	   (file (port-filename port)))
      (coverage-data->lcov data port)
      (close port)
      (when (not (zero? (system* "genhtml" file "-o" output-
directory)))
	(error "genhtml failed"))
      (delete-file file))))

Jeko

Re: Code coverage

[Amirouche Boubekki]

Le sam. 13 avr. 2019 à 16:52, Jeremy Korwin-Zmijowski <
jeremy@korwin-zmijowski.fr> a écrit :

> Le vendredi 12 avril 2019 à 12:35 +0200, jeremy@korwin-zmijowski.fr a
> écrit :
> > Hello dear guilers !
> >
> > I have implemented a code coverage test with a piece of code I
> > modified
> > for my usage, here it is (filename : cybo-cov.scm):
> >
> > (use-modules (system vm coverage)
> >            (system vm vm)
> >            (srfi srfi-11))
> >
> > (let ((output-directory
> >         (string-append
> >       (getenv "HOME") "/Workspace/guile-cybo/coverage")))
> >    (let-values (((data . values)
> >               (with-code-coverage (the-vm)
> >                                   (lambda ()
> >                                     (load "cybo-test.scm")))))
> >      (let* ((port (mkstemp! (string-copy "/tmp/cybo-coverage-
> > XXXXXX")))
> >          (file (port-filename port)))
> >        (coverage-data->lcov data port)
> >        (close port)
> >        (when (not (zero? (system* "genhtml" file "-o" output-
> > directory)))
> >           (error "genhtml failed"))
> >        (delete-file file))))
> >
> > When I execute
> >
> > $ guile -L .
> >
> > then
> >
> > scheme@(guile-user)> (load "cybo-cov.scm")
> >
> > The report seems to cover my project and all Guile 2.0 code. I would
> > like the test to focus on my project only.
> > Does someone know how I can configure the test ?
> >
> > Thank you in advance for your help.
> >
> > Jeko
> >
>
> The code for Guile 2.2.3 is
>
> (use-modules (system vm coverage)
>              (system vm vm)
>              (srfi srfi-11))
>
> (let ((output-directory (string-append
>                          (getenv "HOME")
>                          "/Workspace/guile-cybo/coverage")))
>   (let-values (((data . values)
>                 (with-code-coverage
>                  (lambda ()
>                    (load "cybo-test.scm")))))
>     (let* ((port (mkstemp! (string-copy "/tmp/cybo-coverage-XXXXXX")))
>            (file (port-filename port)))
>       (coverage-data->lcov data port)
>       (close port)
>       (when (not (zero? (system* "genhtml" file "-o" output-
> directory)))
>         (error "genhtml failed"))
>       (delete-file file))))
>
> Jeko
>

I am not sure of what you are trying to achieve. There was recent-ish
thread about code coverage
in guile-devel mailing list:
http://lists.gnu.org/archive/html/guile-devel/2019-02/msg00029.html

HTH

Re: Code coverage

[Jeremy Korwin]

Le samedi 13 avril 2019 à 17:59 +0200, Amirouche Boubekki a écrit :
> 
> 
> Le sam. 13 avr. 2019 à 16:52, Jeremy Korwin-Zmijowski <
> jeremy@korwin-zmijowski.fr> a écrit :
> > Le vendredi 12 avril 2019 à 12:35 +0200, jeremy@korwin-zmijowski.fr
> >  a
> > écrit :
> > > Hello dear guilers !
> > > 
> > > I have implemented a code coverage test with a piece of code I
> > > modified 
> > > for my usage, here it is (filename : cybo-cov.scm):
> > > 
> > > (use-modules (system vm coverage)
> > >            (system vm vm)
> > >            (srfi srfi-11))
> > > 
> > > (let ((output-directory
> > >         (string-append
> > >       (getenv "HOME") "/Workspace/guile-cybo/coverage")))
> > >    (let-values (((data . values)
> > >               (with-code-coverage (the-vm)
> > >                                   (lambda ()
> > >                                     (load "cybo-test.scm")))))
> > >      (let* ((port (mkstemp! (string-copy "/tmp/cybo-coverage-
> > > XXXXXX")))
> > >          (file (port-filename port)))
> > >        (coverage-data->lcov data port)
> > >        (close port)
> > >        (when (not (zero? (system* "genhtml" file "-o" output-
> > > directory)))
> > >           (error "genhtml failed"))
> > >        (delete-file file))))
> > > 
> > > When I execute
> > > 
> > > $ guile -L .
> > > 
> > > then
> > > 
> > > scheme@(guile-user)> (load "cybo-cov.scm")
> > > 
> > > The report seems to cover my project and all Guile 2.0 code. I
> > would 
> > > like the test to focus on my project only.
> > > Does someone know how I can configure the test ?
> > > 
> > > Thank you in advance for your help.
> > > 
> > > Jeko
> > > 
> > 
> > The code for Guile 2.2.3 is
> > 
> > (use-modules (system vm coverage)
> >              (system vm vm)
> >              (srfi srfi-11))
> > 
> > (let ((output-directory (string-append
> >                          (getenv "HOME")
> >                          "/Workspace/guile-cybo/coverage")))
> >   (let-values (((data . values)
> >                 (with-code-coverage
> >                  (lambda ()
> >                    (load "cybo-test.scm")))))
> >     (let* ((port (mkstemp! (string-copy "/tmp/cybo-coverage-
> > XXXXXX")))
> >            (file (port-filename port)))
> >       (coverage-data->lcov data port)
> >       (close port)
> >       (when (not (zero? (system* "genhtml" file "-o" output-
> > directory)))
> >         (error "genhtml failed"))
> >       (delete-file file))))
> > 
> > Jeko
> 
> I am not sure of what you are trying to achieve. There was recent-ish 
> thread about code coverage
> in guile-devel mailing list: 
> http://lists.gnu.org/archive/html/guile-devel/2019-02/msg00029.html
> 
> HTH

Hello Amirouche !

I am confused. 

Yesterday, the report gave me the function coverage. Today, after I
read the mailing list you pointed out, I deleted the html report and
re-launch the coverage (juste to confirm I do have the function
coverage). And... I lost the function coverage report ! It never come
back haha what's the **** ?

I was going to test my coverage by browsing and parsing the html report
:(

I will give the shot to the patch you give in the mailing list.

Jeko