(CommandList children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:test_description spids:[13]) op: Equal rhs: {(SQ <'Perl gettext interface (Git::I18N)'>)} spids: [13] ) ] spids: [13] ) (C {(.)} {(./lib-gettext.sh)}) (If arms: [ (if_arm cond: [ (Sentence child: (Pipeline children:[(C {(test_have_prereq)} {(PERL)})] negated:T) terminator: <Op_Semi ';'> ) ] action: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:skip_all spids:[36]) op: Equal rhs: {(SQ <'skipping perl interface tests, perl not available'>)} spids: [36] ) ] spids: [36] ) (C {(test_done)}) ] spids: [16777215 33] ) ] spids: [16777215 44] ) (AndOr ops: [Op_DPipe] children: [ (SimpleCommand words: [{(perl)} {(-MTest) (Lit_Other ':') (Lit_Other ':') (More)} {(-e)} {(0)}] redirects: [(Redir op:<Redir_Great '2>'> fd:2 arg_word:{(/dev/null)})] ) (BraceGroup children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:skip_all spids:[66]) op: Equal rhs: {(DQ ('Perl Test::More unavailable, skipping test'))} spids: [66] ) ] spids: [66] ) (C {(test_done)}) ] spids: [63] ) ] ) (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:test_external_has_tap spids:[80]) op: Equal rhs: {(1)} spids: [80] ) ] spids: [80] ) (C {(test_external_without_stderr)} {(SQ <'Perl Git::I18N API'>)} {(perl)} {(DQ ($ VSub_Name '$TEST_DIRECTORY')) (/t0202/test.pl)} ) (C {(test_done)}) ] )