Coverage report: /home/runner/work/geb/geb/test/pipeline.lisp

KindCoveredAll%
expression1936 52.8
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 (in-package :geb-test)
2
 
3
 (define-test geb-pipeline :parent geb-test-suite)
4
 
5
 (def test-compilation-eval-2
6
   (geb.lambda.spec:unit))
7
 
8
 
9
 (defparameter *entry*
10
    (lambda:app
11
     (lambda:lamb (list (coprod so1 so1)) (lambda:index 0))
12
     (list (lambda:left so1 (lambda:unit)))))
13
 
14
 (define-test pipeline-works-for-stlc-to-vampir
15
   :parent geb-pipeline
16
   (parachute:finish
17
    (geb.entry:compile-down :vampir t
18
                            :stlc t
19
                            :entry "geb-test::test-compilation-eval-2"
20
                            :stream nil))
21
   (parachute:finish
22
    (geb.entry:compile-down :stlc t
23
                            :entry "geb-test::*entry*"
24
                            :stream nil)))