#lang br
(require "lexer.rkt" brag/support rackunit)

(define (lex str)
  (apply-port-proc uahgi2-lexer str))

(lex "@a123")
(lex "{@_a12|foo|123.12}123abc\\@\\{mn̂g他@@愛@@貓，也愛這塊土地%註解%。這也是%%。")
(lex "|測試}abc")