64 lines
1.6 KiB
Scheme
64 lines
1.6 KiB
Scheme
|
;; Copyright 2020 Lassi Kortela
|
||
|
|
;; SPDX-License-Identifier: ISC
|
||
|
|
|
||
|
|
(import (scheme base) (srfi 64) (lassik string-inflection))
|
||
|
|
|
||
|
|
(test-begin "string-inflection")
|
||
|
|
|
||
|
|
(test-equal "command-output-to-string"
|
||
|
|
(string-inflection-lisp "command_output_to_string"))
|
||
|
|
|
||
|
|
(test-equal "command_output_to_string"
|
||
|
|
(string-inflection-underscore "command--output_to-string"))
|
||
|
|
|
||
|
|
(test-equal "a_single_line"
|
||
|
|
(string-inflection-underscore "ASingleLine"))
|
||
|
|
|
||
|
|
(test-equal '("PHP" "Mode")
|
||
|
|
(string-inflection-split "PHPMode"))
|
||
|
|
|
||
|
|
(test-equal '("Ends" "With" "PHP")
|
||
|
|
(string-inflection-split "EndsWithPHP"))
|
||
|
|
|
||
|
|
(test-equal '("PHP" "And" "XML" "Too")
|
||
|
|
(string-inflection-split "PHPAndXMLToo"))
|
||
|
|
|
||
|
|
(test-equal '("php" "And" "Xml" "Too")
|
||
|
|
(string-inflection-split "phpAndXmlToo"))
|
||
|
|
|
||
|
|
;; This one does not have the expected split.
|
||
|
|
(test-equal '("PH" "Pand" "XM" "Ltoo")
|
||
|
|
(string-inflection-split "PHPandXMLtoo"))
|
||
|
|
|
||
|
|
(test-equal '("list" "take" "right")
|
||
|
|
(string-inflection-split "list-take-right"))
|
||
|
|
|
||
|
|
(test-equal '("list" "null" "?")
|
||
|
|
(string-inflection-split "list-null?"))
|
||
|
|
|
||
|
|
(test-equal '("string" "=" "?")
|
||
|
|
(string-inflection-split "string=?"))
|
||
|
|
|
||
|
|
(test-equal '("string" "ci" "<=" "?")
|
||
|
|
(string-inflection-split "string-ci<=?"))
|
||
|
|
|
||
|
|
(test-equal '("what" "happened" "?" "!")
|
||
|
|
(string-inflection-split "what-happened?!"))
|
||
|
|
|
||
|
|
(test-equal '()
|
||
|
|
(string-inflection-split ""))
|
||
|
|
|
||
|
|
(test-equal ""
|
||
|
|
(string-inflection-caps-upper ""))
|
||
|
|
|
||
|
|
(test-equal "FooBarBaz"
|
||
|
|
(string-inflection-caps-upper "foo-bar-baz"))
|
||
|
|
|
||
|
|
(test-equal "fooBarBaz"
|
||
|
|
(string-inflection-caps-lower "foo-bar-baz"))
|
||
|
|
|
||
|
|
(test-equal "XmlToJson"
|
||
|
|
(string-inflection-caps-upper "XML-to-JSON"))
|
||
|
|
|
||
|
|
(test-end "string-inflection")
|