Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Adjust test case for TH1 permissions tests. WrUnver (y) is not enabled by default and must be intentionally set. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
582d335737f2438327108d60c0136441 |
| User & Date: | andybradford 2019-09-07 15:03:57 |
Context
|
2019-09-10
| ||
| 11:30 | Performance optimization in fossil_strcmp(). check-in: 72a4b61347 user: drh tags: trunk | |
|
2019-09-07
| ||
| 15:03 | Adjust test case for TH1 permissions tests. WrUnver (y) is not enabled by default and must be intentionally set. check-in: 582d335737 user: andybradford tags: trunk | |
|
2019-09-06
| ||
| 20:38 | Minor editorial changes to rebaseharm.md, in an attempt to improve clarity and readability. check-in: 9b32c180eb user: drh tags: trunk | |
Changes
Changes to test/th1.test.
561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 |
puts "Skipping th1-anycap-*-1 perm tests: not in Fossil repo checkout."
} elseif ($::dirty_ckout) {
puts "Skipping th1-anycap-*-1 perm tests: uncommitted changes in Fossil checkout."
} else {
set skip_anycap 0
}
foreach perm [list a b c d e f g h i j k l m n o p q r s t u v w x y z] {
if {$perm eq "u"} continue; # NOTE: Skip "reader" meta-permission.
if {$perm eq "v"} continue; # NOTE: Skip "developer" meta-permission.
fossil test-th-eval "anycap $perm"
test th1-anycap-no-$perm-1 {$RESULT eq {0}}
fossil test-th-eval "hascap $perm"
test th1-hascap-no-$perm-1 {$RESULT eq {0}}
fossil test-th-eval "anoncap $perm"
test th1-anoncap-no-$perm-1 {$RESULT eq {0}}
if {$skip_anycap} { continue }
run_in_checkout {
fossil test-th-eval --set-user-caps "anycap $perm"
test th1-anycap-yes-$perm-1 {$RESULT eq {1}}
set ::env(TH1_TEST_USER_CAPS) 1; # NOTE: Bad permission.
fossil test-th-eval --set-user-caps "anycap $perm"
test th1-anycap-no-$perm-1 {$RESULT eq {0}}
unset ::env(TH1_TEST_USER_CAPS)
fossil test-th-eval --set-user-caps "hascap $perm"
test th1-hascap-yes-$perm-1 {$RESULT eq {1}}
set ::env(TH1_TEST_USER_CAPS) 1; # NOTE: Bad permission.
fossil test-th-eval --set-user-caps "hascap $perm"
test th1-hascap-no-$perm-1 {$RESULT eq {0}}
unset ::env(TH1_TEST_USER_CAPS)
fossil test-th-eval --set-anon-caps "anoncap $perm"
test th1-anoncap-yes-$perm-1 {$RESULT eq {1}}
set ::env(TH1_TEST_ANON_CAPS) 1; # NOTE: Bad permission.
fossil test-th-eval --set-anon-caps "anoncap $perm"
test th1-anoncap-no-$perm-1 {$RESULT eq {0}}
unset ::env(TH1_TEST_ANON_CAPS)
|
> | > > > > < > > |
561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 |
puts "Skipping th1-anycap-*-1 perm tests: not in Fossil repo checkout."
} elseif ($::dirty_ckout) {
puts "Skipping th1-anycap-*-1 perm tests: uncommitted changes in Fossil checkout."
} else {
set skip_anycap 0
}
foreach perm [list \
a b c d e f g h i j k l m n o p q r s t u v w x y z \
A D \
2 3 4 5 6 7 ] {
if {$perm eq "u"} continue; # NOTE: Skip "reader" meta-permission.
if {$perm eq "v"} continue; # NOTE: Skip "developer" meta-permission.
set ::env(TH1_TEST_USER_CAPS) sxy
fossil test-th-eval "anycap $perm"
test th1-anycap-no-$perm-1 {$RESULT eq {0}}
fossil test-th-eval "hascap $perm"
test th1-hascap-no-$perm-1 {$RESULT eq {0}}
fossil test-th-eval "anoncap $perm"
test th1-anoncap-no-$perm-1 {$RESULT eq {0}}
if {$skip_anycap} { continue }
run_in_checkout {
set ::env(TH1_TEST_USER_CAPS) sxy
fossil test-th-eval --set-user-caps "anycap $perm"
test th1-anycap-yes-$perm-1 {$RESULT eq {1}}
set ::env(TH1_TEST_USER_CAPS) 1; # NOTE: Bad permission.
fossil test-th-eval --set-user-caps "anycap $perm"
test th1-anycap-no-$perm-1 {$RESULT eq {0}}
set ::env(TH1_TEST_USER_CAPS) sxy
fossil test-th-eval --set-user-caps "hascap $perm"
test th1-hascap-yes-$perm-1 {$RESULT eq {1}}
set ::env(TH1_TEST_USER_CAPS) 1; # NOTE: Bad permission.
fossil test-th-eval --set-user-caps "hascap $perm"
test th1-hascap-no-$perm-1 {$RESULT eq {0}}
unset ::env(TH1_TEST_USER_CAPS)
set ::env(TH1_TEST_ANON_CAPS) sxy
fossil test-th-eval --set-anon-caps "anoncap $perm"
test th1-anoncap-yes-$perm-1 {$RESULT eq {1}}
set ::env(TH1_TEST_ANON_CAPS) 1; # NOTE: Bad permission.
fossil test-th-eval --set-anon-caps "anoncap $perm"
test th1-anoncap-no-$perm-1 {$RESULT eq {0}}
unset ::env(TH1_TEST_ANON_CAPS)
|