mercurial/HGCommandParserTests.st
changeset 867 7527dc6bc38e
parent 865 c2e908e7dadc
equal deleted inserted replaced
866:8a885a75daa9 867:7527dc6bc38e
   108 
   108 
   109 test_cmd_branches_01
   109 test_cmd_branches_01
   110 
   110 
   111     | branches |
   111     | branches |
   112 
   112 
   113     branches := (HGCommandParser on: 'default                        5:f22945219f9be25a1fe436d81afece07b89330be
   113     branches := (HGCommandParser on: (('default|5:f22945219f9be25a1fe436d81afece07b89330be|A
   114 branch1                        4:5bd21fb5eea8a7cb4adf45bccfea76cda11df84a (inactive)
   114 branch1|4:5bd21fb5eea8a7cb4adf45bccfea76cda11df84a|I
   115 branch2                        3:32d32dee719fb422a69cfa6f7f8c1d8e299de2df (closed)
   115 branch2|3:32d32dee719fb422a69cfa6f7f8c1d8e299de2df|C
   116 ') parseCommandBranches.
   116 ' copyReplaceAll: $| with: Character null))) parseCommandBranches.
   117 
   117 
   118     self assert: branches size == 3.
   118     self assert: branches size == 3.
   119 
   119 
   120     self assert: branches first name = 'default'.
   120     self assert: branches first name = 'default'.
   121     self assert: branches first isActive.
   121     self assert: branches first isActive.
   128     self assert: branches third name = 'branch2'.
   128     self assert: branches third name = 'branch2'.
   129     self assert: branches third isActive.
   129     self assert: branches third isActive.
   130     self assert: branches third isClosed.
   130     self assert: branches third isClosed.
   131 
   131 
   132     "Created: / 27-11-2012 / 19:00:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   132     "Created: / 27-11-2012 / 19:00:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
   133     "Modified: / 07-03-2019 / 12:12:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   133 !
   134 !
   134 
   135 
   135 test_cmd_branches_02
   136 test_cmd_branches_02
   136 
   137 
   137     | branches |
   138     | branches |
   138 
   139 
   139     branches := (HGCommandParser on: 'invalid branchheads cache (visible): tip differs
   140     branches := (HGCommandParser on: (('invalid branchheads cache (visible): tip differs
   140 default                     5694:756610fa329d48cd8b225524016713485aefbb95
   141 default|5694:756610fa329d48cd8b225524016713485aefbb95|A
   141 jv                          5684:2c32b6c5d3543cd0381f9b346d62bfeabb95e6c6
   142 jv|5684:2c32b6c5d3543cd0381f9b346d62bfeabb95e6c6|A
   142 ') parseCommandBranches.
   143 ')copyReplaceAll: $| with: Character null)) parseCommandBranches.
   143 
   144 
   144     self assert: branches size == 2.
   145     self assert: branches size == 2.
   145 
   146 
   146     self assert: branches first name = 'default'.
   147     self assert: branches first name = 'default'.
   147     self assert: branches first isActive.
   148     self assert: branches first isActive.
   150     self assert: branches second name = 'jv'.
   151     self assert: branches second name = 'jv'.
   151     self assert: branches second isActive.
   152     self assert: branches second isActive.
   152     self assert: branches second isClosed not.
   153     self assert: branches second isClosed not.
   153 
   154 
   154     "Created: / 08-10-2014 / 20:39:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   155     "Created: / 08-10-2014 / 20:39:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
   156     "Modified: / 07-03-2019 / 12:08:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
   157 !
       
   158 
       
   159 test_cmd_branches_issue256b
       
   160 
       
   161     | branches |
       
   162 
       
   163     branches := (HGCommandParser on: (('default|6:6b8bef68bf9c6b8bef686b8bef68bf9c6b8bef68|A
       
   164 test branches issue256b  |5:9db0e56bb86e6b8bef686b8bef68bf9c6b8bef68|I
       
   165 ') copyReplaceAll: $| with: Character null)) parseCommandBranches.
       
   166 
       
   167     self assert: branches size == 2.
       
   168 
       
   169     self assert: branches first name = 'default'.
       
   170     self assert: branches first isActive.
       
   171     self assert: branches first isClosed not.
       
   172 
       
   173     self assert: branches second name = 'test branches issue256b  '.
       
   174     self assert: branches second isActive not.
       
   175     self assert: branches second isClosed not.
       
   176 
       
   177     "Created: / 07-03-2019 / 10:21:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
   178     "Modified: / 07-03-2019 / 12:07:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   155 !
   179 !
   156 
   180 
   157 test_cmd_err_branches_01
   181 test_cmd_err_branches_01
   158 
   182 
   159     (HGCommandParser on: 'invalidating branch cache (tip differs)
   183     (HGCommandParser on: 'invalidating branch cache (tip differs)