Fix reference to fragment with lowercase name (#2443)

Sources/ApolloCodegenLib/Templates/OperationDefinitionTemplate.swift

@@ -64,7 +64,7 @@ struct OperationDefinitionTemplate: OperationTemplateRenderer {
         definition: .init(
           \(operation.source.formatted(for: queryStringLiteralFormat))\(if: includeFragments, ",")
           \(if: includeFragments,
-                            "fragments: [\(fragments.map { "\($0.name).self" }, separator: ", ")]")
+                            "fragments: [\(fragments.map { "\($0.name.firstUppercased).self" }, separator: ", ")]")
         ))
       """,
       else: """

Tests/ApolloCodegenTests/CodeGeneration/Templates/OperationDefinitionTemplate_DocumentType_Tests.swift

@@ -162,6 +162,39 @@ class OperationDefinitionTemplate_DocumentType_Tests: XCTestCase {
     expect(actual).to(equalLineByLine(expected))
   }
 
+  func test__generate__givenIncludesFragment_fragmentNameStartsWithLowercase_generatesWithOperationDefinitionAndFragment_withFirstUppercased() throws {
+    // given
+    referencedFragments = [
+      .mock("nameFragment"),
+    ]
+
+    definition.source =
+    """
+    query NameQuery {
+      ...nameFragment
+    }
+    """
+
+    config = .mock(options: .init(
+      queryStringLiteralFormat: .singleLine,
+      apqs: .disabled
+    ))
+
+    // when
+    let actual = try renderDocumentType()
+
+    // then
+    let expected =
+    """
+    public static let document: DocumentType = .notPersisted(
+      definition: .init(
+        "query NameQuery {  ...nameFragment}",
+        fragments: [NameFragment.self]
+      ))
+    """
+    expect(actual).to(equalLineByLine(expected))
+  }
+
   func test__generate__givenIncludesManyFragments_formatMultiline_generatesWithOperationDefinitionAndFragment_asMultiline() throws {
     // given
     referencedFragments = [

Tests/TestCodeGenConfigurations/EmbeddedInTarget-RelativeAbsolute/PackageOne/Sources/PackageOne/graphql/DogFragment.graphql

@@ -1,3 +1,3 @@
-fragment DogFragment on Dog {
+fragment dogFragment on Dog {
   species
 }

Tests/TestCodeGenConfigurations/EmbeddedInTarget-RelativeAbsolute/PackageOne/Sources/PackageOne/graphql/DogFragment.swift

@@ -8,7 +8,7 @@ import PackageTwo
 
 struct DogFragment: MySchemaModule.SelectionSet, Fragment {
   public static var fragmentDefinition: StaticString { """
-    fragment DogFragment on Dog {
+    fragment dogFragment on Dog {
       __typename
       species
     }

Tests/TestCodeGenConfigurations/EmbeddedInTarget-RelativeAbsolute/PackageOne/Sources/PackageOne/graphql/DogQuery.graphql

@@ -1,5 +1,5 @@
 query DogQuery {
   dog {
-    ... DogFragment
+    ... dogFragment
   }
 }

Tests/TestCodeGenConfigurations/EmbeddedInTarget-RelativeAbsolute/PackageOne/Sources/PackageOne/graphql/DogQuery.swift

@@ -14,7 +14,7 @@ class DogQuery: GraphQLQuery {
       query DogQuery {
         dog {
           __typename
-          ...DogFragment
+          ...dogFragment
         }
       }
       """,