- cl-json-devel - mailman3.common-lisp.net

Re: [cl-json-devel] Problem with cl-json tests
by Robert Goldman 15 Oct '12

15 Oct '12

On 10/14/12 Oct 14 -5:25 AM, Juan Jose Garcia-Ripoll wrote: > They seem to be executed as soon as one loads them. However, the fact > that a variable is only set _after_ the test suite is loaded, with > > (defmethod perform :after ((op load-op) (comp (eql (find-system > :cl-json.test)))) > (eval `(setf ,(intern (symbol-name '#:*json-test-files-path*) :json-test) > (merge-pathnames "t/" *cl-json-directory*)))) > > means that a whole bunch of tests fail because late ASDF seems to only > perform load-op on the system _after_ it has loaded all its components. > A better, more robust way of doing this, which does not depend on ASDF's > loading rules is adding this > > (eval `(setf ,(intern (symbol-name '#:*json-test-files-path*) > (or (find-package "JSON-TEST") > (make-package "JSON-TEST"))) > (merge-pathnames "t/" *cl-json-directory*))) > > or, even better, split cl-json.asd into cl-json.asd and cl-json-test.asd > to avoid that this side-effect happens for every user that loads cl-json. > > Juanjo > > -- > Instituto de Física Fundamental, CSIC > c/ Serrano, 113b, Madrid 28006 (Spain) > http://juanjose.garciaripoll.googlepages.com Attached is a darcs patch file that provides a fix for this. Instead of doing this in the ASDF system definition file, I moved this into the defvar (now DEFPARAMETER) for *JSON-TEST-FILES-PATH*. Bumped the patch number of the system. I don't have permissions to apply this patch, though. BTW, I find that two of the JSON-NUMBER tests fail on my copy of ECL (on Mac OS X). Do you by any chance have a suggested fix? Cheers, r

2 1

[cl-json-devel] How to learn cl-json internals?
by Ravi Desai 20 Jul '12

20 Jul '12

Hello everyone, I'm trying to learn the cl-json system and am going through the source code. Is there a suggested way of going through the code to learn it? Right now I'm going through it in the order that the files are loaded. Thanks, Ravi

2 1

[cl-json-devel] test failure: JSON-BIND-IN-BIND-BUG
by Anton Vodonosov 29 Nov '11

29 Nov '11

Hello. After running the tests I have one failure. Is it a known issure? ............. Did 170 checks. Pass: 169 (99%) Skip: 0 ( 0%) Fail: 1 ( 0%) Failure Details: -------------------------------- JSON-BIND-IN-BIND-BUG []: RESULT2 evaluated to "(0 ((ID . pingId) (NAME . ping)) NIL (((NAME . tableTennisGroupName) (ID . tableTennisGroupId))))", which is not STRING= to "(0 NIL NIL (NIL))".. --------------------------------

2 1

[cl-json-devel] asdf:load-op for tests (cl-json.test) not only loads test code, but tries to run it (with errors)
by Anton Vodonosov 28 Nov '11

28 Nov '11

Hello. I want to integrate cl-json tests into a bigger test suite. There is a small problem in cl-json.test system definition. I expect that I load the tests code by (asdf:operate 'asdf:load-op :cl-json.test) And the call FiveAM test runner (I can not just use asdf:test-op because it doesn't return any test status). But (asdf:operate 'asdf:load-op :cl-json.test) tries to not only load, but also to to execute the tests code, because file testjson.lisp is included into the cl-json.test system. The file contains just (in-package :json-test) (run! 'json) It is obviously a mistake, moreover running the tests require *json-test-files-path* to be initialized, but this happens only in the :after method of load-op. Best regards, - Anton

2 1

[cl-json-devel] Untrusted source
by Hraban Luyat 05 Oct '11

05 Oct '11

Hi, What is the recommended procedure to sanitize data from an untrusted source when parsing with cl-json? What is a sane definition of "safe" in this context, to begin with? I currently deem the following to be appropriate: for all variables bound to any string, running without any side effects, OR running out of memory, but nothing else. For example, is the following function safe? (defun foo (stream) (json:with-decoder-simple-list-semantics (json:decode-json stream))) Greetings, Hraban Luyat

1 0

[cl-json-devel] Package nickname cl-json
by Hraban Luyat 30 Sep '11

30 Sep '11

Hello, Would it be reasonable to request the package nickname cl-json to be added to the json package? I personally more or less assume packages to be accessible by their (Quicklisp)name in some macros I use, and json is, so far, the only exception. Then again, if it is an odd thing to do, never mind it too much. Greetings, Hraban Luyat

1 0

[cl-json-devel] Guidance requested: how to dispatch members to external decoders?
by Hraban Luyat 15 Aug '11

15 Aug '11

Hello, As far as I understand the decoder API it is mostly geared towards defining the decoder for an entire snippet in one place. I would like to know what the recommended way is to separate the definition of the decoder over separate modules. The semantics of my incoming messages are thus: object: - "type": string denoting the type - "payload": type-specific payload I want to create a decoder that only extracts the type and uses that to determine which decoder to send the payload to. Then it continues with whatever lisp object the decoder returned. What I thought would be appropriate is to create a generic function; (defgeneric json->data (type payload)) and then simply register decoders as follows: (defmethod json->data ((type (eq :foo)) payload) "Decode message of type foo." ...) (defmethod json->data ((type (eq :bar)) payload) "Decode message of type bar." ...) But now I am not really sure how to glue this together. What would you recommend? Is this the right frame of mind at all or should I take a totally different approach? Thanks! Hraban

3 4

[cl-json-devel] Encoding DOUBLE-FLOAT
by Daniel Brunner 27 Jun '11

27 Jun '11

Hi everybody, I flipped through the archives but did not find that question: I get some numbers (DOUBLE-FLOAT) from CLSQL, e.g. 0.0570714084012434D0 If I encode this to JSON I get a "0.0570714084012434D0" but it seems that the notation with "D" is not valid JSON because when I try to decode this string say from R with rjson I get an error. Any help or suggestions? Kind regards, Daniel.

3 17

[cl-json-devel] download URL 403
by Carlos Konstanski 27 Jun '11

27 Jun '11

I cannot download cl-json because the URL is giving me a 403. Please help, I am desperate! Email me a tarball if it can't be fixed soon. Thanks, Carlos Konstanski

4 11

[cl-json-devel] Who owns CL-JSON now?
by Robert Goldman 25 Jun '11

25 Jun '11

Does anyone on the list know who has commit rights on this project? thx, r

3 3