changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > core / annotate lisp/ffi/readline/tests.lisp

changeset 698: 96958d3eb5b0
parent: 1acb5e37e493
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes
381
386d51cf61ca add ffi/readline, net updates
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
1 
 ;;; readline/tests.lisp --- readline tests
386d51cf61ca add ffi/readline, net updates
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
2 
 
386d51cf61ca add ffi/readline, net updates
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
3 
 ;;; Code:
386d51cf61ca add ffi/readline, net updates
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
4 
 (defpackage :readline/tests
386d51cf61ca add ffi/readline, net updates
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
5 
   (:use :cl :std :rt :readline))
386d51cf61ca add ffi/readline, net updates
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
6 
 
386d51cf61ca add ffi/readline, net updates
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
7 
 (in-package :readline/tests)
386d51cf61ca add ffi/readline, net updates
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
8 
 
386d51cf61ca add ffi/readline, net updates
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
9 
 (defsuite :readline)
386d51cf61ca add ffi/readline, net updates
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
10 
 (in-suite :readline)
386d51cf61ca add ffi/readline, net updates
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
11 
 
386d51cf61ca add ffi/readline, net updates
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
12 
 (load-readline)
386d51cf61ca add ffi/readline, net updates
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
13 
 
558
1acb5e37e493 removed slint, skel fixes, init more tests for STD (specifically tasks)
Richard Westhaver <ellis@rwest.io>
parents: 381
diff changeset
14 
 (deftest sanity ()
381
386d51cf61ca add ffi/readline, net updates
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
15 
   (is readline::*history-base*)
386d51cf61ca add ffi/readline, net updates
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
16 
   (is readline::*history-length*))