Close #448 - [extras-string] Add case conversion - Seq[String].mkCame…

…lCaseString

build.sbt

@@ -114,6 +114,7 @@ lazy val extrasCoreJs  = extrasCore.js.settings(Test / fork := false)
 lazy val extrasString    = crossSubProject("string", crossProject(JVMPlatform, JSPlatform))
   .settings(
     crossScalaVersions := props.CrossScalaVersions,
+    libraryDependencies += libs.cats % Test,
     libraryDependencies := removeScala3Incompatible(scalaVersion.value, libraryDependencies.value),
   )
 lazy val extrasStringJvm = extrasString.jvm
@@ -1119,7 +1120,7 @@ lazy val props = new {
   val isScala3Incompatible: ModuleID => Boolean =
     m =>
       m.name == "wartremover" ||
-      m.name == "ammonite" ||
+        m.name == "ammonite" ||
         m.name == "kind-projector" ||
         m.name == "better-monadic-for"
 

modules/extras-string/shared/src/main/scala/extras/strings/syntax/cases.scala

@@ -87,6 +87,10 @@ object cases extends cases {
         } yield pascal).mkString
       }.mkString
 
+    def mkCamelCaseString: String =
+      ss.headOption.fold("")(_.toCamelCase) +
+        ss.drop(1).mkPascalCaseString
+
   }
 
 }

modules/extras-string/shared/src/test/scala/extras/strings/syntax/casesSpec/Gens.scala

@@ -1,5 +1,6 @@
 package extras.strings.syntax.casesSpec
 
+import cats.syntax.all._
 import hedgehog._
 
 /** @author Kevin Lee
@@ -13,7 +14,23 @@ object Gens {
       tail <- Gen.string(Gen.lower, Range.linear(min - 1, max - 1))
     } yield head +: tail
 
-  def genCamelCaseList(range: Range[Int]): Gen[List[String]] =
-    Gen.string(Gen.lower, Range.linear(1, 5)).list(range)
+  def genFirstLowerCasesThenAllPascalCases(maxLength: Int)(min: Int, max: Int): Gen[List[String]] = {
+    if (maxLength < 2) {
+      sys.error(show"maxLength should not be less than 2. maxLength=$maxLength")
+    } else if (min > max) {
+      sys.error(show"min should not be greater than max. min=$min, max=$max")
+    } else if (min <= 0) {
+      sys.error(show"min should be greater than 0. min=$min")
+    } else {
+      for {
+        first <- Gen.string(Gen.lower, Range.linear(1, 5))
+        rest  <- if ((max - 1) === 0)
+                   Gen.constant(List.empty)
+                 else
+                   genPascalCase(2, 5).list(Range.linear(min - 1, max - 1))
+      } yield first :: rest
+
+    }
+  }
 
 }