Testing with ros.

This commit is contained in:
Alexander Artemenko 2021-02-06 23:20:52 +03:00
parent 0044213c5e
commit aefada013b

View file

@ -170,11 +170,35 @@ runs:
echo "TRACE 1" echo "TRACE 1"
# OUTPUT_DIR=`build-docs ${{ inputs.asdf-system }}` # OUTPUT_DIR=`build-docs ${{ inputs.asdf-system }}`
cat > test.sh <<EOF cat > test.ros <<EOF
echo Foo >&1 #!/bin/sh
echo Bar >&2 #|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(progn ;;init forms
(ros:ensure-asdf)
#+quicklisp
(ql:quickload '()
:silent t))
(defpackage :ros.script.build-docs
(:use :cl))
(in-package :ros.script.build-docs)
(defun main (&rest args)
(declare (ignorable args))
(format *standard-output*
"Standard Foo~%")
(format *error-output*
"Error Bar~%")
(format *trace-io*
"Trace Blah~%")
(format *terminal-io*
"Terminal Minor~%"))
EOF EOF
bash test.sh > out 2> err bash test.ros > out 2> err
echo TTTTT 1_out echo TTTTT 1_out
cat out cat out