The problem went away once again, let's see how long it'll last this time. As it turns out, CCL has a Unicode Standard conforming string implementation that doesn't allow the use of (lone) surrogate code points, requiring us to disable a test in cl-json which tested the behavior of en- and decoding of such a (technically illegal) string. Change-Id: I8bfa482934bbf94f86cecdde02d5c3d4e77950a5 Reviewed-on: https://cl.tvl.fyi/c/depot/+/6204 Tested-by: BuildkiteCI Autosubmit: sterni <sternenseemann@systemli.org> Reviewed-by: tazjin <tazjin@tvl.su>
		
			
				
	
	
		
			53 lines
		
	
	
	
		
			1.2 KiB
		
	
	
	
		
			Nix
		
	
	
	
	
	
			
		
		
	
	
			53 lines
		
	
	
	
		
			1.2 KiB
		
	
	
	
		
			Nix
		
	
	
	
	
	
| # JSON encoder & decoder
 | |
| { depot, pkgs, ... }:
 | |
| 
 | |
| let
 | |
|   inherit (depot.nix) buildLisp;
 | |
| 
 | |
|   # https://github.com/sharplispers/cl-json/pull/12/
 | |
|   src = pkgs.fetchFromGitHub {
 | |
|     owner = "sternenseemann";
 | |
|     repo = "cl-json";
 | |
|     rev = "c059bec94e28a11102a994d6949e2e52764f21fd";
 | |
|     sha256 = "0l07syw1b1x2zi8kj4iph3rf6vi6c16b7fk69iv7x27wrdsr1qwj";
 | |
|   };
 | |
| 
 | |
|   getSrcs = subdir: map (f: src + ("/" + subdir + "/" + f));
 | |
| in
 | |
| buildLisp.library {
 | |
|   name = "cl-json";
 | |
|   deps = [ (buildLisp.bundled "asdf") ];
 | |
| 
 | |
|   srcs = [ "${src}/cl-json.asd" ] ++
 | |
|     (getSrcs "src" [
 | |
|       "package.lisp"
 | |
|       "common.lisp"
 | |
|       "objects.lisp"
 | |
|       "camel-case.lisp"
 | |
|       "decoder.lisp"
 | |
|       "encoder.lisp"
 | |
|       "utils.lisp"
 | |
|       "json-rpc.lisp"
 | |
|     ]);
 | |
| 
 | |
|   tests = {
 | |
|     deps = [
 | |
|       depot.third_party.lisp.cl-unicode
 | |
|       depot.third_party.lisp.fiveam
 | |
|     ];
 | |
|     srcs = [
 | |
|       # CLOS tests are broken upstream as well
 | |
|       # https://github.com/sharplispers/cl-json/issues/11
 | |
|       (pkgs.writeText "no-clos-tests.lisp" ''
 | |
|         (replace *features* (delete :cl-json-clos *features*))
 | |
|       '')
 | |
|     ] ++ getSrcs "t" [
 | |
|       "package.lisp"
 | |
|       "testencoder.lisp"
 | |
|       "testdecoder.lisp"
 | |
|       "testmisc.lisp"
 | |
|     ];
 | |
| 
 | |
|     expression = "(fiveam:run! 'json-test::json)";
 | |
|   };
 | |
| }
 |