Fossil

Check-in [d1438b40]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Allow override, via the environment, to make 'require_no_open_checkout' into a NOP. All files were cleaned up. No extra files in checkout.

NOTE: All failing tests also fail on trunk, with the exception of 'json-1'.

Considered failures: amend-comment-5.1 amend-comment-5.2 amend-comment-5.3 amend-comment-5.4 json-1 stash-3-4-mv stash-4-2-diff-CODE stash-4-3-diff-CODE

Ignored failures: json-cap-POSTenv-name json-ROrepo-2-2 json-ROrepo-2-3 merge_multi-4 merge_renames-5 stash-WY-1-CODE stash-2-1-CODE stash-3-2 stash-3-2-show-1 stash-3-2-pop-changes

Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | testerCleanup
Files: files | file ages | folders
SHA1:d1438b400b85dfe88a2c16469d050cbc380c5a55
User & Date: mistachkin 2016-03-02 08:38:10
Original Comment: Allow override, via the environment, to make 'require_no_open_checkout' into a NOP.
Original User & Date: drh 2016-03-02 08:38:10
Context
2016-03-02
20:43
Rename the test suite procedure 'repo_init' to 'test_setup'. check-in: 413921cc user: mistachkin tags: testerCleanup
08:38
Allow override, via the environment, to make 'require_no_open_checkout' into a NOP. All files were cleaned up. No extra files in checkout.

NOTE: All failing tests also fail on trunk, with the exception of 'json-1'.

Considered failures: amend-comment-5.1 amend-comment-5.2 amend-comment-5.3 amend-comment-5.4 json-1 stash-3-4-mv stash-4-2-diff-CODE stash-4-3-diff-CODE

Ignored failures: json-cap-POSTenv-name json-ROrepo-2-2 json-ROrepo-2-3 merge_multi-4 merge_renames-5 stash-WY-1-CODE stash-2-1-CODE stash-3-2 stash-3-2-show-1 stash-3-2-pop-changes check-in: d1438b40 user: mistachkin tags: testerCleanup

08:35
Make sure 'repo_init' is called before 'pwd'. check-in: b9558349 user: mistachkin tags: testerCleanup
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to test/tester.tcl.

188
189
190
191
192
193
194




195
196
197
198
199
200
201
  regsub -all { +\n} $x \n x
  set y [read_file $b]
  regsub -all { +\n} $y \n y
  return [expr {$x==$y}]
}

proc require_no_open_checkout {} {




  catch {exec $::fossilexe info} res
  if {![regexp {use --repository} $res]} {
    set projectName <unknown>
    set localRoot <unknown>
    regexp -line -- {^project-name: (.*)$} $res dummy projectName
    set projectName [string trim $projectName]
    regexp -line -- {^local-root: (.*)$} $res dummy localRoot







>
>
>
>







188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
  regsub -all { +\n} $x \n x
  set y [read_file $b]
  regsub -all { +\n} $y \n y
  return [expr {$x==$y}]
}

proc require_no_open_checkout {} {
  if {[info exists ::env(FOSSIL_TEST_DANGEROUS_IGNORE_OPEN_CHECKOUT)] && \
      $::env(FOSSIL_TEST_DANGEROUS_IGNORE_OPEN_CHECKOUT) eq "YES_DO_IT"} {
    return
  }
  catch {exec $::fossilexe info} res
  if {![regexp {use --repository} $res]} {
    set projectName <unknown>
    set localRoot <unknown>
    regexp -line -- {^project-name: (.*)$} $res dummy projectName
    set projectName [string trim $projectName]
    regexp -line -- {^local-root: (.*)$} $res dummy localRoot