Skip to content

quaviver, liebler: Use bounds checking instead of typep #266

quaviver, liebler: Use bounds checking instead of typep

quaviver, liebler: Use bounds checking instead of typep #266

Workflow file for this run

name: test
on:
workflow_dispatch:
push:
branches: [ main ]
pull_request:
jobs:
test:
name: ${{ matrix.lisp }}
defaults:
run:
shell: bash -l {0}
strategy:
fail-fast: false
matrix:
lisp:
- abcl
- ccl
- clasp
- cmucl
- ecl
- sbcl
runs-on: ubuntu-latest
container:
image: ghcr.io/yitzchak/archlinux-cl:latest
options: --security-opt seccomp:unconfined
steps:
- name: Checkout nontrivial-gray-streams
uses: actions/checkout@v4
with:
repository: yitzchak/nontrivial-gray-streams
path: nontrivial-gray-streams
- name: Checkout Incless
uses: actions/checkout@v4
with:
repository: s-expressionists/Incless
path: incless
ref: quaviver4
- name: Checkout Inravina
uses: actions/checkout@v4
with:
repository: s-expressionists/Inravina
path: inravina
ref: quaviver4
- name: Checkout Invistra
uses: actions/checkout@v4
with:
repository: s-expressionists/Invistra
path: invistra
ref: quaviver4
- name: Checkout Repository
uses: actions/checkout@v4
with:
path: quaviver
- name: Setup Lisp Environment
run: |
make-rc
asdf-add
- name: Run Unit Tests
run: |
lisp -i ${{ matrix.lisp }} -e "(defparameter cl-user::*exit-on-test-failures* t)" -e "(ql:quickload :quaviver/unit-test)" -e "(parachute:test :quaviver/unit-test)"
- name: Run ANSI Tests
run: |
lisp -i ${{ matrix.lisp }} -e "(ql:quickload :quaviver/ansi-test)" -e "(quaviver/ansi-test:test :exit t)"
- name: float-triple/Burger-Dybvig vs Schubfach
if: ${{ matrix.lisp != 'cmucl' }}
run: |
lisp -i ${{ matrix.lisp }} -e "(ql:quickload :quaviver/compare)" -e "(quaviver/compare:float-triple/bd.s/f :coverage 0.001 :exit t :output \"failures-float-triple-bd-s.sexp\")"
- name: float-triple/Schubfach vs Dragonbox
if: ${{ matrix.lisp != 'cmucl' }}
run: |
lisp -i ${{ matrix.lisp }} -e "(ql:quickload :quaviver/compare)" -e "(quaviver/compare:float-triple/s.d/f :coverage 0.001 :exit t :output \"failures-float-triple-s-d.sexp\")"
- name: triple-float/Jaffer vs Liebler
if: ${{ matrix.lisp != 'cmucl' }}
run: |
lisp -i ${{ matrix.lisp }} -e "(ql:quickload :quaviver/compare)" -e "(quaviver/compare:triple-float/j.l/f :coverage 0.001 :exit t :output \"failures-triple-float-j-l.sexp\")"
- name: Upload comparison results
uses: actions/upload-artifact@v4
if: failure()
with:
name: failures-${{ matrix.lisp }}
path: failures-*.sexp
if-no-files-found: ignore