| | @@ -38,14 +38,18 @@ |
| 38 | 38 | } |
| 39 | 39 | } |
| 40 | 40 | |
| 41 | 41 | catch {exec $::fossilexe info} res |
| 42 | 42 | puts res=$res |
| 43 | | -if {![regexp {not within an open checkout} $res]} { |
| 43 | +if {![regexp {use --repository} $res]} { |
| 44 | 44 | puts stderr "Cannot run this test within an open checkout" |
| 45 | 45 | return |
| 46 | 46 | } |
| 47 | +# |
| 48 | +# Fossil will write data on $HOME, running 'fossil open' here. |
| 49 | +# We need not to clutter the $HOME of the test caller. |
| 50 | +set env(HOME) [pwd] |
| 47 | 51 | |
| 48 | 52 | # Construct a test repository |
| 49 | 53 | # |
| 50 | 54 | exec sqlite3 m5.fossil <$testdir/${testfile}_repo.sql |
| 51 | 55 | fossil rebuild m5.fossil |
| 52 | 56 | |