suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix a use of collection-path

Browse Source 
original commit: 86d9a2fff2
This commit is contained in:
Robby Findler 2013-11-02 21:24:23 -05:00
parent e1bb8f5d6c
commit 331b6a99cd
3 changed files with 3 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/db-pkgs/db-doc/LICENSE.txt
View File

@ -1,10 +0,0 @@
db-doc
Copyright (c) 2010-2013 PLT Design Inc.
This package is distributed under the GNU Lesser General Public
License (LGPL). This means that you can link Racket into proprietary
applications, provided you follow the rules stated in the LGPL. You
can also modify this package; if you distribute a modified version,
you must distribute it under the terms of the LGPL, which in
particular means that you must release the source code for the
modified software. See COPYING_LESSER.txt for more information.

10
pkgs/gui-pkgs/gui/LICENSE.txt
View File

@ -1,10 +0,0 @@
gui
Copyright (c) 2010-2013 PLT Design Inc.
This package is distributed under the GNU Lesser General Public
License (LGPL). This means that you can link Racket into proprietary
applications, provided you follow the rules stated in the LGPL. You
can also modify this package; if you distribute a modified version,
you must distribute it under the terms of the LGPL, which in
particular means that you must release the source code for the
modified software. See COPYING_LESSER.txt for more information.

6
pkgs/net-pkgs/net-test/tests/net/encoders.rkt
View File

@ -2,7 +2,7 @@
(require net/base64 net/qp tests/eli-tester) (require net/base64 net/qp tests/eli-tester)
(define tricky-strings (define tricky-strings
(let ([dir (collection-path "tests" "racket")]) (let ([net.rktl (collection-file-path "net.rktl" "tests" "racket")])
(list (make-bytes 200 32) (list (make-bytes 200 32)
(make-bytes 200 9) (make-bytes 200 9)
(make-bytes 200 (char->integer #\x)) (make-bytes 200 (char->integer #\x))
@ -12,12 +12,12 @@
(make-bytes 204 (char->integer #\x)) (make-bytes 204 (char->integer #\x))
(list->bytes (for/list ([i (in-range 256)]) i)) (list->bytes (for/list ([i (in-range 256)]) i))
;; Something that doesn't end with a LF: ;; Something that doesn't end with a LF:
(bytes-append (with-input-from-file (build-path dir "net.rktl") (bytes-append (with-input-from-file net.rktl
(lambda () (read-bytes 500))) (lambda () (read-bytes 500)))
#"xxx") #"xxx")
;; CRLF: ;; CRLF:
(regexp-replace #rx#"\r?\n" (regexp-replace #rx#"\r?\n"
(with-input-from-file (build-path dir "net.rktl") (with-input-from-file net.rktl
(lambda () (read-bytes 500))) (lambda () (read-bytes 500)))
#"\r\n")))) #"\r\n"))))