newlisp/qa-specific-tests/qa-utf8-compile

9 lines
182 B
Plaintext
Executable File

#!/usr/bin/newlisp
(if (catch (regex-comp "ほげほげ" 0x800) 'result)
(println ">>>>> UTF-8 compile SUCESSFULL")
(println ">>>>> PROBLEM in UTF-8 compile:\n" result))
(exit)