0. #lang racket
1.  
2. (string-suffix? "Racket" "et")
3. (string-suffix? (string->path "Racket") "et")

=>

#t

string-suffix?: contract violation

expected: string?

given: #<path:Racket>