(CommandList children: [ (C {(set)} {(-eu)}) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:WARNING) op:Equal rhs:{(SQ <'\\033[0;31m'>)} spids:[12])] spids: [12] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:SUCCESS) op:Equal rhs:{(SQ <'\\033[0;32m'>)} spids:[17])] spids: [17] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:INFO) op:Equal rhs:{(SQ )} spids:[22])] spids: [22] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:DEBUG) op:Equal rhs:{(SQ )} spids:[26])] spids: [26] ) (Assignment keyword: Assign_None pairs: [(assign_pair lhs:(LhsName name:RESET) op:Equal rhs:{(SQ <'\\033[0m'>)} spids:[30])] spids: [30] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:VERBOSE) op: Equal rhs: { (BracedVarSub token: <VSub_Name VERBOSE> suffix_op: (StringUnary op_id:VTest_ColonHyphen arg_word:{}) spids: [36 39] ) } spids: [35] ) ] spids: [35] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:DIR) op: Equal rhs: { (DQ (CommandSubPart command_list: (CommandList children: [ (AndOr ops: [Op_DAmp] children: [ (C {(cd)} { (DQ (CommandSubPart command_list: (CommandList children: [ (C {(dirname)} { (DQ (BracedVarSub token: <VSub_Name BASH_SOURCE> bracket_op: (ArrayIndex expr: (ArithWord w:{(Lit_Digits 0)}) ) spids: [54 59] ) ) } ) ] ) left_token: <Left_CommandSub '$('> spids: [49 62] ) ) } ) (C {(pwd)}) ] ) ] ) left_token: <Left_CommandSub '$('> spids: [44 69] ) ) } spids: [42] ) ] spids: [42] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:REFMT) op: Equal rhs: {(DQ ($ VSub_Name '$DIR') (/../refmt_impl.native))} spids: [73] ) ] spids: [73] ) (If arms: [ (if_arm cond: [ (Sentence child: (DBracket expr:(BoolUnary op_id:BoolUnary_f child:{(REFMT)})) terminator: <Op_Semi ';'> ) ] action: [ (SimpleCommand words: [{(echo)} {(DQ ('Cannot find refmt at ') ($ VSub_Name '$REFMT'))}] redirects: [(Redir op_id:Redir_GreatAnd fd:1 arg_word:{(2)} spids:[101])] ) (Sentence child: (ControlFlow token:<ControlFlow_Exit exit> arg_word:{(1)}) terminator: <Op_Semi ';'> ) ] spids: [16777215 91] ) ] spids: [16777215 110] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:UNIT_TEST_INPUT) op: Equal rhs: {($ VSub_Name '$DIR') (/unit_tests/input)} spids: [113] ) ] spids: [113] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:UNIT_TEST_OUTPUT) op: Equal rhs: {($ VSub_Name '$DIR') (/unit_tests/actual_output)} spids: [118] ) ] spids: [118] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:UNIT_TEST_EXPECTED_OUTPUT) op: Equal rhs: {($ VSub_Name '$DIR') (/unit_tests/expected_output)} spids: [123] ) ] spids: [123] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:TYPE_TEST_INPUT) op: Equal rhs: {($ VSub_Name '$DIR') (/typeCheckedTests/input)} spids: [129] ) ] spids: [129] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:TYPE_TEST_OUTPUT) op: Equal rhs: {($ VSub_Name '$DIR') (/typeCheckedTests/actual_output)} spids: [134] ) ] spids: [134] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:TYPE_TEST_EXPECTED_OUTPUT) op: Equal rhs: {($ VSub_Name '$DIR') (/typeCheckedTests/expected_output)} spids: [139] ) ] spids: [139] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:ERROR_TEST_INPUT) op: Equal rhs: {($ VSub_Name '$DIR') (/errorTests/input)} spids: [145] ) ] spids: [145] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:ERROR_TEST_OUTPUT) op: Equal rhs: {($ VSub_Name '$DIR') (/errorTests/actual_output)} spids: [150] ) ] spids: [150] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:ERROR_TEST_EXPECTED_OUTPUT) op: Equal rhs: {($ VSub_Name '$DIR') (/errorTests/expected_output)} spids: [155] ) ] spids: [155] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:FAILED_TESTS) op: Equal rhs: {($ VSub_Name '$DIR') (/failed_tests)} spids: [161] ) ] spids: [161] ) (FuncDef name: info body: (BraceGroup children: [ (C {(printf)} { (DQ (${ VSub_Name INFO) ($ VSub_Number '$1') (${ VSub_Name RESET) (Lit_Other '\\') (n)) } ) ] spids: [172] ) spids: [166 171] ) (FuncDef name: debug body: (BraceGroup children: [ (If arms: [ (if_arm cond: [ (Sentence child: (C {(Lit_Other '[')} {(KW_Bang '!')} {(-z)} {(DQ ($ VSub_Name '$VERBOSE'))} {(Lit_Other ']')} ) terminator: <Op_Semi ';'> ) ] action: [ (C {(printf)} { (DQ (${ VSub_Name DEBUG) ($ VSub_Number '$1') (${ VSub_Name RESET) (Lit_Other '\\') (n) ) } ) ] spids: [16777215 216] ) ] spids: [16777215 234] ) ] spids: [198] ) spids: [192 197] ) (FuncDef name: success body: (BraceGroup children: [ (C {(printf)} { (DQ (${ VSub_Name SUCCESS) ($ VSub_Number '$1') (${ VSub_Name RESET) (Lit_Other '\\') (n)) } ) ] spids: [245] ) spids: [239 244] ) (FuncDef name: output body: (BraceGroup children: [(C {(printf)} {(DQ ($ VSub_Number '$1') (Lit_Other '\\') (n))})] spids: [271] ) spids: [265 270] ) (FuncDef name: warning body: (BraceGroup children: [ (C {(printf)} { (DQ (${ VSub_Name WARNING) ($ VSub_Number '$1') (${ VSub_Name RESET) (Lit_Other '\\') (n)) } ) ] spids: [291] ) spids: [285 290] ) (FuncDef name: setup_test_dir body: (BraceGroup children: [ (C {(echo)} {(DQ ("Setting up test dirs actual_output alongside the tests' expected_output"))} ) (C {(mkdir)} {(-p)} {($ VSub_Name '$UNIT_TEST_OUTPUT')} {($ VSub_Name '$TYPE_TEST_OUTPUT')} {($ VSub_Name '$ERROR_TEST_OUTPUT')} ) (C {(touch)} {($ VSub_Name '$FAILED_TESTS')}) ] spids: [317] ) spids: [311 316] ) (C {(setup_test_dir)}) (C {(set)} {(Lit_Other '+') (e)}) (FuncDef name: stdin_test body: (BraceGroup children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:INPUT_FILE) op: Equal rhs: {($ VSub_Number '$1')} spids: [363] ) ] spids: [363] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:OUTPUT_FILE) op: Equal rhs: {($ VSub_Number '$2')} spids: [367] ) ] spids: [367] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:EXPECTED_OUTPUT_FILE) op: Equal rhs: {($ VSub_Number '$3')} spids: [371] ) ] spids: [371] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:HEURISTICS_FILE) op: Equal rhs: {($ VSub_Number '$4')} spids: [379] ) ] spids: [379] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:FILENAME) op: Equal rhs: { (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$INPUT_FILE')})] ) left_token: <Left_CommandSub '$('> spids: [385 389] ) } spids: [384] ) ] spids: [384] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:FILEEXT) op: Equal rhs: { (DQ (BracedVarSub token: <VSub_Name FILENAME> suffix_op: (StringUnary op_id:VOp1_DPound arg_word:{('*.')}) spids: [394 398] ) ) } spids: [392] ) ] spids: [392] ) (If arms: [ (if_arm cond: [ (Sentence child: (DBracket expr: (BoolBinary op_id: BoolBinary_GlobEqual left: {($ VSub_Name '$FILEEXT')} right: {(DQ (re))} ) ) terminator: <Op_Semi ';'> ) ] action: [ (Pipeline children: [ (C {(cat)} {($ VSub_Name '$INPUT_FILE')}) (SimpleCommand words: [ {($ VSub_Name '$REFMT')} {(-is-interface-pp)} {(false)} {(-print-width)} {(50)} {(-parse)} {(re)} {(-print)} {(re)} {(-use-stdin)} {(true)} ] redirects: [ (Redir op_id: Redir_GreatAnd fd: 2 arg_word: {(1)} spids: [449] ) (Redir op_id: Redir_Great fd: 16777215 arg_word: {($ VSub_Name '$OUTPUT_FILE')} spids: [452] ) ] ) ] negated: F ) ] spids: [16777215 418] ) (if_arm cond: [ (Sentence child: (DBracket expr: (BoolBinary op_id: BoolBinary_GlobEqual left: {($ VSub_Name '$FILEEXT')} right: {(DQ (rei))} ) ) terminator: <Op_Semi ';'> ) ] action: [ (Pipeline children: [ (C {(cat)} {($ VSub_Name '$INPUT_FILE')}) (SimpleCommand words: [ {($ VSub_Name '$REFMT')} {(-is-interface-pp)} {(true)} {(-print-width)} {(50)} {(-parse)} {(re)} {(-print)} {(re)} {(-use-stdin)} {(true)} ] redirects: [ (Redir op_id: Redir_GreatAnd fd: 2 arg_word: {(1)} spids: [503] ) (Redir op_id: Redir_Great fd: 16777215 arg_word: {($ VSub_Name '$OUTPUT_FILE')} spids: [506] ) ] ) ] negated: F ) ] spids: [457 472] ) (if_arm cond: [ (Sentence child: (DBracket expr: (BoolBinary op_id: BoolBinary_GlobEqual left: {($ VSub_Name '$FILEEXT')} right: {(DQ (ml))} ) ) terminator: <Op_Semi ';'> ) ] action: [ (Pipeline children: [ (C {(cat)} {($ VSub_Name '$INPUT_FILE')}) (SimpleCommand words: [ {($ VSub_Name '$REFMT')} {(-heuristics-file)} {($ VSub_Name '$HEURISTICS_FILE')} {(-is-interface-pp)} {(false)} {(-print-width)} {(50)} {(-parse)} {(ml)} {(-print)} {(re)} {(-use-stdin)} {(true)} ] redirects: [ (Redir op_id: Redir_GreatAnd fd: 2 arg_word: {(1)} spids: [561] ) (Redir op_id: Redir_Great fd: 16777215 arg_word: {($ VSub_Name '$OUTPUT_FILE')} spids: [564] ) ] ) ] negated: F ) ] spids: [511 526] ) (if_arm cond: [ (Sentence child: (DBracket expr: (BoolBinary op_id: BoolBinary_GlobEqual left: {($ VSub_Name '$FILEEXT')} right: {(DQ (mli))} ) ) terminator: <Op_Semi ';'> ) ] action: [ (Pipeline children: [ (C {(cat)} {($ VSub_Name '$INPUT_FILE')}) (SimpleCommand words: [ {($ VSub_Name '$REFMT')} {(-heuristics-file)} {($ VSub_Name '$HEURISTICS_FILE')} {(-is-interface-pp)} {(true)} {(-print-width)} {(50)} {(-parse)} {(ml)} {(-print)} {(re)} {(-use-stdin)} {(true)} ] redirects: [ (Redir op_id: Redir_GreatAnd fd: 2 arg_word: {(1)} spids: [619] ) (Redir op_id: Redir_Great fd: 16777215 arg_word: {($ VSub_Name '$OUTPUT_FILE')} spids: [622] ) ] ) ] negated: F ) ] spids: [569 584] ) ] else_action: [ (C {(warning)} {(DQ (' \xe2\x8a\x98 FAILED -use-stdin ') (Lit_Other '\\') (n))}) (C {(info)} { (DQ (' Cannot determine default implementation parser for extension ') (${ VSub_Name FILEEXT) ) } ) (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)}) ] spids: [627 654] ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (C {(warning)} {(DQ (' \xe2\x8a\x98 FAILED -use-stdin ') (Lit_Other '\\') (n))}) (C {(info)} {(DQ (' There was an error when testing -use-stdin'))}) (C {(info)} {(DQ (' for input file ') ($ VSub_Name '$INPUT_FILE'))}) (C {(info)} {(DQ (' and output file ') ($ VSub_Name '$OUTPUT_FILE') (${ VSub_Name RESET))} ) (C {(echo)} {(DQ )}) (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)}) ] spids: [16777215 673] ) ] spids: [16777215 722] ) (C {(debug)} { (DQ (' Comparing -use-stdin results: diff ') ($ VSub_Name '$OUTPUT_FILE') (' ') ($ VSub_Name '$EXPECTED_OUTPUT_FILE') ) } ) (C {(diff)} {(--unchanged-line-format) (Lit_Other '=') (DQ )} {(--new-line-format) (Lit_Other '=') (DQ (':%dn: %L'))} {(--old-line-format) (Lit_Other '=') (DQ (':%dn: %L'))} {($ VSub_Name '$OUTPUT_FILE')} {($ VSub_Name '$EXPECTED_OUTPUT_FILE')} ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (C {(warning)} {(DQ (' \xe2\x8a\x98 FAILED -use-stdin ') (Lit_Other '\\') (n))}) (C {(info)} { (DQ (' ') (${ VSub_Name INFO) ($ VSub_Name '$OUTPUT_FILE') (${ VSub_Name RESET)) } ) (C {(info)} {(DQ (" doesn't match expected output"))}) (C {(info)} { (DQ (' ') (${ VSub_Name INFO) ($ VSub_Name '$EXPECTED_OUTPUT_FILE') (${ VSub_Name RESET) ) } ) (C {(echo)} {(DQ )}) (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)}) ] spids: [16777215 776] ) ] spids: [16777215 834] ) (ControlFlow token:<ControlFlow_Return return> arg_word:{(0)}) ] spids: [360] ) spids: [354 359] ) (FuncDef name: unit_test body: (BraceGroup children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:FILE) op: Equal rhs: {($ VSub_Number '$1')} spids: [853] ) ] spids: [853] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:INPUT) op: Equal rhs: {($ VSub_Number '$2')} spids: [857] ) ] spids: [857] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:OUTPUT) op: Equal rhs: {($ VSub_Number '$3')} spids: [861] ) ] spids: [861] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:EXPECTED_OUTPUT) op: Equal rhs: {($ VSub_Number '$4')} spids: [865] ) ] spids: [865] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:FILENAME) op: Equal rhs: { (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')})] ) left_token: <Left_CommandSub '$('> spids: [871 875] ) } spids: [870] ) ] spids: [870] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:FILEEXT) op: Equal rhs: { (DQ (BracedVarSub token: <VSub_Name FILENAME> suffix_op: (StringUnary op_id:VOp1_DPound arg_word:{('*.')}) spids: [880 884] ) ) } spids: [878] ) ] spids: [878] ) (C {(info)} {(DQ ('Unit Test: ') ($ VSub_Name '$FILE'))}) (If arms: [ (if_arm cond: [ (Sentence child: (AndOr ops: [Op_DPipe] children: [ (C {(Lit_Other '[')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')})] ) left_token: <Left_CommandSub '$('> spids: [902 906] ) ) } {(KW_Bang '!') (Lit_Other '=')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.ml)})] ) left_token: <Left_CommandSub '$('> spids: [913 919] ) ) } {(Lit_Other ']')} ) (C {(Lit_Other '[')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')})] ) left_token: <Left_CommandSub '$('> spids: [929 933] ) ) } {(KW_Bang '!') (Lit_Other '=')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.mli)})] ) left_token: <Left_CommandSub '$('> spids: [940 946] ) ) } {(Lit_Other ']')} ) ] ) terminator: <Op_Semi ';'> ) ] action: [ (If arms: [ (if_arm cond: [ (Sentence child: (C {(Lit_Other '[')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')})] ) left_token: <Left_CommandSub '$('> spids: [960 964] ) ) } {(KW_Bang '!') (Lit_Other '=')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.ml)})] ) left_token: <Left_CommandSub '$('> spids: [971 977] ) ) } {(Lit_Other ']')} ) terminator: <Op_Semi ';'> ) ] action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:REFILE) op: Equal rhs: { (DQ (CommandSubPart command_list: (CommandList children: [ (C {(basename)} {($ VSub_Name '$FILE')} {(.ml)}) ] ) left_token: <Left_CommandSub '$('> spids: [988 994] ) (.re) ) } spids: [986] ) ] spids: [986] ) ] spids: [16777215 983] ) ] else_action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:REFILE) op: Equal rhs: { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.mli)})] ) left_token: <Left_CommandSub '$('> spids: [1004 1010] ) (.rei) ) } spids: [1002] ) ] spids: [1002] ) ] spids: [999 1015] ) (C {(debug)} { (DQ ($ VSub_Name '$REFMT') (' -heuristics-file ') ($ VSub_Name '$INPUT') ('/arity.txt -print-width 50 -print re ') ($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE') (' 2>&1 > ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$REFILE') ) } ) (SimpleCommand words: [ {($ VSub_Name '$REFMT')} {(-heuristics-file)} {($ VSub_Name '$INPUT') (/arity.txt)} {(-print-width)} {(50)} {(-print)} {(re)} {($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE')} ] redirects: [ (Redir op_id: Redir_GreatAnd fd: 2 arg_word: {(1)} spids: [1054] ) (Redir op_id: Redir_Great fd: 16777215 arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$REFILE')} spids: [1057] ) ] ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (C {(warning)} { (DQ (' \xe2\x8a\x98 TEST FAILED CONVERTING ML TO RE') (Lit_Other '\\') (n) ) } ) (ControlFlow token: <ControlFlow_Return return> arg_word: {(1)} ) ] spids: [16777215 1079] ) ] spids: [16777215 1096] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:FILE) op: Equal rhs: {($ VSub_Name '$REFILE')} spids: [1099] ) ] spids: [1099] ) ] spids: [16777215 952] ) ] else_action: [ (C {(debug)} { (DQ (" '") ($ VSub_Name '$REFMT') (' -print-width 50 -print re ') ($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE') (' 2>&1 > ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') ("'") ) } ) (SimpleCommand words: [ {($ VSub_Name '$REFMT')} {(-print-width)} {(50)} {(-print)} {(re)} {($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE')} ] redirects: [ (Redir op_id:Redir_GreatAnd fd:2 arg_word:{(1)} spids:[1137]) (Redir op_id: Redir_Great fd: 16777215 arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} spids: [1140] ) ] ) ] spids: [1103 1147] ) (C {(debug)} { (DQ (' Comparing results: diff ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (' ') ($ VSub_Name '$EXPECTED_OUTPUT') (/) ($ VSub_Name '$FILE') ) } ) (C {(diff)} {(--unchanged-line-format) (Lit_Other '=') (DQ )} {(--new-line-format) (Lit_Other '=') (DQ (':%dn: %L'))} {(--old-line-format) (Lit_Other '=') (DQ (':%dn: %L'))} {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} {($ VSub_Name '$EXPECTED_OUTPUT') (/) ($ VSub_Name '$FILE')} ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (C {(warning)} {(DQ (' \xe2\x8a\x98 FAILED') (Lit_Other '\\') (n))}) (C {(info)} { (DQ (' ') (${ VSub_Name INFO) ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (${ VSub_Name RESET) ) } ) (C {(info)} {(DQ (" doesn't match expected output"))}) (C {(info)} { (DQ (' ') (${ VSub_Name INFO) ($ VSub_Name '$EXPECTED_OUTPUT') (/) ($ VSub_Name '$FILE') (${ VSub_Name RESET) ) } ) (C {(echo)} {(DQ )}) (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)}) ] spids: [16777215 1210] ) ] spids: [16777215 1272] ) (C {(debug)} {(DQ ('Testing -use-stdin'))}) (C {(stdin_test)} {($ VSub_Name '$INPUT') (/) ($ VSub_Number '$1')} {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} {($ VSub_Name '$EXPECTED_OUTPUT') (/) ($ VSub_Name '$FILE')} {($ VSub_Name '$INPUT') (/arity.txt)} ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [(ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})] spids: [16777215 1317] ) ] else_action: [(C {(success)} {(DQ (' \xe2\x98\x91 PASS'))}) (C {(echo)})] spids: [1325 1338] ) ] spids: [850] ) spids: [844 849] ) (FuncDef name: idempotent_test body: (BraceGroup children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:FILE) op: Equal rhs: {($ VSub_Number '$1')} spids: [1352] ) ] spids: [1352] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:INPUT) op: Equal rhs: {($ VSub_Number '$2')} spids: [1356] ) ] spids: [1356] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:OUTPUT) op: Equal rhs: {($ VSub_Number '$3')} spids: [1360] ) ] spids: [1360] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:FILENAME) op: Equal rhs: { (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')})] ) left_token: <Left_CommandSub '$('> spids: [1366 1370] ) } spids: [1365] ) ] spids: [1365] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:FILEEXT) op: Equal rhs: { (DQ (BracedVarSub token: <VSub_Name FILENAME> suffix_op: (StringUnary op_id:VOp1_DPound arg_word:{('*.')}) spids: [1375 1379] ) ) } spids: [1373] ) ] spids: [1373] ) (C {(info)} {(DQ ('Idempotent Test: ') ($ VSub_Name '$FILE'))}) (If arms: [ (if_arm cond: [ (Sentence child: (AndOr ops: [Op_DPipe] children: [ (C {(Lit_Other '[')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')})] ) left_token: <Left_CommandSub '$('> spids: [1397 1401] ) ) } {(KW_Bang '!') (Lit_Other '=')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.ml)})] ) left_token: <Left_CommandSub '$('> spids: [1408 1414] ) ) } {(Lit_Other ']')} ) (C {(Lit_Other '[')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')})] ) left_token: <Left_CommandSub '$('> spids: [1424 1428] ) ) } {(KW_Bang '!') (Lit_Other '=')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.mli)})] ) left_token: <Left_CommandSub '$('> spids: [1435 1441] ) ) } {(Lit_Other ']')} ) ] ) terminator: <Op_Semi ';'> ) ] action: [ (If arms: [ (if_arm cond: [ (Sentence child: (C {(Lit_Other '[')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')})] ) left_token: <Left_CommandSub '$('> spids: [1455 1459] ) ) } {(KW_Bang '!') (Lit_Other '=')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.ml)})] ) left_token: <Left_CommandSub '$('> spids: [1466 1472] ) ) } {(Lit_Other ']')} ) terminator: <Op_Semi ';'> ) ] action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:REFILE) op: Equal rhs: { (DQ (CommandSubPart command_list: (CommandList children: [ (C {(basename)} {($ VSub_Name '$FILE')} {(.ml)}) ] ) left_token: <Left_CommandSub '$('> spids: [1483 1489] ) (.re) ) } spids: [1481] ) ] spids: [1481] ) ] spids: [16777215 1478] ) ] else_action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:REFILE) op: Equal rhs: { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.mli)})] ) left_token: <Left_CommandSub '$('> spids: [1499 1505] ) (.rei) ) } spids: [1497] ) ] spids: [1497] ) ] spids: [1494 1510] ) (C {(debug)} { (DQ (' Converting ') ($ VSub_Name '$FILE') (' to ') ($ VSub_Name '$REFILE') (':') ) } ) (C {(debug)} { (DQ (' Formatting Once: ') ($ VSub_Name '$REFMT') (' -heuristics-file ') ($ VSub_Name '$INPUT') ('/arity.txt -print-width 50 -print re ') ($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE') (' 2>&1 > ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$REFILE') ) } ) (SimpleCommand words: [ {($ VSub_Name '$REFMT')} {(-heuristics-file)} {($ VSub_Name '$INPUT') (/arity.txt)} {(-print-width)} {(50)} {(-print)} {(re)} {($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE')} ] redirects: [ (Redir op_id: Redir_GreatAnd fd: 2 arg_word: {(1)} spids: [1562] ) (Redir op_id: Redir_Great fd: 16777215 arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$REFILE')} spids: [1565] ) ] ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (C {(warning)} {(DQ ('\xe2\x8a\x98 FAILED') (Lit_Other '\\') (n))}) (ControlFlow token: <ControlFlow_Return return> arg_word: {(1)} ) ] spids: [16777215 1587] ) ] spids: [16777215 1604] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:FILE) op: Equal rhs: {($ VSub_Name '$REFILE')} spids: [1607] ) ] spids: [1607] ) (C {(debug)} { (DQ (' Generating output again: ') ($ VSub_Name '$REFMT') (' -print-width 50 -print re ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (' 2>&1 > ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (.formatted) ) } ) (SimpleCommand words: [ {($ VSub_Name '$REFMT')} {(-print-width)} {(50)} {(-print)} {(re)} {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} ] redirects: [ (Redir op_id: Redir_GreatAnd fd: 2 arg_word: {(1)} spids: [1642] ) (Redir op_id: Redir_Great fd: 16777215 arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (.formatted)} spids: [1645] ) ] ) ] spids: [16777215 1447] ) ] else_action: [ (C {(debug)} { (DQ (" Formatting Once: '") ($ VSub_Name '$REFMT') (' -print-width 50 -print re ') ($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE') (' 2>&1 > ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') ("'") ) } ) (SimpleCommand words: [ {($ VSub_Name '$REFMT')} {(-print-width)} {(50)} {(-print)} {(re)} {($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE')} ] redirects: [ (Redir op_id:Redir_GreatAnd fd:2 arg_word:{(1)} spids:[1687]) (Redir op_id: Redir_Great fd: 16777215 arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} spids: [1690] ) ] ) (C {(debug)} { (DQ (' Generating output again: ') ($ VSub_Name '$REFMT') (' -print-width 50 -print re ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (' 2>&1 > ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (.formatted) ) } ) (SimpleCommand words: [ {($ VSub_Name '$REFMT')} {(-print-width)} {(50)} {(-print)} {(re)} {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} ] redirects: [ (Redir op_id:Redir_GreatAnd fd:2 arg_word:{(1)} spids:[1729]) (Redir op_id: Redir_Great fd: 16777215 arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (.formatted)} spids: [1732] ) ] ) ] spids: [1653 1740] ) (C {(diff)} {(--unchanged-line-format) (Lit_Other '=') (DQ )} {(--new-line-format) (Lit_Other '=') (DQ (':%dn: %L'))} {(--old-line-format) (Lit_Other '=') (DQ (':%dn: %L'))} {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (.formatted)} ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (C {(warning)} {(DQ ('\xe2\x8a\x98 FAILED') (Lit_Other '\\') (n))}) (C {(info)} { (DQ (' ') (${ VSub_Name INFO) ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (.formatted) (${ VSub_Name RESET) (Lit_Other '\\') (n) ) } ) (C {(info)} {(DQ (' is not same as'))}) (C {(info)} { (DQ (' ') (${ VSub_Name INFO) ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (${ VSub_Name RESET) ) } ) (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)}) ] spids: [16777215 1788] ) ] spids: [16777215 1847] ) (C {(debug)} {(DQ ('Testing -use-stdin'))}) (C {(stdin_test)} {($ VSub_Name '$INPUT') (/) ($ VSub_Number '$1')} {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} {($ VSub_Name '$INPUT') (/arity.txt)} ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [(ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})] spids: [16777215 1892] ) ] else_action: [ (C {(stdin_test)} {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (.formatted)} {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} {($ VSub_Name '$INPUT') (/arity.txt)} ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [(ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})] spids: [16777215 1937] ) ] else_action: [(C {(success)} {(DQ (' \xe2\x98\x91 PASS'))}) (C {(echo)})] spids: [1945 1958] ) ] spids: [1900 1961] ) ] spids: [1349] ) spids: [1343 1348] ) (FuncDef name: typecheck_test body: (BraceGroup children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:FILE) op: Equal rhs: {($ VSub_Number '$1')} spids: [1975] ) ] spids: [1975] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:INPUT) op: Equal rhs: {($ VSub_Number '$2')} spids: [1979] ) ] spids: [1979] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:OUTPUT) op: Equal rhs: {($ VSub_Number '$3')} spids: [1983] ) ] spids: [1983] ) (C {(info)} {(DQ ('Typecheck Test: ') ($ VSub_Name '$FILE'))}) (If arms: [ (if_arm cond: [ (Sentence child: (AndOr ops: [Op_DPipe] children: [ (C {(Lit_Other '[')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')})] ) left_token: <Left_CommandSub '$('> spids: [2001 2005] ) ) } {(KW_Bang '!') (Lit_Other '=')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.ml)})] ) left_token: <Left_CommandSub '$('> spids: [2012 2018] ) ) } {(Lit_Other ']')} ) (C {(Lit_Other '[')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')})] ) left_token: <Left_CommandSub '$('> spids: [2028 2032] ) ) } {(KW_Bang '!') (Lit_Other '=')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.mli)})] ) left_token: <Left_CommandSub '$('> spids: [2039 2045] ) ) } {(Lit_Other ']')} ) ] ) terminator: <Op_Semi ';'> ) ] action: [ (If arms: [ (if_arm cond: [ (Sentence child: (C {(Lit_Other '[')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')})] ) left_token: <Left_CommandSub '$('> spids: [2059 2063] ) ) } {(KW_Bang '!') (Lit_Other '=')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.ml)})] ) left_token: <Left_CommandSub '$('> spids: [2070 2076] ) ) } {(Lit_Other ']')} ) terminator: <Op_Semi ';'> ) ] action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:REFILE) op: Equal rhs: { (DQ (CommandSubPart command_list: (CommandList children: [ (C {(basename)} {($ VSub_Name '$FILE')} {(.ml)}) ] ) left_token: <Left_CommandSub '$('> spids: [2087 2093] ) (.re) ) } spids: [2085] ) ] spids: [2085] ) ] spids: [16777215 2082] ) ] else_action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:REFILE) op: Equal rhs: { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.mli)})] ) left_token: <Left_CommandSub '$('> spids: [2103 2109] ) (.rei) ) } spids: [2101] ) ] spids: [2101] ) ] spids: [2098 2114] ) (C {(debug)} { (DQ (' Converting ') ($ VSub_Name '$FILE') (' to ') ($ VSub_Name '$REFILE') (':') ) } ) (C {(debug)} { (DQ ($ VSub_Name '$REFMT') (' -heuristics-file ') ($ VSub_Name '$INPUT') ('/arity.txt -print-width 50 -print re ') ($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE') (' 2>&1 > ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$REFILE') ) } ) (SimpleCommand words: [ {($ VSub_Name '$REFMT')} {(-heuristics-file)} {($ VSub_Name '$INPUT') (/arity.txt)} {(-print-width)} {(50)} {(-print)} {(re)} {($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE')} ] redirects: [ (Redir op_id: Redir_GreatAnd fd: 2 arg_word: {(1)} spids: [2164] ) (Redir op_id: Redir_Great fd: 16777215 arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$REFILE')} spids: [2167] ) ] ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (C {(warning)} {(DQ (' \xe2\x8a\x98 FAILED') (Lit_Other '\\') (n))}) (ControlFlow token: <ControlFlow_Return return> arg_word: {(1)} ) ] spids: [16777215 2189] ) ] spids: [16777215 2206] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:FILE) op: Equal rhs: {($ VSub_Name '$REFILE')} spids: [2209] ) ] spids: [2209] ) ] spids: [16777215 2051] ) ] else_action: [ (C {(debug)} { (DQ (' Formatting: ') ($ VSub_Name '$REFMT') (' -print-width 50 -print re ') ($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE') (' 2>&1 > ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') ) } ) (SimpleCommand words: [ {($ VSub_Name '$REFMT')} {(-print-width)} {(50)} {(-print)} {(re)} {($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE')} ] redirects: [ (Redir op_id:Redir_GreatAnd fd:2 arg_word:{(1)} spids:[2246]) (Redir op_id: Redir_Great fd: 16777215 arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} spids: [2249] ) ] ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (C {(warning)} {(DQ (' \xe2\x8a\x98 FAILED') (Lit_Other '\\') (n))}) (ControlFlow token: <ControlFlow_Return return> arg_word: {(1)} ) ] spids: [16777215 2271] ) ] spids: [16777215 2288] ) ] spids: [2213 2291] ) (If arms: [ (if_arm cond: [ (Sentence child: (C {(Lit_Other '[')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')})] ) left_token: <Left_CommandSub '$('> spids: [2299 2303] ) ) } {(KW_Bang '!') (Lit_Other '=')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.re)})] ) left_token: <Left_CommandSub '$('> spids: [2310 2316] ) ) } {(Lit_Other ']')} ) terminator: <Op_Semi ';'> ) ] action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:COMPILE_FLAGS) op: Equal rhs: {(DQ ('-intf-suffix .rei -impl'))} spids: [2325] ) ] spids: [2325] ) ] spids: [16777215 2322] ) ] else_action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:COMPILE_FLAGS) op: Equal rhs: {(DQ (-intf))} spids: [2334] ) ] spids: [2334] ) ] spids: [2331 2340] ) (C {(debug)} { (DQ (' Compiling: ocamlc -c -pp ') ($ VSub_Name '$REFMT') (' ') ($ VSub_Name '$COMPILE_FLAGS') (' ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') ) } ) (C {(ocamlc)} {(-c)} {(-pp)} {($ VSub_Name '$REFMT')} {($ VSub_Name '$COMPILE_FLAGS')} {(DQ ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE'))} ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (C {(warning)} {(DQ (' \xe2\x8a\x98 FAILED') (Lit_Other '\\') (n))}) (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)}) ] spids: [16777215 2390] ) ] spids: [16777215 2407] ) (C {(success)} {(DQ (' \xe2\x98\x91 PASS'))}) (C {(echo)}) ] spids: [1972] ) spids: [1966 1971] ) (FuncDef name: error_test body: (BraceGroup children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:FILE) op: Equal rhs: {($ VSub_Number '$1')} spids: [2432] ) ] spids: [2432] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:INPUT) op: Equal rhs: {($ VSub_Number '$2')} spids: [2436] ) ] spids: [2436] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:OUTPUT) op: Equal rhs: {($ VSub_Number '$3')} spids: [2440] ) ] spids: [2440] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:EXPECTED_OUTPUT) op: Equal rhs: {($ VSub_Number '$4')} spids: [2444] ) ] spids: [2444] ) (C {(info)} {(DQ ('Error Test: ') ($ VSub_Name '$FILE'))}) (If arms: [ (if_arm cond: [ (Sentence child: (AndOr ops: [Op_DPipe] children: [ (C {(Lit_Other '[')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')})] ) left_token: <Left_CommandSub '$('> spids: [2462 2466] ) ) } {(KW_Bang '!') (Lit_Other '=')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.ml)})] ) left_token: <Left_CommandSub '$('> spids: [2473 2479] ) ) } {(Lit_Other ']')} ) (C {(Lit_Other '[')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')})] ) left_token: <Left_CommandSub '$('> spids: [2489 2493] ) ) } {(KW_Bang '!') (Lit_Other '=')} { (DQ (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.mli)})] ) left_token: <Left_CommandSub '$('> spids: [2500 2506] ) ) } {(Lit_Other ']')} ) ] ) terminator: <Op_Semi ';'> ) ] action: [ (C {(warning)} { (DQ ( ' \xe2\x8a\x98 FAILED: .ml files should not need to be run against error tests. ' ) (Lit_Other '\\') (n) ) } ) (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)}) ] spids: [16777215 2512] ) ] else_action: [ (C {(debug)} { (DQ (" '") ($ VSub_Name '$REFMT') (' -print-width 50 -print re ') ($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE') (' &> ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') ("'") ) } ) (C {(cd)} {($ VSub_Name '$INPUT')}) (Sentence child: (C {($ VSub_Name '$REFMT')} {(-print-width)} {(50)} {(-print)} {(re)} { (CommandSubPart command_list: (CommandList children: [(C {(basename)} {($ VSub_Name '$FILE')})] ) left_token: <Left_CommandSub '$('> spids: [2568 2572] ) } ) terminator: <Op_Amp '&'> ) (SimpleCommand redirects: [ (Redir op_id: Redir_Great fd: 16777215 arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} spids: [2575] ) ] ) (SimpleCommand words: [{(cd)} {(-)}] redirects: [ (Redir op_id: Redir_Great fd: 16777215 arg_word: {(/dev/null)} spids: [2586] ) ] ) ] spids: [2529 2591] ) (C {(debug)} { (DQ (' Comparing results: diff ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (' ') ($ VSub_Name '$EXPECTED_OUTPUT') (/) ($ VSub_Name '$FILE') ) } ) (C {(diff)} {(--unchanged-line-format) (Lit_Other '=') (DQ )} {(--new-line-format) (Lit_Other '=') (DQ (':%dn: %L'))} {(--old-line-format) (Lit_Other '=') (DQ (':%dn: %L'))} {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} {($ VSub_Name '$EXPECTED_OUTPUT') (/) ($ VSub_Name '$FILE')} ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (C {(warning)} {(DQ (' \xe2\x8a\x98 FAILED') (Lit_Other '\\') (n))}) (C {(info)} { (DQ (' ') (${ VSub_Name INFO) ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (${ VSub_Name RESET) ) } ) (C {(info)} {(DQ (" doesn't match expected output"))}) (C {(info)} { (DQ (' ') (${ VSub_Name INFO) ($ VSub_Name '$EXPECTED_OUTPUT') (/) ($ VSub_Name '$FILE') (${ VSub_Name RESET) ) } ) (C {(echo)} {(DQ )}) (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)}) ] spids: [16777215 2654] ) ] spids: [16777215 2716] ) (C {(success)} {(DQ (' \xe2\x98\x91 PASS'))}) (C {(echo)}) ] spids: [2429] ) spids: [2423 2428] ) (AndOr ops: [Op_DAmp] children: [ (C {(cd)} {($ VSub_Name '$UNIT_TEST_INPUT')}) (Pipeline children: [ (C {(find)} {(.)} {(-type)} {(f)} {(EscapedLiteralPart token:<Lit_EscapedChar '\\('>)} {(-name)} {(DQ ('*.re*'))} {(-or)} {(-name)} {(DQ ('*.ml*'))} {(EscapedLiteralPart token:<Lit_EscapedChar '\\)'>)} ) (While cond: [(Sentence child:(C {(read)} {(file)}) terminator:<Op_Semi ';'>)] body: (DoGroup children: [ (C {(unit_test)} {($ VSub_Name '$file')} {($ VSub_Name '$UNIT_TEST_INPUT')} {($ VSub_Name '$UNIT_TEST_OUTPUT')} {($ VSub_Name '$UNIT_TEST_EXPECTED_OUTPUT')} ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (SimpleCommand words: [{(echo)} {(DQ ($ VSub_Name '$file') (' -- failed unit_test'))}] redirects: [ (Redir op_id: Redir_DGreat fd: 16777215 arg_word: {($ VSub_Name '$FAILED_TESTS')} spids: [2812] ) ] ) ] spids: [16777215 2802] ) ] spids: [16777215 2817] ) (C {(idempotent_test)} {($ VSub_Name '$file')} {($ VSub_Name '$UNIT_TEST_INPUT')} {($ VSub_Name '$UNIT_TEST_OUTPUT')} {($ VSub_Name '$UNIT_TEST_EXPECTED_OUTPUT')} ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (SimpleCommand words: [ {(echo)} {(DQ ($ VSub_Name '$file') (' -- failed idempotent_test'))} ] redirects: [ (Redir op_id: Redir_DGreat fd: 16777215 arg_word: {($ VSub_Name '$FAILED_TESTS')} spids: [2857] ) ] ) ] spids: [16777215 2847] ) ] spids: [16777215 2862] ) ] spids: [2773 2864] ) ) ] negated: F ) ] ) (AndOr ops: [Op_DAmp] children: [ (C {(cd)} {($ VSub_Name '$TYPE_TEST_INPUT')}) (Pipeline children: [ (C {(find)} {(.)} {(-type)} {(f)} {(EscapedLiteralPart token:<Lit_EscapedChar '\\('>)} {(-name)} {(DQ ('*.re*'))} {(-or)} {(-name)} {(DQ ('*.ml*'))} {(EscapedLiteralPart token:<Lit_EscapedChar '\\)'>)} ) (C {(sort)}) (While cond: [(Sentence child:(C {(read)} {(file)}) terminator:<Op_Semi ';'>)] body: (DoGroup children: [ (C {(typecheck_test)} {($ VSub_Name '$file')} {($ VSub_Name '$TYPE_TEST_INPUT')} {($ VSub_Name '$TYPE_TEST_OUTPUT')} ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (SimpleCommand words: [ {(echo)} {(DQ ($ VSub_Name '$file') (' -- failed typecheck_test'))} ] redirects: [ (Redir op_id: Redir_DGreat fd: 16777215 arg_word: {($ VSub_Name '$FAILED_TESTS')} spids: [2949] ) ] ) ] spids: [16777215 2939] ) ] spids: [16777215 2954] ) (C {(unit_test)} {($ VSub_Name '$file')} {($ VSub_Name '$TYPE_TEST_INPUT')} {($ VSub_Name '$TYPE_TEST_OUTPUT')} {($ VSub_Name '$TYPE_TEST_EXPECTED_OUTPUT')} ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (SimpleCommand words: [{(echo)} {(DQ ($ VSub_Name '$file') (' -- failed unit_test'))}] redirects: [ (Redir op_id: Redir_DGreat fd: 16777215 arg_word: {($ VSub_Name '$FAILED_TESTS')} spids: [2993] ) ] ) ] spids: [16777215 2983] ) ] spids: [16777215 2998] ) (C {(idempotent_test)} {($ VSub_Name '$file')} {($ VSub_Name '$TYPE_TEST_INPUT')} {($ VSub_Name '$TYPE_TEST_OUTPUT')} {($ VSub_Name '$TYPE_TEST_EXPECTED_OUTPUT')} ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (SimpleCommand words: [ {(echo)} {(DQ ($ VSub_Name '$file') (' -- failed idempotent_test'))} ] redirects: [ (Redir op_id: Redir_DGreat fd: 16777215 arg_word: {($ VSub_Name '$FAILED_TESTS')} spids: [3037] ) ] ) ] spids: [16777215 3027] ) ] spids: [16777215 3042] ) ] spids: [2912 3044] ) ) ] negated: F ) ] ) (AndOr ops: [Op_DAmp] children: [ (C {(cd)} {($ VSub_Name '$ERROR_TEST_INPUT')}) (Pipeline children: [ (C {(find)} {(.)} {(-type)} {(f)} {(EscapedLiteralPart token:<Lit_EscapedChar '\\('>)} {(-name)} {(DQ ('*.re*'))} {(-or)} {(-name)} {(DQ ('*.ml*'))} {(EscapedLiteralPart token:<Lit_EscapedChar '\\)'>)} ) (While cond: [(Sentence child:(C {(read)} {(file)}) terminator:<Op_Semi ';'>)] body: (DoGroup children: [ (C {(error_test)} {($ VSub_Name '$file')} {($ VSub_Name '$ERROR_TEST_INPUT')} {($ VSub_Name '$ERROR_TEST_OUTPUT')} {($ VSub_Name '$ERROR_TEST_EXPECTED_OUTPUT')} ) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children: [ (DBracket expr: (BoolBinary op_id: BoolBinary_eq left: {($ VSub_QMark '$?')} right: {(0)} ) ) ] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (SimpleCommand words: [{(echo)} {(DQ ($ VSub_Name '$file') (' -- failed error_test'))}] redirects: [ (Redir op_id: Redir_DGreat fd: 16777215 arg_word: {($ VSub_Name '$FAILED_TESTS')} spids: [3127] ) ] ) ] spids: [16777215 3117] ) ] spids: [16777215 3132] ) ] spids: [3088 3134] ) ) ] negated: F ) ] ) (If arms: [ (if_arm cond: [ (Sentence child: (DBracket expr:(BoolUnary op_id:BoolUnary_s child:{($ VSub_Name '$FAILED_TESTS')})) terminator: <Op_Semi ';'> ) ] action: [ (C {(warning)} {(DQ ('Failed tests:'))}) (C {(cat)} {($ VSub_Name '$FAILED_TESTS')}) (ControlFlow token:<ControlFlow_Exit exit> arg_word:{(1)}) ] spids: [16777215 3148] ) ] spids: [16777215 3167] ) (ControlFlow token:<ControlFlow_Exit exit> arg_word:{(0)}) ] )