| 1 | (in-package :abcl.test.lisp) |
|---|
| 2 | |
|---|
| 3 | ;;; When these bugs get fixed, they should be moved elsewhere in the |
|---|
| 4 | ;;; testsuite so they remain fixed. |
|---|
| 5 | |
|---|
| 6 | (deftest bugs.logical-pathname.1 |
|---|
| 7 | #| |
|---|
| 8 | Date: Mon, 18 Jan 2010 10:51:07 -0500 |
|---|
| 9 | Message-ID: <29af5e2d1001180751l7cf79a3ay929cef1deb9ed063@mail.gmail.com> |
|---|
| 10 | Subject: Re: [armedbear-devel] translate-logical-pathname and :wild-inferiors |
|---|
| 11 | regression |
|---|
| 12 | From: Alan Ruttenberg <alanruttenberg@gmail.com> |
|---|
| 13 | |# |
|---|
| 14 | (progn |
|---|
| 15 | (setf (logical-pathname-translations "ido") |
|---|
| 16 | '(("IDO:IDO-CORE;**;*.*" |
|---|
| 17 | "/Users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/ido-core/**/*.*") |
|---|
| 18 | ("IDO:IMMUNOLOGY;**;*.*" |
|---|
| 19 | "/Users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/immunology/**/*.*") |
|---|
| 20 | ("IDO:TOOLS;**;*.*" |
|---|
| 21 | "/Users/alanr/repos/infectious-disease-ontology/trunk/src/tools/**/*.*") |
|---|
| 22 | ("IDO:LIB;**;*.*" |
|---|
| 23 | "/Users/alanr/repos/infectious-disease-ontology/trunk/lib/**/*.*"))) |
|---|
| 24 | (translate-pathname "IDO:IMMUNOLOGY;" "IDO:IMMUNOLOGY;**;*.*" |
|---|
| 25 | "/Users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/**/*.*")) |
|---|
| 26 | #P"/users/alanr/repos/infectious-disease-ontology/trunk/src/ontology/") |
|---|
| 27 | |
|---|
| 28 | (deftest bugs.logical.pathname.2 |
|---|
| 29 | #| |
|---|
| 30 | Message-Id: <BBE9D0E5-5166-4D24-9A8A-DC4E766976D1@ISI.EDU> |
|---|
| 31 | From: Thomas Russ <tar@ISI.EDU> |
|---|
| 32 | To: armedbear-devel@common-lisp.net |
|---|
| 33 | Subject: [armedbear-devel] Bug in translate-logical-pathname. |
|---|
| 34 | |# |
|---|
| 35 | (progn |
|---|
| 36 | (setf (logical-pathname-translations "L") |
|---|
| 37 | '(("L:NATIVE;**;*.*" "/usr/lisp/abcl/native/**/*.*"))) |
|---|
| 38 | (translate-logical-pathname "L:NATIVE;TEST;FOO.FASL")) |
|---|
| 39 | #p"/usr/lisp/abcl/native/test/foo.fasl") |
|---|
| 40 | |
|---|
| 41 | |
|---|
| 42 | (deftest bugs.pathname.1 |
|---|
| 43 | (namestring (make-pathname :directory '(:relative) :name "file" |
|---|
| 44 | :type :unspecific |
|---|
| 45 | :host nil :device nil)) |
|---|
| 46 | "./file") |
|---|
| 47 | |
|---|
| 48 | (deftest bugs.pathname.2 |
|---|
| 49 | (TRANSLATE-PATHNAME |
|---|
| 50 | #P"/Users/evenson/work/bordeaux-threads/src/bordeaux-threads.abcl" |
|---|
| 51 | #P"/**/**/*.*" |
|---|
| 52 | #P"/Users/evenson/.cache/common-lisp/armedbear-0.20.0-dev-darwin-unknown/**/*.*") |
|---|
| 53 | #P"/Users/evenson/.cache/common-lisp/armedbear-0.20.0-dev-darwin-unknown/bordeaux-threads.abcl") |
|---|
| 54 | |
|---|
| 55 | (deftest bugs.pathname.3 |
|---|
| 56 | (namestring (MAKE-PATHNAME :HOST NIL :DEVICE NIL |
|---|
| 57 | :DIRECTORY '(:RELATIVE :WILD-INFERIORS) |
|---|
| 58 | :DEFAULTS "/**/")) |
|---|
| 59 | "**/") |
|---|
| 60 | |
|---|
| 61 | (deftest bugs.java.1 |
|---|
| 62 | (let* ((a (java:jnew-array "byte" 1)) |
|---|
| 63 | (b (let ((array-list (java:jnew (java:jconstructor |
|---|
| 64 | "java.util.ArrayList")))) |
|---|
| 65 | (java:jcall (java:jmethod "java.util.AbstractList" "add" |
|---|
| 66 | "java.lang.Object") |
|---|
| 67 | array-list a) |
|---|
| 68 | (java:jcall (java:jmethod "java.util.AbstractList" "get" "int") |
|---|
| 69 | array-list 0)))) |
|---|
| 70 | (type-of (sys::%make-byte-array-input-stream b))) |
|---|
| 71 | stream) |
|---|
| 72 | |
|---|
| 73 | |
|---|
| 74 | |
|---|
