simplify test case

Author: bobzhang

jscomp/test/gpr_4280_test.js

@@ -22,10 +22,6 @@ function string(s) {
 
 }
 
-var React = {
-  string: string
-};
-
 function fn(authState, route) {
   var exit = 0;
   var onboardingRoute;
@@ -91,6 +87,6 @@ if (fn(/* Unauthenticated */-54822762, /* Invite */-730831383) !== 1) {
 
 exports.u = u;
 exports.div = div;
-exports.React = React;
+exports.string = string;
 exports.fn = fn;
 /*  Not a pure module */

jscomp/test/gpr_4280_test.ml

@@ -5,36 +5,36 @@ let div ~children () =
     u := 300;  
     Js.log "nonline"
   done
-module React = struct 
+
   let string (s : string) =   
     for i = 0 to 1 do 
       u := 200;
       Js.log "no"
     done     
-end     
+
 let fn authState route =
   match (authState, route) with
   | (`Unauthenticated,`Onboarding onboardingRoute)
   | (`Unverified _,`Onboarding onboardingRoute) ->
     Js.Console.log onboardingRoute;
     div
-      ~children:[React.string
+      ~children:[string
                    "Onboarding"] ();
       0
   | (`Unauthenticated,`SignIn)|(`Unauthenticated,`SignUp)
   |(`Unauthenticated,`Invite)|(`Unauthenticated,`PasswordReset) ->
     div
-      ~children:[React.string
+      ~children:[string
                    "LoggedOut"] ();1
 
   | (`Unverified user,_) ->
     Js.Console.log user;
     div
-      ~children:[React.string
+      ~children:[string
                    "VerifyEmail"] ();
       2
   | (`Unauthenticated,_) ->
     div
-      ~children:[React.string
+      ~children:[string
                    "Redirect"] ();3
 ;; assert (fn (`Unauthenticated) `Invite  = 1 ) (* == 1*)