make fragments' Test.fromData be generated by relay compiler

CHANGELOG.md

@@ -1,3 +1,7 @@
+# master
+
+- generate fragments' `Test.fromData` inside `[FragmentName]_graphql.res` to avoid exporting the fragment module from the relay component. https://github.com/zth/rescript-relay/pull/635
+
 # 4.5.1
 
 - Fix `traverse` exiting after a custom-scalar field (single array-backed `c`, or `ca`), leaving subsequent fields on the same parent uncoerced. Surfaced as raw `null` for nullable response fields, raw ReScript values for unserialized variables, and (in nested input objects) silently skipped converters. Closes #582; extends #434's #407 fix so trailing fields are preserved.

packages/rescript-relay/__tests__/Test_testingHelpers.res

@@ -94,11 +94,11 @@ module Interleaved = {
 
     <div>
       <Synthetic
-        user={Fragment.Test.fromData({
+        user={TestTestingHelpers_user_graphql.Test.fromData({
           __id: RescriptRelay.makeDataId("interleaved-synthetic-user"),
           firstName: "Interleaved Synthetic",
           onlineStatus: Some(Online),
-          fragmentRefs: SubFragment.Test.fromData({lastName: "User"}),
+          fragmentRefs: TestTestingHelpers_sub_user_graphql.Test.fromData({lastName: "User"}),
         })}
       />
       <Synthetic user=data.loggedInUser.fragmentRefs />
@@ -109,35 +109,36 @@ module Interleaved = {
 @live
 let synthetic = () =>
   <Synthetic
-    user={Fragment.Test.fromData({
+    user={TestTestingHelpers_user_graphql.Test.fromData({
       __id: RescriptRelay.makeDataId("synthetic-user-1"),
       firstName: "Synthetic",
       onlineStatus: Some(Online),
-      fragmentRefs: SubFragment.Test.fromData({lastName: "User"}),
+      fragmentRefs: TestTestingHelpers_sub_user_graphql.Test.fromData({lastName: "User"}),
     })}
   />
 
 @live
 let syntheticOpt = () =>
   <SyntheticOpt
-    user={Fragment.Test.fromData({
+    user={TestTestingHelpers_user_graphql.Test.fromData({
       __id: RescriptRelay.makeDataId("synthetic-user-2"),
       firstName: "Synthetic",
       onlineStatus: Some(Online),
-      fragmentRefs: SubFragment.Test.fromData({lastName: "User"}),
+      fragmentRefs: TestTestingHelpers_sub_user_graphql.Test.fromData({lastName: "User"}),
     })}
   />
 
 @live
 let syntheticPlural = () =>
   <SyntheticPlural
-    users={PluralFragment.Test.fromData([
+    users={TestTestingHelpers_plural_user_graphql.Test.fromData([
       {id: "synthetic-user-3", firstName: "Plural Synthetic", onlineStatus: Some(Online)},
     ])}
   />
 
 @live
-let syntheticEmptyPlural = () => <SyntheticPlural users={PluralFragment.Test.fromData([])} />
+let syntheticEmptyPlural = () =>
+  <SyntheticPlural users={TestTestingHelpers_plural_user_graphql.Test.fromData([])} />
 
 @live
 let environment = () => RescriptRelay_Test.createMockEnvironment()