Coverage report: /home/ellis/comp/core/lib/syn/tests/gen/rs.lisp

KindCoveredAll%
expression09 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; rs.lisp --- SYN/GEN/RS Tests
2
 
3
 ;; 
4
 
5
 ;;; Code:
6
 (defpackage :syn/tests/gen/rs
7
   (:use :cl :syn/tests/gen :syn/gen :gen/rs)
8
   (:import-from :rt :deftest :is :iseql :isequal :in-suite :defsuite)
9
   (:import-from :cli/tools/rust :run-cargo)
10
   (:export
11
    #:*gen-rs-test-files*))
12
 
13
 (in-package :syn/tests/gen/rs)
14
 (defsuite :syn/gen/rs)
15
 (in-suite :syn/gen/rs)
16
 
17
 (defvar *gen-rs-test-files* (asdf:system-relative-pathname :syn "tests/gen/rs/"))
18
 
19
 (deftest simple ()
20
   "Test a set of simple GEN/RS forms."
21
   (with-codegen :rs
22
     (with-gen-test (merge-pathnames "simple.sxp" *gen-rs-test-files*)
23
       (gen-rs %in %out)
24
       (is (probe-file %out))
25
       (delete-file %out)))
26
       ;; (is (probe-file %bin))
27
       ;; (delete-file %bin)
28
       ;;  TODO 2024-12-19: (run-cargo (namestring %out)) ;; use cargo-script
29
       ;; (is (probe-file %bin))
30
       ;; (isequal
31
       ;;  (format nil "Hello, World!~%")
32
       ;;  (with-output-to-string (s)
33
       ;;    (sb-ext:run-program %bin nil :output s :wait t)))
34
       )