Home Verkennen Help
Inloggen
Troglodyne
/
TestRail-Perl
3
0
Vork 0
Bestanden Issues 0 Pull-aanvragen 0 Wiki
Boom: 79251d6c5d
Aftakkingen Labels
TestRail-Perl
/
t
/
arg_types.t

arg_types.t 17 KB
Geschiedenis Ruwe

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172 
  1. use strict;
    2. 

  2. use warnings;
    3. 

  3. 

  4. use TestRail::API;
    5. 

  5. use Test::More 'tests' => 145;
    6. 

  6. use Test::Fatal;
    7. 

  7. use Class::Inspector;
    8. 

  8. use Test::LWP::UserAgent;
    9. 

  9. use HTTP::Response;
    10. 

  10. use Capture::Tiny qw{capture};
    11. 

  11. 

  12. my $tr = TestRail::API->new('http://hokum.bogus','bogus','bogus',undef,1);
    13. 

  13. $tr->{'browser'} = Test::LWP::UserAgent->new();
    14. 

  14. $tr->{'browser'}->map_response(qr/.*/, HTTP::Response->new('500', 'ERROR', ['Content-Type' => 'text/plain'], ''));
    15. 

  15. 

  16. #No-arg functions
    17. 

  17. is( exception { capture { $tr->getCaseTypes()  } },undef,'getCaseTypes returns no error when no arguments are passed');
    18. 

  18. is( exception { capture { $tr->getPossibleTestStatuses()  } },undef,'getPossibleTestStatuses returns no error when no arguments are passed');
    19. 

  19. is( exception { capture { $tr->getPriorities()  } },undef,'getPriorities returns no error when no arguments are passed');
    20. 

  20. is( exception { capture { $tr->getProjects()  } },undef,'getProjects returns no error when no arguments are passed');
    21. 

  21. is( exception { capture { $tr->getTestResultFields()  } },undef,'getTestResultFields returns no error when no arguments are passed');
    22. 

  22. is( exception { capture { $tr->getUsers()  } },undef,'getUsers returns no error when no arguments are passed');
    23. 

  23. 

  24. isnt( exception { capture { $tr->createCase()  } },undef,'createCase returns error when no arguments are passed');
    25. 

  25. isnt( exception { capture { $tr->createMilestone()  } },undef,'createMilestone returns error when no arguments are passed');
    26. 

  26. isnt( exception { capture { $tr->createPlan()  } },undef,'createPlan returns error when no arguments are passed');
    27. 

  27. isnt( exception { capture { $tr->createProject()  } },undef,'createProject returns error when no arguments are passed');
    28. 

  28. isnt( exception { capture { $tr->createRun()  } },undef,'createRun returns error when no arguments are passed');
    29. 

  29. isnt( exception { capture { $tr->createSection()  } },undef,'createSection returns error when no arguments are passed');
    30. 

  30. isnt( exception { capture { $tr->createTestResults()  } },undef,'createTestResults returns error when no arguments are passed');
    31. 

  31. isnt( exception { capture { $tr->createTestSuite()  } },undef,'createTestSuite returns error when no arguments are passed');
    32. 

  32. isnt( exception { capture { $tr->deleteCase()  } },undef,'deleteCase returns error when no arguments are passed');
    33. 

  33. isnt( exception { capture { $tr->deleteMilestone()  } },undef,'deleteMilestone returns error when no arguments are passed');
    34. 

  34. isnt( exception { capture { $tr->deletePlan()  } },undef,'deletePlan returns error when no arguments are passed');
    35. 

  35. isnt( exception { capture { $tr->deleteProject()  } },undef,'deleteProject returns error when no arguments are passed');
    36. 

  36. isnt( exception { capture { $tr->deleteRun()  } },undef,'deleteRun returns error when no arguments are passed');
    37. 

  37. isnt( exception { capture { $tr->deleteSection()  } },undef,'deleteSection returns error when no arguments are passed');
    38. 

  38. isnt( exception { capture { $tr->deleteTestSuite()  } },undef,'deleteTestSuite returns error when no arguments are passed');
    39. 

  39. isnt( exception { capture { $tr->getCaseByID()  } },undef,'getCaseByID returns error when no arguments are passed');
    40. 

  40. isnt( exception { capture { $tr->getCaseByName()  } },undef,'getCaseByName returns error when no arguments are passed');
    41. 

  41. isnt( exception { capture { $tr->getCaseTypeByName()  } },undef,'getCaseTypeByName returns error when no arguments are passed');
    42. 

  42. isnt( exception { capture { $tr->getCases()  } },undef,'getCases returns error when no arguments are passed');
    43. 

  43. isnt( exception { capture { $tr->getMilestoneByID()  } },undef,'getMilestoneByID returns error when no arguments are passed');
    44. 

  44. isnt( exception { capture { $tr->getMilestoneByName()  } },undef,'getMilestoneByName returns error when no arguments are passed');
    45. 

  45. isnt( exception { capture { $tr->getPlanByID()  } },undef,'getPlanByID returns error when no arguments are passed');
    46. 

  46. isnt( exception { capture { $tr->getPlanByName()  } },undef,'getPlanByName returns error when no arguments are passed');
    47. 

  47. isnt( exception { capture { $tr->getPriorityByName()  } },undef,'getPriorityByName returns error when no arguments are passed');
    48. 

  48. isnt( exception { capture { $tr->getProjectByID()  } },undef,'getProjectByID returns error when no arguments are passed');
    49. 

  49. isnt( exception { capture { $tr->getProjectByName()  } },undef,'getProjectByName returns error when no arguments are passed');
    50. 

  50. isnt( exception { capture { $tr->getRunByID()  } },undef,'getRunByID returns error when no arguments are passed');
    51. 

  51. isnt( exception { capture { $tr->getRunByName()  } },undef,'getRunByName returns error when no arguments are passed');
    52. 

  52. isnt( exception { capture { $tr->getSectionByID()  } },undef,'getSectionByID returns error when no arguments are passed');
    53. 

  53. isnt( exception { capture { $tr->getSectionByName()  } },undef,'getSectionByName returns error when no arguments are passed');
    54. 

  54. isnt( exception { capture { $tr->sectionNamesToIds()  } },undef,'sectionNamesToIds returns error when no arguments are passed');
    55. 

  55. isnt( exception { capture { $tr->getTestByID()  } },undef,'getTestByID returns error when no arguments are passed');
    56. 

  56. isnt( exception { capture { $tr->getTestByName()  } },undef,'getTestByName returns error when no arguments are passed');
    57. 

  57. isnt( exception { capture { $tr->getTestResults()  } },undef,'getTestResults returns error when no arguments are passed');
    58. 

  58. isnt( exception { capture { $tr->getTestResultFieldByName()  } },undef,'getTestResultFieldByName returns error when no arguments are passed');
    59. 

  59. isnt( exception { capture { $tr->getTestSuiteByID()  } },undef,'getTestSuiteByID returns error when no arguments are passed');
    60. 

  60. isnt( exception { capture { $tr->getTestSuiteByName()  } },undef,'getTestSuiteByName returns error when no arguments are passed');
    61. 

  61. isnt( exception { capture { $tr->getUserByEmail()  } },0,'getUserByEmail returns error when no arguments are passed');
    62. 

  62. isnt( exception { capture { $tr->getUserByID()  } },0,'getUserByID returns error when no arguments are passed');
    63. 

  63. isnt( exception { capture { $tr->getUserByName()  } },0,'getUserByName returns error when no arguments are passed');
    64. 

  64. isnt( exception { capture { $tr->getTests()  } },undef,'getTests returns error when no arguments are passed');
    65. 

  65. isnt( exception { capture { $tr->getTestSuites()  } },undef,'getTestSuites returns error when no arguments are passed');
    66. 

  66. isnt( exception { capture { $tr->getSections()  } },undef,'getSections returns error when no arguments are passed');
    67. 

  67. isnt( exception { capture { $tr->getRuns()  } },undef,'getRuns returns error when no arguments are passed');
    68. 

  68. isnt( exception { capture { $tr->getRunsPaginated()  } },undef,'getRunsPaginated returns error when no arguments are passed');
    69. 

  69. isnt( exception { capture { $tr->getPlans()  } },undef,'getPlans returns error when no arguments are passed');
    70. 

  70. isnt( exception { capture { $tr->getPlansPaginated()  } },undef,'getPlansPaginated returns error when no arguments are passed');
    71. 

  71. isnt( exception { capture { $tr->getMilestones()  } },undef,'getMilestones returns error when no arguments are passed');
    72. 

  72. isnt( exception { capture { $tr->getConfigurationGroups()  } },undef,'getConfigurations returns error when no arguments are passed');
    73. 

  73. isnt( exception { capture { $tr->getConfigurations()  } },undef,'getConfigurationGroups returns error when no arguments are passed');
    74. 

  74. isnt( exception { capture { $tr->getChildRuns()  } },undef,'getChildRuns returns error when no arguments are passed');
    75. 

  75. isnt( exception { capture { $tr->getChildRunByName()  } },undef,'getChildRunByName returns error when no arguments are passed');
    76. 

  76. isnt( exception { capture { $tr->createRunInPlan()  } },undef,'createRunInPlan returns error when no arguments are passed');
    77. 

  77. isnt( exception { capture { $tr->translateConfigNamesToIds() } }, undef,'translateConfigNamesToIds returns error when no arguments are passed');
    78. 

  78. isnt( exception { capture { $tr->userNamesToIds() } }, undef,'userNamesToIds returns error when no arguments are passed');
    79. 

  79. isnt( exception { capture { $tr->statusNamesToIds() } }, undef,'statusNamesToIds returns error when no arguments are passed');
    80. 

  80. isnt( exception { capture { $tr->getRunSummary() } }, undef,'getRunSummary returns error when no arguments are passed');
    81. 

  81. isnt( exception { capture { $tr->getPlanSummary() } }, undef,'getPlanSummary returns error when no arguments are passed');
    82. 

  82. isnt( exception { capture { $tr->bulkAddResults() } }, undef,'bulkAddResults returns error when no arguments are passed');
    83. 

  83. 

  84. #1-arg functions
    85. 

  85. is(exception { capture { $tr->deleteCase(1) } },            undef,'deleteCase returns no error when int arg passed');
    86. 

  86. is(exception { capture { $tr->deleteMilestone(1) } },       undef,'deleteMilestone returns no error when int arg passed');
    87. 

  87. is(exception { capture { $tr->deletePlan(1) } },            undef,'deletePlan returns no error when int arg passed');
    88. 

  88. is(exception { capture { $tr->deleteProject(1) } },         undef,'deleteProject returns no error when int arg passed');
    89. 

  89. is(exception { capture { $tr->deleteRun(1) } },             undef,'deleteRun returns no error when int arg passed');
    90. 

  90. is(exception { capture { $tr->deleteSection(1) } },         undef,'deleteSection returns no error when int arg passed');
    91. 

  91. is(exception { capture { $tr->deleteTestSuite(1) } },       undef,'deleteTestSuite returns no error when int arg passed');
    92. 

  92. is(exception { capture { $tr->getCaseByID(1) } },           undef,'getCaseByID returns no error when int arg passed');
    93. 

  93. is(exception { capture { $tr->getRuns(1) } },               undef,'getRuns returns no error when int arg passed');
    94. 

  94. is(exception { capture { $tr->getRunsPaginated(1) } },      undef,'getRunsPaginated returns no error when int arg passed');
    95. 

  95. is(exception { capture { $tr->getSectionByID(1) } },        undef,'getSectionByID returns no error when int arg passed');
    96. 

  96. is(exception { capture { $tr->getTestByID(1) } },           undef,'getTestByID returns no error when int arg passed');
    97. 

  97. is(exception { capture { $tr->getTestSuiteByID(1) } },      undef,'getTestSuiteByID returns no error when int arg passed');
    98. 

  98. is(exception { capture { $tr->getPlans(1) } },              undef,'getPlans returns no error when int arg passed');
    99. 

  99. is(exception { capture { $tr->getPlansPaginated(1) } },     undef,'getPlansPaginated returns no error when int arg passed');
    100. 

  100. is(exception { capture { $tr->getProjectByID(1) } },        undef,'getProjectByID returns no error when int arg passed');
    101. 

  101. is(exception { capture { $tr->getRunByID(1) } },            undef,'getRunByID returns no error when int arg passed');
    102. 

  102. is(exception { capture { $tr->getTestSuites(1) } },         undef,'getTestSuites returns no error when int arg passed');
    103. 

  103. is(exception { capture { $tr->getTests(1) } },              undef,'getTests returns no error when int arg passed');
    104. 

  104. is(exception { capture { $tr->getUserByID(1) } },           undef,'getUserByID returns no error when int arg passed');
    105. 

  105. is(exception { capture { $tr->getMilestones(1) } },         undef,'getMilestones returns no error when int arg passed');
    106. 

  106. is(exception { capture { $tr->getPlanByID(1) } },           undef,'getPlanByID returns no error when int arg passed');
    107. 

  107. is(exception { capture { $tr->getProjectByName('fake') } }, undef,'getProjectByName returns no error when string arg passed');
    108. 

  108. is(exception { capture { $tr->getUserByEmail('tickle') } }, undef,'getUserByEmail returns no error when string arg passed');
    109. 

  109. is(exception { capture { $tr->getUserByName('zap') } },     undef,'getUserByName returns no error when string arg passed');
    110. 

  110. is(exception { capture { $tr->getCaseTypeByName('zap') } }, undef,'getCaseTypeByName returns no error when string arg passed');
    111. 

  111. is(exception { capture { $tr->createProject('zippy') } },   undef,'createProject returns no error when string arg passed');
    112. 

  112. is(exception { capture { $tr->getTestResults(1) } },        undef,'getTestResults with 1 arg returns no error');
    113. 

  113. is(exception { capture { $tr->getMilestoneByID(1) } },      undef,'getMilestoneByID with 1 arg returns no error');
    114. 

  114. is(exception { capture { $tr->getConfigurationGroups(1) } },undef,'getConfigurationGroups with 1 arg returns no error');
    115. 

  115. is(exception { capture { $tr->getConfigurations(1) } },     undef,'getConfigurations with 1 arg returns no error');
    116. 

  116. is(exception { capture { $tr->getChildRuns({})  } },        undef,'getChildRuns returns no error when 1 argument passed');
    117. 

  117. 

  118. isnt(exception { capture { $tr->createCase(1) } }, undef,'createCase with 1 arg returns error');
    119. 

  119. isnt(exception { capture { $tr->createMilestone(1) } }, undef,'createMilestone with 1 arg returns error');
    120. 

  120. isnt(exception { capture { $tr->createPlan(1) } }, undef,'createPlan with 1 arg returns error');
    121. 

  121. isnt(exception { capture { $tr->createRun(1) } }, undef,'createRun with 1 arg returns error');
    122. 

  122. isnt(exception { capture { $tr->createSection(1) } }, undef,'createSection with 1 arg returns error');
    123. 

  123. isnt(exception { capture { $tr->createTestResults(1) } }, undef,'createTestResults with 1 arg returns error');
    124. 

  124. isnt(exception { capture { $tr->createTestSuite(1) } }, undef,'createTestSuite with 1 arg returns error');
    125. 

  125. isnt(exception { capture { $tr->getCaseByName(1) } }, undef,'getCaseByName with 1 arg returns error');
    126. 

  126. isnt(exception { capture { $tr->getCases(1) } }, undef,'getCases with 1 arg returns error');
    127. 

  127. isnt(exception { capture { $tr->getMilestoneByName(1) } }, undef,'getMilestoneByName with 1 arg returns error');
    128. 

  128. isnt(exception { capture { $tr->getPlanByName(1) } }, undef,'getPlanByName with 1 arg returns error');
    129. 

  129. isnt(exception { capture { $tr->getRunByName(1) } }, undef,'getRunByName with 1 arg returns error');
    130. 

  130. isnt(exception { capture { $tr->getSectionByName(1) } }, undef,'getSectionByName with 1 arg returns error');
    131. 

  131. isnt(exception { capture { $tr->getSections(1) } }, undef,'getSections with 1 arg returns error');
    132. 

  132. isnt(exception { capture { $tr->sectionNamesToIds(1)  } },undef,'sectionNamesToIds returns error when 1 arguments are passed');
    133. 

  133. isnt(exception { capture { $tr->getTestByName(1) } }, undef,'getTestByName with 1 arg returns error');
    134. 

  134. isnt(exception { capture { $tr->getTestSuiteByName(1) } }, undef,'getTestSuiteByName with 1 arg returns error');
    135. 

  135. isnt(exception { capture { $tr->getChildRunByName({})  } },undef,'getChildRunByName returns error when 1 argument passed');
    136. 

  136. isnt( exception { capture { $tr->createRunInPlan(1)  } },undef,'createRunInPlan returns error when 1 argument passed');
    137. 

  137. isnt( exception { capture { $tr->translateConfigNamesToIds(1) } }, undef,'translateConfigNamesToIds returns error when 1 argument passed');
    138. 

  138. isnt( exception { capture { $tr->bulkAddResults(1) } }, undef,'bulkAddResults returns error when 1 argument is passed');
    139. 

  139. 

  140. #2 arg functions
    141. 

  141. is(exception { capture { $tr->createMilestone(1,'whee') } }, undef,'createMilestone with 2 args returns no error');
    142. 

  142. is(exception { capture { $tr->createPlan(1,'whee') } }, undef,'createPlan with 2 args returns no error');
    143. 

  143. is(exception { capture { $tr->createTestResults(1,1) } }, undef,'createTestResults with 2 args returns no error');
    144. 

  144. is(exception { capture { $tr->createTestSuite(1,'zugzug') } }, undef,'createTestSuite with 2 args returns no error');
    145. 

  145. is(exception { capture { $tr->getMilestoneByName(1,'hug') } }, undef,'getMilestoneByName with 2 args returns no error');
    146. 

  146. is(exception { capture { $tr->getPlanByName(1,'nugs') } }, undef,'getPlanByName with 2 args returns no error');
    147. 

  147. is(exception { capture { $tr->getRunByName(1,'zoom') } }, undef,'getRunByName with 2 args returns no error');
    148. 

  148. is(exception { capture { $tr->getSections(1,1) } }, undef,'getSections with 2 args returns no error');
    149. 

  149. is(exception { capture { $tr->getTestByName(1,'poo') } }, undef,'getTestByName with 2 args returns no error');
    150. 

  150. is(exception { capture { $tr->getTestSuiteByName(1,'zap') } }, undef,'getTestSuiteByName with 2 args returns no error');
    151. 

  151. is(exception { capture { $tr->createCase(1,'whee') } }, undef,'createCase with 2 args returns no error');
    152. 

  152. is(exception { capture { $tr->getChildRunByName({},'whee') } },undef,'getChildRunByName returns no error when 2 arguments passed');
    153. 

  153. is(exception { capture { $tr->bulkAddResults(1,[]) } }, undef,'bulkAddResults returns no error when 2 arguments passed');
    154. 

  154. is(exception { capture { $tr->getCases(1,2) } }, undef,'getCases with 2 args returns error');
    155. 

  155. 

  156. isnt(exception { capture { $tr->createRun(1,1) } }, undef,'createRun with 2 args returns error');
    157. 

  157. isnt(exception { capture { $tr->createSection(1,1) } }, undef,'createSection with 2 args returns error');
    158. 

  158. isnt(exception { capture { $tr->getCaseByName(1,1) } }, undef,'getCaseByName with 2 args returns error');
    159. 

  159. isnt(exception { capture { $tr->getSectionByName(1,1) } }, undef,'getSectionByName with 2 args returns error');
    160. 

  160. isnt(exception { capture { $tr->sectionNamesToIds(1,1)  } },undef,'sectionNamesToIds returns error when 2 arguments are passed');
    161. 

  161. isnt( exception { capture { $tr->createRunInPlan(1,1)  } },undef,'createRunInPlan returns error when 2 arguments passed');
    162. 

  162. 

  163. #3 arg functions
    164. 

  164. is(exception { capture { $tr->createRun(1,1,'whee') } }, undef,'createRun with 3 args returns no error');
    165. 

  165. is(exception { capture { $tr->createSection(1,1,'whee') } }, undef,'createSection with 3 args returns no error');
    166. 

  166. is(exception { capture { $tr->getCases(1,2,{}) } }, undef,'getCases with 3 args returns no error');
    167. 

  167. is(exception { capture { $tr->getSectionByName(1,1,'zip') } }, undef,'getSectionByName with 3 args returns no error');
    168. 

  168. is(exception { capture { $tr->createRunInPlan(1,1,'nugs')  } },undef,'createRunInPlan with 3 args returns no error');
    169. 

  169. is(exception { capture { $tr->getCaseByName(1,1,'whee') } }, undef,'getCaseByName with 3 args returns no error');
    170. 

  170. 

  171. #4 arg functions
    172. 

  172. is(exception { capture { $tr->getCaseByName(1,1,'hug', {}) } }, undef,'getCaseByName with 4 args returns no error');
    173.