help needed with (test-suite lib)

help needed with (test-suite lib)

[Matt Wette]

[-- Attachment #1: Type: text/plain, Size: 760 bytes --]

I am using test-suite/lib.scm from guile-2.0.11.

Can anyone explain why I am getting “UNRESOLVED” below?  I am expecting “PASS”.   What am I missing?

Thanks,
Matt

mwette$ guile
GNU Guile 2.0.11
Copyright (C) 1995-2014 Free Software Foundation, Inc.

Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.

Enter `,help' for help.
scheme@(guile-user)> (use-modules (test-suite lib))
scheme@(guile-user)> (pass-if "demo" (lambda () #t))
UNRESOLVED: demo
scheme@(guile-user)> 

scheme@(guile-user)> run-test
$1 = #<procedure 1061cc440 at test-suite/lib.scm:323:4 (name expect-pass thunk)>


[-- Attachment #2: Type: text/html, Size: 2452 bytes --]

Re: help needed with (test-suite lib)

[Alex Kost]

Matt Wette (2016-03-10 05:08 +0300) wrote:

> I am using test-suite/lib.scm from guile-2.0.11.
>
>
> Can anyone explain why I am getting “UNRESOLVED” below?  I am
> expecting “PASS”.   What am I missing?

It shouldn't be a lambda (see below).

> mwette$ guile
>
> GNU Guile 2.0.11
>
> Copyright (C) 1995-2014 Free Software Foundation, Inc.
>
>
> Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
>
> This program is free software, and you are welcome to redistribute it
>
> under certain conditions; type `,show c' for details.
>
>
> Enter `,help' for help.
>
> scheme@(guile-user)> (use-modules (test-suite lib))
>
> scheme@(guile-user)> (pass-if "demo" (lambda () #t))
>
> UNRESOLVED: demo

Try (pass-if "demo" #t)

I know it because I found:

  (pass-if "simple addition" (= 4 (+ 2 2)))

in the commentary of ".../test-suite/lib.scm".

-- 
Alex

Re: help needed with (test-suite lib)

[Matt Wette]

> On Mar 13, 2016, at 3:53 AM, Alex Kost <alezost@gmail.com> wrote:
> 
> Matt Wette (2016-03-10 05:08 +0300) wrote:
> 
>> I am using test-suite/lib.scm from guile-2.0.11.
>> 
>> 
>> Can anyone explain why I am getting “UNRESOLVED” below?  I am
>> expecting “PASS”.   What am I missing?
> 

Ah.  Thanks.  I would have to do 

(pass-if “demo” ((lambda () #t)))

Matt

Re: help needed with (test-suite lib)

[Jan Wedekind]

On 13. März 2016 14:22:10 GMT+00:00, Matt Wette <matthew.wette@verizon.net> wrote:
>
>> On Mar 13, 2016, at 3:53 AM, Alex Kost <alezost@gmail.com> wrote:
>> 
>> Matt Wette (2016-03-10 05:08 +0300) wrote:
>> 
>>> I am using test-suite/lib.scm from guile-2.0.11.
>>> 
>>> 
>>> Can anyone explain why I am getting “UNRESOLVED” below?  I am
>>> expecting “PASS”.   What am I missing?
>> 
>
>Ah.  Thanks.  I would have to do 
>
>(pass-if “demo” ((lambda () #t)))
>
>Matt

You could also use "(const #t)" instead of "(lambda () #t)".
-- 
Jan Wedekind
http://www.wedesoft.de/

Re: help needed with (test-suite lib)

[Matt Wette]

> On Mar 13, 2016, at 8:30 AM, Jan Wedekind <jan@wedesoft.de> wrote:
> You could also use "(const #t)" instead of "(lambda () #t)”.

I’m using 
	(pass-if “demo” (let (…)))