;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Sep 2003
;;;;
-;;;; $Id: tests.lisp 7819 2003-09-11 16:20:23Z kevin $
+;;;; $Id$
;;;;
;;;; This file is Copyright (c) 2003 by Kevin M. Rosenberg
;;;;
(getopt '("--a=10") '(("along" :optional))))
(test-mv '(nil nil ("a"))
(getopt '("--a=10") '(("along" :optional) ("aboot" :optional))))
+ (test-mv '(("a") nil nil)
+ (getopt '("a") '(("a" :none))))
))
t)