pkulev/sex
1
0
Fork 0
forked from alex-eg/sex
Code Pull Requests Activity

split test in separate test files

Browse Source
This commit is contained in:
alex-eg
2025-08-21 18:19:19 +03:00
committed by Pavel Kulyov
parent 97d44a0050
commit 8bbf44f329
4 changed files with 33 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
tests/run.scm
View File

@@ -6,32 +6,8 @@
srfi-1
test)
;;; unkebabify
(test '- (unkebabify '-))
(test '-- (unkebabify '--))
(test '-> (unkebabify '->))
(test '-= (unkebabify '-=))
(test 'kebab_case (unkebabify 'kebab-case))
(test '_what_ (unkebabify '-what-))
(test 'this->member (unkebabify 'this->member))
(test '_this_->_member_ (unkebabify '-this-->-member-))
(test '__->>> (unkebabify '--->>>))
;;; atom-to-fmt-c
(test '%fun (atom-to-fmt-c 'fn))
(test '%prototype (atom-to-fmt-c 'prototype))
(test '%var (atom-to-fmt-c 'var))
(test '%block-begin (atom-to-fmt-c 'begin))
(test '%define (atom-to-fmt-c 'define))
(test '%pointer (atom-to-fmt-c 'pointer))
(test '%array (atom-to-fmt-c 'array))
(test 'vector-ref (atom-to-fmt-c '@))
(test '%include (atom-to-fmt-c 'include))
(test '%cast (atom-to-fmt-c 'cast))
;;; make-field-access
(test 'a.b (make-field-access '(.b a)))
(test 'a.b.c (make-field-access '(.c a.b)))
(include "basic.scm")
(include "types.scm")
;;; Should be the last in the test suite
(test-exit)