Fossil SCM
Add a couple more unversioned command tests.
Commit
e727b3d50b119f13146b072444c31aef969a787d
Parent
d2a47575000123f…
1 file changed
+33
-1
+33
-1
| --- test/unversioned.test | ||
| +++ test/unversioned.test | ||
| @@ -323,10 +323,11 @@ | ||
| 323 | 323 | uvtest_ [string trim [clock seconds] -] _ [getSeqNo]]] |
| 324 | 324 | |
| 325 | 325 | set savedPwd [pwd] |
| 326 | 326 | file mkdir $clientDir; cd $clientDir |
| 327 | 327 | puts [appendArgs "Now in client directory \"" [pwd] \".] |
| 328 | +write_file unversioned-client1.txt "This is unversioned client file #1." | |
| 328 | 329 | |
| 329 | 330 | ############################################################################### |
| 330 | 331 | |
| 331 | 332 | fossil_maybe_answer y clone $remote uvrepo.fossil |
| 332 | 333 | fossil open uvrepo.fossil |
| @@ -400,12 +401,27 @@ | ||
| 400 | 401 | [0-9a-f]{12} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} 28 28\ |
| 401 | 402 | unversioned5\.txt$} [normalize_result]]} |
| 402 | 403 | |
| 403 | 404 | ############################################################################### |
| 404 | 405 | |
| 405 | -fossil close | |
| 406 | +fossil unversioned add unversioned-client1.txt | |
| 406 | 407 | test unversioned-54 {[normalize_result] eq {}} |
| 408 | + | |
| 409 | +############################################################################### | |
| 410 | + | |
| 411 | +fossil_maybe_answer y unversioned sync $remote | |
| 412 | +test unversioned-55 {[regexp \ | |
| 413 | +{Round-trips: 1 Artifacts sent: 0 received: 0 | |
| 414 | +Round-trips: 1 Artifacts sent: 0 received: 0 | |
| 415 | +Round-trips: 2 Artifacts sent: 1 received: 0 | |
| 416 | +Round-trips: 2 Artifacts sent: 1 received: 0 | |
| 417 | +\n? done, sent: \d+ received: \d+ ip: 127.0.0.1} [normalize_result]]} | |
| 418 | + | |
| 419 | +############################################################################### | |
| 420 | + | |
| 421 | +fossil close | |
| 422 | +test unversioned-56 {[normalize_result] eq {}} | |
| 407 | 423 | |
| 408 | 424 | ############################################################################### |
| 409 | 425 | |
| 410 | 426 | cd $savedPwd; unset savedPwd |
| 411 | 427 | file delete -force $clientDir |
| @@ -417,9 +433,25 @@ | ||
| 417 | 433 | |
| 418 | 434 | puts [appendArgs \ |
| 419 | 435 | [expr {$stopped ? "Stopped" : "Could not stop"}] \ |
| 420 | 436 | " Fossil server, pid \"" $pid "\", using argument \"" \ |
| 421 | 437 | $stopArg \".] |
| 438 | + | |
| 439 | +############################################################################### | |
| 440 | + | |
| 441 | +fossil unversioned list | |
| 442 | +test unversioned-57 {[regexp \ | |
| 443 | +{^[0-9a-f]{12} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} 35 35\ | |
| 444 | +unversioned-client1\.txt | |
| 445 | +[0-9a-f]{12} 2016-10-01 00:00:00 30 30 unversioned2\.txt | |
| 446 | +[0-9a-f]{12} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} 28 28\ | |
| 447 | +unversioned5\.txt$} [normalize_result]]} | |
| 448 | + | |
| 449 | +############################################################################### | |
| 450 | + | |
| 451 | +fossil unversioned cat unversioned-client1.txt | |
| 452 | +test unversioned-58 {[::sha1::sha1 $RESULT] eq \ | |
| 453 | +{a34606f714afe309bb531fba6051eaf25201e8a2}} | |
| 422 | 454 | |
| 423 | 455 | ############################################################################### |
| 424 | 456 | |
| 425 | 457 | test_cleanup |
| 426 | 458 |
| --- test/unversioned.test | |
| +++ test/unversioned.test | |
| @@ -323,10 +323,11 @@ | |
| 323 | uvtest_ [string trim [clock seconds] -] _ [getSeqNo]]] |
| 324 | |
| 325 | set savedPwd [pwd] |
| 326 | file mkdir $clientDir; cd $clientDir |
| 327 | puts [appendArgs "Now in client directory \"" [pwd] \".] |
| 328 | |
| 329 | ############################################################################### |
| 330 | |
| 331 | fossil_maybe_answer y clone $remote uvrepo.fossil |
| 332 | fossil open uvrepo.fossil |
| @@ -400,12 +401,27 @@ | |
| 400 | [0-9a-f]{12} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} 28 28\ |
| 401 | unversioned5\.txt$} [normalize_result]]} |
| 402 | |
| 403 | ############################################################################### |
| 404 | |
| 405 | fossil close |
| 406 | test unversioned-54 {[normalize_result] eq {}} |
| 407 | |
| 408 | ############################################################################### |
| 409 | |
| 410 | cd $savedPwd; unset savedPwd |
| 411 | file delete -force $clientDir |
| @@ -417,9 +433,25 @@ | |
| 417 | |
| 418 | puts [appendArgs \ |
| 419 | [expr {$stopped ? "Stopped" : "Could not stop"}] \ |
| 420 | " Fossil server, pid \"" $pid "\", using argument \"" \ |
| 421 | $stopArg \".] |
| 422 | |
| 423 | ############################################################################### |
| 424 | |
| 425 | test_cleanup |
| 426 |
| --- test/unversioned.test | |
| +++ test/unversioned.test | |
| @@ -323,10 +323,11 @@ | |
| 323 | uvtest_ [string trim [clock seconds] -] _ [getSeqNo]]] |
| 324 | |
| 325 | set savedPwd [pwd] |
| 326 | file mkdir $clientDir; cd $clientDir |
| 327 | puts [appendArgs "Now in client directory \"" [pwd] \".] |
| 328 | write_file unversioned-client1.txt "This is unversioned client file #1." |
| 329 | |
| 330 | ############################################################################### |
| 331 | |
| 332 | fossil_maybe_answer y clone $remote uvrepo.fossil |
| 333 | fossil open uvrepo.fossil |
| @@ -400,12 +401,27 @@ | |
| 401 | [0-9a-f]{12} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} 28 28\ |
| 402 | unversioned5\.txt$} [normalize_result]]} |
| 403 | |
| 404 | ############################################################################### |
| 405 | |
| 406 | fossil unversioned add unversioned-client1.txt |
| 407 | test unversioned-54 {[normalize_result] eq {}} |
| 408 | |
| 409 | ############################################################################### |
| 410 | |
| 411 | fossil_maybe_answer y unversioned sync $remote |
| 412 | test unversioned-55 {[regexp \ |
| 413 | {Round-trips: 1 Artifacts sent: 0 received: 0 |
| 414 | Round-trips: 1 Artifacts sent: 0 received: 0 |
| 415 | Round-trips: 2 Artifacts sent: 1 received: 0 |
| 416 | Round-trips: 2 Artifacts sent: 1 received: 0 |
| 417 | \n? done, sent: \d+ received: \d+ ip: 127.0.0.1} [normalize_result]]} |
| 418 | |
| 419 | ############################################################################### |
| 420 | |
| 421 | fossil close |
| 422 | test unversioned-56 {[normalize_result] eq {}} |
| 423 | |
| 424 | ############################################################################### |
| 425 | |
| 426 | cd $savedPwd; unset savedPwd |
| 427 | file delete -force $clientDir |
| @@ -417,9 +433,25 @@ | |
| 433 | |
| 434 | puts [appendArgs \ |
| 435 | [expr {$stopped ? "Stopped" : "Could not stop"}] \ |
| 436 | " Fossil server, pid \"" $pid "\", using argument \"" \ |
| 437 | $stopArg \".] |
| 438 | |
| 439 | ############################################################################### |
| 440 | |
| 441 | fossil unversioned list |
| 442 | test unversioned-57 {[regexp \ |
| 443 | {^[0-9a-f]{12} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} 35 35\ |
| 444 | unversioned-client1\.txt |
| 445 | [0-9a-f]{12} 2016-10-01 00:00:00 30 30 unversioned2\.txt |
| 446 | [0-9a-f]{12} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} 28 28\ |
| 447 | unversioned5\.txt$} [normalize_result]]} |
| 448 | |
| 449 | ############################################################################### |
| 450 | |
| 451 | fossil unversioned cat unversioned-client1.txt |
| 452 | test unversioned-58 {[::sha1::sha1 $RESULT] eq \ |
| 453 | {a34606f714afe309bb531fba6051eaf25201e8a2}} |
| 454 | |
| 455 | ############################################################################### |
| 456 | |
| 457 | test_cleanup |
| 458 |