diff options
Diffstat (limited to 'pit/test')
| -rw-r--r-- | pit/test/array.pit (renamed from pit/test/array.lisp) | 0 | ||||
| -rw-r--r-- | pit/test/broken.pit (renamed from pit/test/broken.lisp) | 0 | ||||
| -rw-r--r-- | pit/test/fold.pit (renamed from pit/test/fold.lisp) | 0 | ||||
| -rw-r--r-- | pit/test/nonbroken.pit (renamed from pit/test/nonbroken.lisp) | 0 | ||||
| -rw-r--r-- | pit/test/struct.pit (renamed from pit/test/struct.lisp) | 0 | ||||
| -rw-r--r-- | pit/test/test.pit (renamed from pit/test/test.lisp) | 0 | ||||
| -rw-r--r-- | pit/test/test10.pit | 5 | ||||
| -rw-r--r-- | pit/test/test11.pit | 4 | ||||
| -rw-r--r-- | pit/test/test2.pit (renamed from pit/test/test2.lisp) | 0 | ||||
| -rw-r--r-- | pit/test/test3.pit (renamed from pit/test/test3.lisp) | 0 | ||||
| -rw-r--r-- | pit/test/test5.pit | 3 | ||||
| -rw-r--r-- | pit/test/thebug.pit (renamed from pit/test/thebug.lisp) | 0 | ||||
| -rw-r--r-- | pit/test/thebug2.pit (renamed from pit/test/thebug2.lisp) | 0 | ||||
| -rw-r--r-- | pit/test/y.pit (renamed from pit/test/y.lisp) | 0 |
14 files changed, 11 insertions, 1 deletions
diff --git a/pit/test/array.lisp b/pit/test/array.pit index 976f70d..976f70d 100644 --- a/pit/test/array.lisp +++ b/pit/test/array.pit diff --git a/pit/test/broken.lisp b/pit/test/broken.pit index 09f4afc..09f4afc 100644 --- a/pit/test/broken.lisp +++ b/pit/test/broken.pit diff --git a/pit/test/fold.lisp b/pit/test/fold.pit index 89031d0..89031d0 100644 --- a/pit/test/fold.lisp +++ b/pit/test/fold.pit diff --git a/pit/test/nonbroken.lisp b/pit/test/nonbroken.pit index 350f64f..350f64f 100644 --- a/pit/test/nonbroken.lisp +++ b/pit/test/nonbroken.pit diff --git a/pit/test/struct.lisp b/pit/test/struct.pit index 9e35654..9e35654 100644 --- a/pit/test/struct.lisp +++ b/pit/test/struct.pit diff --git a/pit/test/test.lisp b/pit/test/test.pit index ef13abb..ef13abb 100644 --- a/pit/test/test.lisp +++ b/pit/test/test.pit diff --git a/pit/test/test10.pit b/pit/test/test10.pit new file mode 100644 index 0000000..0eea605 --- /dev/null +++ b/pit/test/test10.pit @@ -0,0 +1,5 @@ +(list/find + (lambda (y) + (and (eq? (list/len y) 3) + (list/all? (lambda (x) (equal? x 2)) y))) + '((1 2 3) (2 2 2 2) (2 3 4) (2 2 2)))
\ No newline at end of file diff --git a/pit/test/test11.pit b/pit/test/test11.pit new file mode 100644 index 0000000..83d4816 --- /dev/null +++ b/pit/test/test11.pit @@ -0,0 +1,4 @@ +(print! 'here) +(list/foldl '+ 0 '(1 2 3)) +(print! 'there) +(print! (list/foldl '+ 0 '(1 2 3)))
\ No newline at end of file diff --git a/pit/test/test2.lisp b/pit/test/test2.pit index 79a9791..79a9791 100644 --- a/pit/test/test2.lisp +++ b/pit/test/test2.pit diff --git a/pit/test/test3.lisp b/pit/test/test3.pit index 2febb75..2febb75 100644 --- a/pit/test/test3.lisp +++ b/pit/test/test3.pit diff --git a/pit/test/test5.pit b/pit/test/test5.pit index 3ea3fc7..2ad3675 100644 --- a/pit/test/test5.pit +++ b/pit/test/test5.pit @@ -1,5 +1,6 @@ (defun! foo (x) - (print! x) + (if (equal? 0 (% x 10000)) + (print! x)) (foo (+ x 1))) (foo 0)
\ No newline at end of file diff --git a/pit/test/thebug.lisp b/pit/test/thebug.pit index ad87bd7..ad87bd7 100644 --- a/pit/test/thebug.lisp +++ b/pit/test/thebug.pit diff --git a/pit/test/thebug2.lisp b/pit/test/thebug2.pit index 2376ff8..2376ff8 100644 --- a/pit/test/thebug2.lisp +++ b/pit/test/thebug2.pit diff --git a/pit/test/y.lisp b/pit/test/y.pit index 5e9218b..5e9218b 100644 --- a/pit/test/y.lisp +++ b/pit/test/y.pit |