Chicken Shen

Check-in [8dc958869b]
Login
Overview
Comment:Removed old test file
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk | v0.1
Files: files | file ages | folders
SHA3-256:8dc958869b6253cd332fb772a44c920f14d05b43221951a1b08a90e89b4317d5
User & Date: david 2019-02-01 02:14:42
Context
2019-02-01
02:51
(no comment) check-in: 379ccaad11 user: david tags: trunk
02:14
Removed old test file check-in: 8dc958869b user: david tags: trunk, v0.1
02:14
Added more tests check-in: c436a763cc user: david tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Deleted tests/test-kl.scm.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
(load "compiler.scm")
(define tests
  `(
    ;;; Test defun
    (defun foo (x) (+ x 1))

    (cons A B)
    (hd (cons A B))
    (tl (cons A B))
    (cons? A)
    (str A)
    (= A A)
    (= "A" A)
    (freeze (+ 1 1))
    (set A "ABCD")
    (cn "ABCD" "EFJ")
    (get-time real)
    (lambda x (+ x 1))
    (type 12) 
    (defun h (e) (cn "trap-error: " (error-to-string e)))
    (trap-error (/ 3 0) (lambda e (error-to-string e)))
    
    
    ;; Broken
    ;; (eval-kl (+ 1 2))
    ;; (pos 0 "IJK")
    ;; (string->n "12.23")
    ;; (n->string 123.332)
    ;; (trap-error (/ 3 3) 
    
    ))

    

(define (run-tests)
  (map
   (lambda (kl)
     (let ((c  (kl->scheme kl)))
       (print c)
       c))
   tests))


;;(for-each eval (run-tests))

;; (define scheme (run-tests))








  
     
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<