|
Last change
on this file was
15252,
checked in by Mark Evenson, 5 years ago
|
|
Provide accessor in URL-STREAM for underlying java.io.InputStream?
(ql:quickload :prove)
(prove:run (asdf:system-relative-pathname :abcl "t/url-stream.lisp"))
|
|
File size:
406 bytes
|
| Line | |
|---|
| 1 | (in-package :cl-user) |
|---|
| 2 | |
|---|
| 3 | (prove:plan 1) |
|---|
| 4 | (require :abcl-contrib) |
|---|
| 5 | (require :jss) |
|---|
| 6 | |
|---|
| 7 | |
|---|
| 8 | (let ((uri #P"https://raw.githubusercontent.com/parallele-at/covid/master/eg/covid.n3")) |
|---|
| 9 | (prove:ok |
|---|
| 10 | (#"getInputStream" |
|---|
| 11 | (system:make-file-stream uri (namestring uri) |
|---|
| 12 | 'character :input nil :default)) |
|---|
| 13 | (format nil "Building a Java file stream~%~tfrom~t'~a'~%" uri))) |
|---|
| 14 | |
|---|
| 15 | (prove:finalize) |
|---|
| 16 | |
|---|
| 17 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
