Changeset 10074


Ignore:
Timestamp:
10/03/05 13:53:16 (16 years ago)
Author:
piso
Message:

Added ENOUGH-NAMESTRING.1 and ENOUGH-NAMESTRING.3 to *expected-failures* for SBCL.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/tests/pathname-tests.lisp

    r10073 r10074  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: pathname-tests.lisp,v 1.40 2005-10-03 13:35:12 piso Exp $
     4;;; $Id: pathname-tests.lisp,v 1.41 2005-10-03 13:53:16 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    936936  (equal (enough-namestring #p"/foo" #p"/") "foo")
    937937  t)
     938#+sbcl
     939(pushnew 'enough-namestring.1 *expected-failures*)
    938940
    939941(deftest enough-namestring.2
     
    944946  (equal (enough-namestring #p"foo/bar" #p"foo/") "bar")
    945947  t)
     948#+sbcl
     949(pushnew 'enough-namestring.3 *expected-failures*)
    946950
    947951;; The following tests are adapted from SBCL's pathnames.impure.lisp.
Note: See TracChangeset for help on using the changeset viewer.