fix: Swiss currency parsing (#8546)

* fix: Swiss currency parsing

* remove only

* Apply suggestion from @snowystinger

* add comment

Author: snowystinger

packages/@internationalized/number/src/NumberParser.ts

@@ -215,6 +215,12 @@ class NumberParserImpl {
       }
     }
 
+    // In some locale styles, such as swiss currency, the group character can be a special single quote
+    // that keyboards don't typically have. This expands the character to include the easier to type single quote.
+    if (this.symbols.group === '’' && value.includes("'")) {
+      value = replaceAll(value, "'", this.symbols.group);
+    }
+
     // fr-FR group character is narrow non-breaking space, char code 8239 (U+202F), but that's not a key on the french keyboard,
     // so allow space and non-breaking space as a group char as well
     if (this.options.locale === 'fr-FR' && this.symbols.group) {

packages/@internationalized/number/test/NumberParser.test.js

@@ -188,6 +188,12 @@ describe('NumberParser', function () {
       });
     });
 
+    it('should parse a swiss currency number', () => {
+      expect(new NumberParser('de-CH', {style: 'currency', currency: 'CHF'}).parse('CHF 1’000.00')).toBe(1000);
+      expect(new NumberParser('de-CH', {style: 'currency', currency: 'CHF'}).parse("CHF 1'000.00")).toBe(1000);
+      expect(new NumberParser('de-CH', {style: 'currency', currency: 'CHF'}).parse("CHF 1'000.00")).toBe(1000);
+    });
+
     describe('round trips', function () {
       fc.configureGlobal({numRuns: 200});
       // Locales have to include: 'de-DE', 'ar-EG', 'fr-FR' and possibly others