(define-module (test cpp util) :use-module (srfi srfi-64) :use-module (srfi srfi-88) :use-module (c cpp-util) :use-module ((c lex2) :select (lex lexeme))) (test-group "Merge string literals" (test-equal "To simple strings" (list (lexeme type: 'preprocessing-token body: '(string-literal (encoding-prefix) "Hello" "World"))) (merge-string-literals (lex "\"Hello\"\"World\""))) ;; TODO tests with prefixes )