(CommandList children: [ (C {(echo)} {(DQ ('Testing reactjs @JSX ppx...'))}) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:testPath) op: Equal rhs: {(DQ (miscTests/reactjs_jsx_ppx_tests))} spids: [7] ) ] spids: [7] ) (ForEach iter_name: i iter_words: [{(1)} {(2)} {(3)} {(4)} {(5)}] do_arg_iter: F body: (DoGroup children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:test) op: Equal rhs: {(DQ ($ VSub_Name '$testPath') (/test) ($ VSub_Name '$i') (.re))} spids: [32] ) ] spids: [32] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:expected) op: Equal rhs: { (CommandSubPart command_list: (CommandList children: [ (C {(cat)} {($ VSub_Name '$testPath') (/expected) ($ VSub_Name '$i') (.txt)} ) ] ) left_token: <Left_Backtick '`'> spids: [43 50] ) } spids: [42] ) ] spids: [42] ) (Pipeline children: [ (SimpleCommand words: [ {(ocamlc)} {(-dsource)} {(-ppx)} {(./reactjs_jsx_ppx.native)} {(-pp)} {(./refmt_impl.native)} {(-impl)} {($ VSub_Name '$test')} ] redirects: [(Redir op_id:Redir_GreatAnd fd:2 arg_word:{(1)} spids:[72])] ) (C {(sed)} {(SQ <'$ d'>)}) (SimpleCommand words: [{(sed)} {(SQ <'$ d'>)}] redirects: [ (Redir op_id: Redir_Great fd: 16777215 arg_word: {($ VSub_Name '$testPath') (/actual) (${ VSub_Name i) (.txt)} spids: [90] ) ] ) ] negated: F ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:actual) op: Equal rhs: { (CommandSubPart command_list: (CommandList children: [ (C {(cat)} {($ VSub_Name '$testPath') (/actual) ($ VSub_Name '$i') (.txt)} ) ] ) left_token: <Left_Backtick '`'> spids: [110 117] ) } spids: [109] ) ] spids: [109] ) (If arms: [ (if_arm cond: [ (Sentence child: (DBracket expr: (BoolBinary op_id: BoolBinary_GlobEqual left: {(DQ ($ VSub_Name '$expected'))} right: {(DQ ($ VSub_Name '$actual'))} ) ) terminator: <Op_Semi ';'> ) ] action: [(C {(echo)} {(DQ (OK))})] spids: [16777215 138] ) ] else_action: [ (C {(echo)} {(DQ (Wrong))}) (C {(diff)} {(-u)} {($ VSub_Name '$testPath') (/expected) ($ VSub_Name '$i') (.txt)} {($ VSub_Name '$testPath') (/actual) ($ VSub_Name '$i') (.txt)} ) (ControlFlow token:<ControlFlow_Exit exit> arg_word:{(1)}) ] spids: [148 182] ) ] spids: [29 184] ) spids: [18 16777215] ) ] )