suzanne.soy/trivial
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[test] more function/curry tests

Browse Source
This commit is contained in:
ben 2016-03-19 23:43:50 -04:00
parent 5cdcba0a5c
commit 23d776fd7c
3 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.travis.yml
View File

@ -12,7 +12,7 @@ before_install:
- cat ../travis-racket/install-racket.sh | bash - cat ../travis-racket/install-racket.sh | bash
- export PATH="${RACKET_DIR}/bin:${PATH}" - export PATH="${RACKET_DIR}/bin:${PATH}"
install: raco pkg install --deps search-auto $TRAVIS_BUILD_DIR install: raco pkg install --deps search-auto $TRAVIS_BUILD_DIR/trivial
before_script: before_script:
- psql -c 'create database travis_ci_test;' -U postgres - psql -c 'create database travis_ci_test;' -U postgres

2
test/define-fail.rkt
View File

@ -15,7 +15,7 @@
) )
(test-compile-error (test-compile-error
#:require trivial/define trivial/function trivial/format #:require trivial/define trivial/function trivial/format
#:exn exn:fail? ;;#rx"Type Checker" #:exn #rx"Type Checker|lambda:" ;; TODO
(let: ([f (lambda ([x : String] [y : Integer]) (let: ([f (lambda ([x : String] [y : Integer])
;; Error here -- swapped y and x ;; Error here -- swapped y and x

10
test/function-pass.rkt
View File

@ -19,7 +19,15 @@
2) 2)
(check-true (check-true
(begin (curry: (lambda ([x : Integer]) x)) #t)) (begin
(curry: (lambda ([x : Integer]) x))
(curry: (lambda ([x : String]) x))
(curry: (lambda ([x : Any]) x))
((curry: (lambda (x) x)) 1)
((curry: (lambda ([x : (Listof Any)]) x)) '())
(curry: (lambda ([x : (Listof Boolean)]) x))
(curry: (lambda ([x : (Vectorof (Listof Boolean))]) x))
#t))
(check-equal? (check-equal?
((curry: (lambda ([x : Integer]) x)) 3) ((curry: (lambda ([x : Integer]) x)) 3)