changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / readme.org

changeset 6: 32ed719c5189
parent: 7e5b3feb2c38
child: 1700f388192a
author: ellis <ellis@rwest.io>
date: Mon, 16 Oct 2023 22:25:50 -0400
permissions: -rw-r--r--
description: refactoring stdlibs 
     1 #+TITLE: comp/core
     2 * rust
     3 ** ffi
     4 *** btrfs
     5 *** btrfsutil
     6 * lisp
     7 #+begin_src lisp :results silent
     8   (let ((asds '("lisp/std.asd" "lisp/lib/rdb.asd" "lisp/lib/organ/organ.asd" "lisp/lib/skel/skel.asd"
     9                 "lisp/ffi/rocksdb.asd" "lisp/ffi/btrfs.asd" "lisp/ffi/uring.asd")))
    10     (mapc (lambda (x) (asdf:load-asd (pathname x))) asds))
    11   (asdf:load-system :std)
    12 #+end_src
    13 ** std
    14 *** tests
    15 #+begin_src lisp :package std/tests :results output replace :exports results
    16   (load "lisp/std/tests.lisp")
    17   (load "lisp/std/tests/sxp.lisp")
    18   (rt:do-tests :named-readtables)
    19   (rt:do-tests :std)  
    20   (rt:do-tests :rt)
    21   (rt:do-tests :cli)
    22   (in-package :std/tests/sxp)
    23   (setq *sxp-test-file* "lisp/std/tests/tests.sxp")
    24   (rt:do-tests :sxp)
    25 #+end_src
    26 #+RESULTS:
    27 #+begin_example
    28 in suite NAMED-READTABLES with 1/1 tests:
    29 #<PASS READTABLES-TEST1041> 
    30 No tests failed.
    31 in suite STD with 10/10 tests:
    32 #<PASS PAN-TEST1051> 
    33 #<PASS ANA-TEST1050> 
    34 #<PASS FMT-TEST1049> 
    35 #<PASS ALIEN-TEST1048> 
    36 #<PASS THREAD-TEST1047> 
    37 #<PASS COND-TEST1046> 
    38 #<PASS LOG-TEST1045> 
    39 #<PASS LIST-TEST1044> 
    40 #<PASS STR-TEST1043> 
    41 #<PASS SYM-TEST1042> 
    42 No tests failed.
    43 in suite RT with 1/1 tests:
    44 #<PASS RT-TEST1052> 
    45 No tests failed.
    46 in suite CLI with 1/1 tests:
    47 #<PASS CLI-TEST1053> 
    48 No tests failed.
    49 in suite SXP with 4/4 tests:
    50 #<PASS SXP-STREAM-TEST1057> 
    51 #<PASS SXP-STRING-TEST1056> 
    52 #<PASS SXP-FILE-TEST1055> 
    53 #<PASS FORMS-TEST1054> 
    54 No tests failed.
    55 #+end_example
    56 ** lib
    57 *** rdb
    58 **** tests
    59 #+begin_src lisp :package rdb.tests :results output replace :exports results
    60   (asdf:load-system :rdb/tests)
    61   (in-package :rdb/tests)
    62   (load "lisp/lib/rdb/tests.lisp")
    63   (setq log:*log-level* :debug)
    64   (rt:do-tests :rdb)
    65 #+end_src
    66 #+RESULTS:
    67 : in suite RDB with 0/0 tests:
    68 : No tests failed.
    69 *** organ
    70 **** tests
    71 #+begin_src lisp :package organ.tests :results output replace :exports results
    72   (asdf:load-system :organ/tests)
    73   (in-package :organ.tests)
    74   (setq log:*log-level* :debug)
    75   (load "lisp/lib/organ/tests.lisp")
    76   (rt:do-tests :organ)
    77 #+end_src
    78 #+RESULTS:
    79 #+begin_example
    80 in suite ORGAN with 3/3 tests:
    81 :DEBUG @ 12527.026  
    82 ; running test: 
    83 ; #<TEST ORG-HEADLINE :fn ORG-HEADLINE-test18308 :args NIL :persist NIL {1005FBD213}>
    84 :DEBUG @ 12527.037  
    85 ; #<PASS (= (LEVEL (ORG-PARSE (MAKE-ORG-HEADLINE S))) 2)>
    86 :DEBUG @ 12527.04  
    87 ; #<PASS (STRING= (TITLE (ORG-PARSE (MAKE-ORG-HEADLINE S))) DONE testing stuff )>
    88 :DEBUG @ 12527.04  
    89 ; #<PASS (= (LENGTH (TAGS (ORG-PARSE (MAKE-ORG-HEADLINE S)))) 2)>
    90 #<PASS ORG-HEADLINE-TEST18308> 
    91 :DEBUG @ 12527.04  
    92 ; running test: 
    93 ; #<TEST ORG-LINES :fn ORG-LINES-test18307 :args NIL :persist NIL {1005FBAEE3}>
    94 :DEBUG @ 12527.043  
    95 ; #<PASS (READ-ORG-LINES (OPEN *TEST-FILE*))>
    96 :DEBUG @ 12527.043  
    97 ; #<PASS (READ-ORG-LINES-FROM-STRING S)>
    98 #<PASS ORG-LINES-TEST18307> 
    99 :DEBUG @ 12527.043  
   100 ; running test: 
   101 ; #<TEST ORG-FILE :fn ORG-FILE-test18306 :args NIL :persist NIL {1005FB96E3}>
   102 :DEBUG @ 12527.047  
   103 ; #<PASS (READ-ORG-FILE *TEST-FILE*)>
   104 #<PASS ORG-FILE-TEST18306> 
   105 No tests failed.
   106 #+end_example
   107 *** skel
   108 **** tests
   109 #+begin_src lisp :package skel.tests :results output replace :exports results
   110   (asdf:load-system :skel/tests)
   111   (in-package :skel.tests)
   112   (load "lisp/lib/skel/tests.lisp")
   113   (setq *log-level* :debug)
   114   (rt:do-tests :skel)
   115 #+end_src
   116 #+RESULTS:
   117 #+begin_example
   118 ; compiling file "/home/ellis/dev/skel/tests.lisp" (written 15 OCT 2023 03:10:25 AM):
   119 
   120 ; wrote /home/ellis/.cache/common-lisp/sbcl-2.3.8.18.master.74-8cf7faf9a-linux-x64/home/ellis/dev/skel/tests-tmpR8PK79V8.fasl
   121 ; compilation finished in 0:00:00.006
   122 in suite SKEL with 6/6 tests:
   123 :DEBUG @ 12500.617  
   124 ; running test: 
   125 ; #<TEST VM :fn VM-test17295 :args NIL :persist NIL {100713BF53}>
   126 :DEBUG @ 12500.623  
   127 ; #<PASS (LET ((VM (MAKE-SK-VM C9)))
   128            (DOTIMES (I C8) (SKS-POP VM))
   129            T)>
   130 :DEBUG @ 12500.623  
   131 ; #<PASS (SKS-POP VM)>
   132 #<PASS VM-TEST17295> 
   133 :DEBUG @ 12500.623  
   134 ; running test: 
   135 ; #<TEST MAKEFILE :fn MAKEFILE-test17294 :args NIL :persist NIL {100713A443}>
   136 :DEBUG @ 12500.646  
   137 ; #<PASS (NULL (SK-WRITE-FILE (MK) IF-EXISTS SUPERSEDE PATH (TMP-PATH mk)))>
   138 :DEBUG @ 12500.646  
   139 ; #<PASS (PUSH-RULE R1 MK1)>
   140 :DEBUG @ 12500.646  
   141 ; #<PASS (PUSH-RULE R2 MK1)>
   142 :DEBUG @ 12500.646  
   143 ; #<PASS (PUSH-DIRECTIVE
   144           (CMD ifeq ($(DEBUG),1) echo foo 
   145 endif)
   146           MK1)>
   147 :DEBUG @ 12500.646  
   148 ; #<PASS (PUSH-VAR '(A B) MK1)>
   149 :DEBUG @ 12500.646  
   150 ; #<PASS (PUSH-VAR '(B C) MK1)>
   151 #<PASS MAKEFILE-TEST17294> 
   152 :DEBUG @ 12500.646  
   153 ; running test: 
   154 ; #<TEST SKELRC :fn SKELRC-test17293 :args NIL :persist NIL {1006FD6AF3}>
   155 #<PASS SKELRC-TEST17293> 
   156 :DEBUG @ 12500.65  
   157 ; running test: 
   158 ; #<TEST SKELFILE :fn SKELFILE-test17292 :args NIL :persist NIL {1006FD5843}>
   159 :DEBUG @ 12500.663  
   160 ; #<PASS (SK-WRITE-FILE (MAKE-INSTANCE 'SK-PROJECT NAME nada PATH %TMP) PATH
   161                         %TMP IF-EXISTS SUPERSEDE)>
   162 :DEBUG @ 12500.663  
   163 ; #<FAIL (INIT-SKELFILE %TMP)>
   164 :DEBUG @ 12500.663  
   165 ; #<PASS (LOAD-SKELFILE %TMP)>
   166 :DEBUG @ 12500.663  
   167 ; #<PASS (BUILD-AST (SK-READ-FILE (MAKE-INSTANCE 'SK-PROJECT) %TMP))>
   168 #<PASS SKELFILE-TEST17292> 
   169 :DEBUG @ 12500.663  
   170 ; running test: 
   171 ; #<TEST HEADER-COMMENTS :fn HEADER-COMMENTS-test17291 :args NIL :persist NIL {1006FD3893}>
   172 :DEBUG @ 12500.667  
   173 ; #<PASS (EQ
   174           (TYPE-OF (MAKE-SHEBANG-FILE-HEADER (MAKE-SHEBANG-COMMENT /dev/null)))
   175           'FILE-HEADER)>
   176 :DEBUG @ 12500.667  
   177 ; #<PASS (EQ
   178           (TYPE-OF
   179            (MAKE-SOURCE-FILE-HEADER
   180             (MAKE-SOURCE-HEADER-COMMENT foo-test TIMESTAMP T DESCRIPTION
   181                                         nothing to see here OPTS
   182                                         '(Definitely-Not_Emacs: T;))))
   183           'FILE-HEADER)>
   184 #<PASS HEADER-COMMENTS-TEST17291> 
   185 :DEBUG @ 12500.667  
   186 ; running test: 
   187 ; #<TEST SANITY :fn SANITY-test17290 :args NIL :persist NIL {1006FD1D83}>
   188 :DEBUG @ 12500.67  
   189 ; #<PASS (EQ T (APPLY #'/= (SKELS 3E8)))>
   190 #<PASS SANITY-TEST17290> 
   191 No tests failed.
   192 #+end_example
   193 ** ffi
   194 *** btrfs
   195 **** tests
   196 #+begin_src lisp :package btrfs.tests :results output replace :exports results
   197   (asdf:load-system :btrfs/tests)
   198   (in-package :btrfs.tests)
   199   (load "lisp/ffi/btrfs/tests.lisp")
   200   (setq log:*log-level* :debug)
   201   (rt:do-tests :btrfs)
   202 #+end_src
   203 #+RESULTS:
   204 : in suite BTRFS with 0/0 tests:
   205 : No tests failed.
   206 *** rocksdb
   207 **** tests
   208 #+begin_src lisp :package rocksdb.tests :results output replace :exports results
   209   (asdf:load-system :rocksdb/tests)
   210   (in-package :rocksdb.tests)
   211   (load "lisp/ffi/rocksdb/tests.lisp")
   212   (setq log:*log-level* :debug)
   213   (rt:do-tests :rocksdb)
   214 #+end_src
   215 #+RESULTS:
   216 #+begin_example
   217 in suite ROCKSDB with 2/2 tests:
   218 :DEBUG @ 7288.927  
   219 ; running test: 
   220 ; #<TEST DB :fn DB-test991 :args NIL :persist NIL {10032DD7C3}>
   221 :DEBUG @ 7288.98  
   222 ; #<PASS (NULL-ALIEN ERRPTR)>
   223 :DEBUG @ 7288.98  
   224 ; #<PASS (NULL-ALIEN ERRPTR)>
   225 :DEBUG @ 7288.98  
   226 ; #<PASS (STRING= (OCTETS-TO-STRING VAL)
   227                   (CONCATENATE 'STRING (MAP 'VECTOR #'CODE-CHAR RVAL)))>
   228 :DEBUG @ 7288.98  
   229 ; #<PASS (NULL-ALIEN ERRPTR)>
   230 #<PASS DB-TEST991> 
   231 :DEBUG @ 7288.987  
   232 ; running test: 
   233 ; #<TEST SET-OPTS :fn SET-OPTS-test990 :args NIL :persist NIL {10031F2E43}>
   234 #<PASS SET-OPTS-TEST990> 
   235 No tests failed.
   236 #+end_example
   237 *** quiche
   238 **** tests
   239 #+begin_src lisp :package quiche.tests :results output replace :exports results
   240   (asdf:load-system :quiche/tests)
   241   (in-package :quiche.tests)
   242   (load "lisp/ffi/quiche/tests.lisp")
   243   (setq log:*log-level* :debug)
   244   (rt:do-tests :uring)
   245 #+end_src
   246 *** uring
   247 **** tests
   248 #+begin_src lisp :package uring.tests :results output replace :exports results
   249   (asdf:load-system :uring/tests)
   250   (in-package :uring.tests)
   251   (load "lisp/ffi/uring/tests.lisp")
   252   (setq log:*log-level* :debug)
   253   (rt:do-tests :uring)
   254 #+end_src
   255 #+RESULTS:
   256 : in suite URING with 0/0 tests:
   257 : No tests failed.
   258 *** tree-sitter
   259 **** tests
   260 #+begin_src lisp :package tree-sitter.tests :results output replace :exports results
   261   (asdf:load-system :tree-sitter/tests)
   262   (in-package :tree-sitter.tests)
   263   (load "lisp/ffi/tree-sitter/tests.lisp")
   264   (setq log:*log-level* :debug)
   265   (rt:do-tests :tree-sitter)
   266 #+end_src
   267 #+RESULTS:
   268 : in suite TREE-SITTER with 0/0 tests:
   269 : No tests failed.