fix(support): support more to_snake_case edge cases (#1250)

Author: innocenzi

packages/support/src/Str/functions.php

@@ -63,12 +63,13 @@ function to_snake_case(Stringable|string $string, Stringable|string $delimiter =
             return $string;
         }
 
-        $string = preg_replace('/(.)(?=[A-Z])/u', '$1' . $delimiter, $string);
+        $string = preg_replace('/(?<=\p{Ll}|\p{N})(\p{Lu})/u', $delimiter . '$1', $string);
+        $string = preg_replace('/(?<=\p{Lu})(\p{Lu}\p{Ll})/u', $delimiter . '$1', $string);
         $string = preg_replace('![^' . preg_quote($delimiter) . '\pL\pN\s]+!u', $delimiter, mb_strtolower($string, 'UTF-8'));
         $string = preg_replace('/\s+/u', $delimiter, $string);
         $string = trim($string, $delimiter);
 
-        return deduplicate($string, $delimiter);
+        return namespace\deduplicate($string, $delimiter);
     }
 
     /**

packages/support/tests/Str/ManipulatesStringTest.php

@@ -79,22 +79,27 @@ public function test_kebab(): void
         $this->assertTrue(str('foo-bar_baz')->kebab()->equals('foo-bar-baz'));
     }
 
-    public function test_snake(): void
-    {
-        $this->assertTrue(str('')->snake()->equals(''));
-        $this->assertTrue(str('foo bar')->snake()->equals('foo_bar'));
-        $this->assertTrue(str('foo - bar')->snake()->equals('foo_bar'));
-        $this->assertTrue(str('foo__bar')->snake()->equals('foo_bar'));
-        $this->assertTrue(str('_foo__bar')->snake()->equals('foo_bar'));
-        $this->assertTrue(str('-foo__bar')->snake()->equals('foo_bar'));
-        $this->assertTrue(str('fooBar')->snake()->equals('foo_bar'));
-        $this->assertTrue(str('foo_bar')->snake()->equals('foo_bar'));
-        $this->assertTrue(str('foo_bar1')->snake()->equals('foo_bar1'));
-        $this->assertTrue(str('1foo_bar')->snake()->equals('1foo_bar'));
-        $this->assertTrue(str('1foo_bar11')->snake()->equals('1foo_bar11'));
-        $this->assertTrue(str('1foo_1bar1')->snake()->equals('1foo_1bar1'));
-        $this->assertTrue(str('foo-barBaz')->snake()->equals('foo_bar_baz'));
-        $this->assertTrue(str('foo-bar_baz')->snake()->equals('foo_bar_baz'));
+    #[TestWith(['', ''])]
+    #[TestWith(['foo bar', 'foo_bar'])]
+    #[TestWith(['foo - bar', 'foo_bar'])]
+    #[TestWith(['foo__bar', 'foo_bar'])]
+    #[TestWith(['_foo__bar', 'foo_bar'])]
+    #[TestWith(['-foo__bar', 'foo_bar'])]
+    #[TestWith(['fooBar', 'foo_bar'])]
+    #[TestWith(['foo_bar', 'foo_bar'])]
+    #[TestWith(['foo_bar1', 'foo_bar1'])]
+    #[TestWith(['1foo_bar', '1foo_bar'])]
+    #[TestWith(['1foo_bar11', '1foo_bar11'])]
+    #[TestWith(['1foo_1bar1', '1foo_1bar1'])]
+    #[TestWith(['foo-barBaz', 'foo_bar_baz'])]
+    #[TestWith(['foo-bar_baz', 'foo_bar_baz'])]
+    #[TestWith(['Application URI', 'application_uri'])]
+    #[TestWith(['URI', 'uri'])]
+    #[TestWith(['XMLHTTPRequest', 'xmlhttp_request'])]
+    #[TestWith(['HTTPRequest', 'http_request'])]
+    public function test_snake(string $input, string $output): void
+    {
+        $this->assertEquals($output, str($input)->snake()->toString());
     }
 
     #[TestWith([0])]