82 lines
2.5 KiB
Racket
82 lines
2.5 KiB
Racket
#lang racket/base
|
|
(require
|
|
trivial/private/test-common
|
|
(only-in typed/racket/base
|
|
ann : -> String Listof List U Bytes))
|
|
|
|
;; Ill-typed `regexp:` expressions
|
|
;; TODO why can't I catch errors for (ann ... (List String))? WhydoI need #f?
|
|
|
|
|
|
(module+ test (test-compile-error
|
|
#:require trivial/regexp
|
|
#:exn #rx"Type Checker"
|
|
(ann (regexp-match: "hi" "hi")
|
|
(U #f (List String String String)))
|
|
(ann (regexp-match: #rx"(h)(i)" "hi")
|
|
(U #f (List String)))
|
|
(ann (regexp-match: #px"(?<=h)(?=i)" "hi")
|
|
(U #f (List String String String)))
|
|
;;bg; ill-typed in untyped Racket
|
|
(byte-regexp: #rx#"yolo")
|
|
(ann (regexp-match: #rx#"hi" "hi")
|
|
(U #f (List String String)))
|
|
(ann (regexp-match: #px#"hi" "hi")
|
|
(U #f (List Bytes Bytes)))
|
|
(ann (regexp-match: (regexp "he") "hellooo")
|
|
(U #f (List String)))
|
|
(ann (let ()
|
|
(define-regexp: rx (regexp "he(l*)(o*)"))
|
|
(regexp-match: rx "hellooo"))
|
|
(U #f (List String String String)))
|
|
;; `define` doesn't propagate group information
|
|
(ann (let ()
|
|
(define rx "he(l*)(o*)")
|
|
(regexp-match: rx "helloooooooo"))
|
|
(U #f (List String String String)))
|
|
;; --- Can't handle |, yet
|
|
(ann (regexp-match: "this(group)|that" "that")
|
|
(U #f (List String String)))
|
|
;; --- can't handle starred groups
|
|
(ann (regexp-match: "(a)*(b)" "b")
|
|
(U #f (List String String)))
|
|
)
|
|
|
|
(test-compile-error
|
|
#:require trivial/regexp racket/port
|
|
#:exn #rx"Type Checker"
|
|
;; -- expected String, given Bytes
|
|
(with-input-from-string "hello"
|
|
(lambda ()
|
|
(define m (regexp-match: #rx#"lang" (current-input-port)))
|
|
(and m (string=? (car m) "lang"))))
|
|
|
|
;; ---- is raising a type error, which is GOOD, but throwing during test
|
|
;;; -- return type assumed to be String, but really is Bytes
|
|
;;; (ugly, but at least we catch it statically)
|
|
;(with-input-from-file "test/regexp-fail.rkt"
|
|
; (lambda ()
|
|
; (define m (regexp-match: #rx"lang" (current-input-port)))
|
|
; (and m (bytes=? #;string=? (car m) #"lang"))))
|
|
)
|
|
|
|
;; 2016-06-13 : these really should be errors, just no-opts
|
|
;(test-compile-error
|
|
; #:require trivial/regexp
|
|
; #:exn #rx"mutation not allowed"
|
|
; ;; -- set! problems
|
|
; (ann (let-regexp: ([a #rx"(b)(B)"])
|
|
; (set! a #rx"")
|
|
; (regexp-match: a "hai"))
|
|
; (List String String String))
|
|
; (let ()
|
|
; (define-regexp: a #rx"h(i)")
|
|
; (set! a #rx"hi")
|
|
; (regexp-match a "hi"))
|
|
;
|
|
; (let-regexp: ([a #rx"h(i)"])
|
|
; (set! a #rx"(h)(i)")
|
|
; (regexp-match a "hi"))
|
|
;)
|
|
)
|