Ignore:
Timestamp:
11/19/08 19:11:33 (4 years ago)
Author:
CrawfordCurrie
Message:

Item175: ported unit tests to new namespace. They all pass.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/UnitTestContrib/test/unit/AccessControlTests.pm

    r464 r816  
    33package AccessControlTests; 
    44 
    5 use base qw(TWikiFnTestCase); 
     5use base qw(FoswikiFnTestCase); 
    66 
    77sub new { 
    … …  
    1111} 
    1212 
    13 use TWiki; 
    14 use TWiki::Access; 
     13use Foswiki; 
     14use Foswiki::Access; 
    1515 
    1616my $testTopic = "TemporaryTestTopic"; 
    … …  
    2626    my $this = shift; 
    2727    $this->SUPER::set_up(); 
    28     $this->{twiki} = new TWiki(); 
    29  
    30     $currUser = $TWiki::cfg{DefaultUserLogin}; 
     28    $this->{twiki} = new Foswiki(); 
     29 
     30    $currUser = $Foswiki::cfg{DefaultUserLogin}; 
    3131    $this->{twiki}->{store}->saveTopic($this->{twiki}->{user}, 
    32                                $TWiki::cfg{UsersWebName}, 
    33                                $TWiki::cfg{DefaultUserWikiName},''); 
     32                               $Foswiki::cfg{UsersWebName}, 
     33                               $Foswiki::cfg{DefaultUserWikiName},''); 
    3434    $this->registerUser( 
    3535        'white', 'Mr', "White", 'white@example.com'); 
    … …  
    8787                                , undef); 
    8888    $this->{twiki}->finish(); 
    89     $this->{twiki} = new TWiki(); 
     89    $this->{twiki} = new Foswiki(); 
    9090 
    9191    $this->PERMITTED($this->{test_web},$testTopic,"VIEW",$MrGreen); 
    … …  
    107107                                , undef); 
    108108    $this->{twiki}->finish(); 
    109     $this->{twiki} = new TWiki(); 
     109    $this->{twiki} = new Foswiki(); 
    110110    $this->PERMITTED($this->{test_web},$testTopic,"VIEW",$MrGreen); 
    111111    $this->PERMITTED($this->{test_web},$testTopic,"VIEW",$MrYellow); 
    … …  
    126126                                , undef); 
    127127    $this->{twiki}->finish(); 
    128     $this->{twiki} = new TWiki(); 
     128    $this->{twiki} = new Foswiki(); 
    129129    $this->PERMITTED($this->{test_web},$testTopic,"VIEW",$MrOrange); 
    130130    $this->DENIED($this->{test_web},$testTopic,"VIEW",$MrGreen); 
    … …  
    146146    my $topicquery = new Unit::Request( "" ); 
    147147    $topicquery->path_info("/$this->{test_web}/$testTopic"); 
    148     # renew TWiki, so WebPreferences gets re-read 
    149     $this->{twiki}->finish(); 
    150     $this->{twiki} = new TWiki(undef, $topicquery); 
    151     $this->PERMITTED($this->{test_web},$testTopic,"VIEW",$MrOrange); 
    152     $this->{twiki}->finish(); 
    153     $this->{twiki} = new TWiki(undef, $topicquery); 
     148    # renew Foswiki, so WebPreferences gets re-read 
     149    $this->{twiki}->finish(); 
     150    $this->{twiki} = new Foswiki(undef, $topicquery); 
     151    $this->PERMITTED($this->{test_web},$testTopic,"VIEW",$MrOrange); 
     152    $this->{twiki}->finish(); 
     153    $this->{twiki} = new Foswiki(undef, $topicquery); 
    154154    $this->DENIED($this->{test_web},$testTopic,"VIEW",$MrGreen); 
    155155    $this->{twiki}->finish(); 
    156     $this->{twiki} = new TWiki(undef, $topicquery); 
     156    $this->{twiki} = new Foswiki(undef, $topicquery); 
    157157    $this->DENIED($this->{test_web},$testTopic,"VIEW",$MrYellow); 
    158158    $this->{twiki}->finish(); 
    159     $this->{twiki} = new TWiki(undef, $topicquery); 
    160     $this->DENIED($this->{test_web},$testTopic,"VIEW",$MrWhite); 
    161     $this->{twiki}->finish(); 
    162     $this->{twiki} = new TWiki(undef, $topicquery); 
     159    $this->{twiki} = new Foswiki(undef, $topicquery); 
     160    $this->DENIED($this->{test_web},$testTopic,"VIEW",$MrWhite); 
     161    $this->{twiki}->finish(); 
     162    $this->{twiki} = new Foswiki(undef, $topicquery); 
    163163    $this->DENIED($this->{test_web},$testTopic,"view",$MrBlue); 
    164164} 
    … …  
    174174THIS 
    175175                                , undef); 
    176     # renew TWiki, so WebPreferences gets re-read 
    177     $this->{twiki}->finish(); 
    178     $this->{twiki} = new TWiki(); 
    179     $this->PERMITTED($this->{test_web},$testTopic,"VIEW",$MrOrange); 
    180     $this->{twiki}->finish(); 
    181     $this->{twiki} = new TWiki(); 
     176    # renew Foswiki, so WebPreferences gets re-read 
     177    $this->{twiki}->finish(); 
     178    $this->{twiki} = new Foswiki(); 
     179    $this->PERMITTED($this->{test_web},$testTopic,"VIEW",$MrOrange); 
     180    $this->{twiki}->finish(); 
     181    $this->{twiki} = new Foswiki(); 
    182182    $this->DENIED($this->{test_web},$testTopic,"VIEW",$MrGreen); 
    183183    $this->{twiki}->finish(); 
    184     $this->{twiki} = new TWiki(); 
     184    $this->{twiki} = new Foswiki(); 
    185185    $this->DENIED($this->{test_web},$testTopic,"VIEW",$MrYellow); 
    186186    $this->{twiki}->finish(); 
    187     $this->{twiki} = new TWiki(); 
    188     $this->DENIED($this->{test_web},$testTopic,"VIEW",$MrWhite); 
    189     $this->{twiki}->finish(); 
    190     $this->{twiki} = new TWiki(); 
     187    $this->{twiki} = new Foswiki(); 
     188    $this->DENIED($this->{test_web},$testTopic,"VIEW",$MrWhite); 
     189    $this->{twiki}->finish(); 
     190    $this->{twiki} = new Foswiki(); 
    191191    $this->DENIED($this->{test_web},$testTopic,"view",$MrBlue); 
    192192} 
    … …  
    202202THIS 
    203203                                , undef); 
    204     # renew TWiki, so WebPreferences gets re-read 
    205     $this->{twiki}->finish(); 
    206     $this->{twiki} = new TWiki(); 
    207     $this->PERMITTED($this->{test_web},$testTopic,"VIEW",$MrOrange); 
    208     $this->{twiki}->finish(); 
    209     $this->{twiki} = new TWiki(); 
     204    # renew Foswiki, so WebPreferences gets re-read 
     205    $this->{twiki}->finish(); 
     206    $this->{twiki} = new Foswiki(); 
     207    $this->PERMITTED($this->{test_web},$testTopic,"VIEW",$MrOrange); 
     208    $this->{twiki}->finish(); 
     209    $this->{twiki} = new Foswiki(); 
    210210    $this->DENIED($this->{test_web},$testTopic,"VIEW",$MrGreen); 
    211211    $this->{twiki}->finish(); 
    212     $this->{twiki} = new TWiki(); 
     212    $this->{twiki} = new Foswiki(); 
    213213    $this->PERMITTED($this->{test_web},$testTopic,"VIEW",$MrYellow); 
    214214    $this->{twiki}->finish(); 
    215     $this->{twiki} = new TWiki(); 
    216     $this->DENIED($this->{test_web},$testTopic,"VIEW",$MrWhite); 
    217     $this->{twiki}->finish(); 
    218     $this->{twiki} = new TWiki(); 
     215    $this->{twiki} = new Foswiki(); 
     216    $this->DENIED($this->{test_web},$testTopic,"VIEW",$MrWhite); 
     217    $this->{twiki}->finish(); 
     218    $this->{twiki} = new Foswiki(); 
    219219    $this->DENIED($this->{test_web},$testTopic,"view",$MrBlue); 
    220220} 
    … …  
    222222sub test_denyweb { 
    223223    my $this = shift; 
    224     $this->{twiki}->{store}->saveTopic( $currUser, $this->{test_web}, $TWiki::cfg{WebPrefsTopicName}, 
     224    $this->{twiki}->{store}->saveTopic( $currUser, $this->{test_web}, $Foswiki::cfg{WebPrefsTopicName}, 
    225225                                <<THIS 
    226226If DENYWEB is set to a list of wikiname 
    … …  
    229229THIS 
    230230                                , undef); 
    231     # renew TWiki, so WebPreferences gets re-read 
    232     $this->{twiki}->finish(); 
    233     $this->{twiki} = new TWiki(); 
     231    # renew Foswiki, so WebPreferences gets re-read 
     232    $this->{twiki}->finish(); 
     233    $this->{twiki} = new Foswiki(); 
    234234    $this->{twiki}->{store}->saveTopic( $currUser, $this->{test_web}, $testTopic, 
    235235                                "Null points"); 
    … …  
    244244    my $this = shift; 
    245245    $this->{twiki}->{store}->saveTopic( 
    246         $currUser, $this->{test_web}, $TWiki::cfg{WebPrefsTopicName}, 
     246        $currUser, $this->{test_web}, $Foswiki::cfg{WebPrefsTopicName}, 
    247247        <<THIS 
    248248If ALLOWWEB is set to a list of wikinames 
    … …  
    252252THIS 
    253253                                , undef); 
    254     # renew TWiki, so WebPreferences gets re-read 
    255     $this->{twiki}->finish(); 
    256     $this->{twiki} = new TWiki(); 
     254    # renew Foswiki, so WebPreferences gets re-read 
     255    $this->{twiki}->finish(); 
     256    $this->{twiki} = new Foswiki(); 
    257257    $this->{twiki}->{store}->saveTopic( $currUser, $this->{test_web}, $testTopic, 
    258258                                "Null points"); 
    … …  
    294294    $this->{twiki}->{store}->saveTopic( $currUser, $this->{test_web}, $testTopic, 'Empty'); 
    295295    $this->{twiki}->finish(); 
    296     $this->{twiki} = new TWiki(); 
     296    $this->{twiki} = new Foswiki(); 
    297297 
    298298    my $text = <<THIS; 
    … …  
    307307    $this->{twiki}->{store}->saveTopic( $currUser, $this->{test_web}, $testTopic, 'Empty'); 
    308308    $this->{twiki}->finish(); 
    309     $this->{twiki} = new TWiki(); 
    310     my $meta = new TWiki::Meta($this->{twiki},$this->{test_web},$testTopic); 
     309    $this->{twiki} = new Foswiki(); 
     310    my $meta = new Foswiki::Meta($this->{twiki},$this->{test_web},$testTopic); 
    311311    my $args = 
    312312      { 
    … …  
    325325    $this->{twiki}->{store}->saveTopic( $currUser, $this->{test_web}, $testTopic, 'Empty'); 
    326326    $this->{twiki}->finish(); 
    327     $this->{twiki} = new TWiki(); 
    328     my $meta = new TWiki::Meta($this->{twiki},$this->{test_web},$testTopic); 
     327    $this->{twiki} = new Foswiki(); 
     328    my $meta = new Foswiki::Meta($this->{twiki},$this->{test_web},$testTopic); 
    329329    my $args = 
    330330      { 
    … …  
    346346    $this->{twiki}->{store}->saveTopic( $currUser, $this->{test_web}, $testTopic, 'Empty'); 
    347347    $this->{twiki}->finish(); 
    348     $this->{twiki} = new TWiki(); 
     348    $this->{twiki} = new Foswiki(); 
    349349    my $text = <<THIS; 
    350350%META:PREFERENCE{name="ALLOWTOPICVIEW" title="ALLOWTOPICVIEW" type="Set" value="%25USERSWEB%25.MrGreen"}% 
    … …  
    358358    $this->{twiki}->{store}->saveTopic( $currUser, $this->{test_web}, $testTopic, 'Empty'); 
    359359    $this->{twiki}->finish(); 
    360     $this->{twiki} = new TWiki(); 
    361     my $meta = new TWiki::Meta($this->{twiki},$this->{test_web},$testTopic); 
     360    $this->{twiki} = new Foswiki(); 
     361    my $meta = new Foswiki::Meta($this->{twiki},$this->{test_web},$testTopic); 
    362362    my $args = 
    363363      { 
    … …  
    378378    my $subweb = "$this->{test_web}.SubWeb"; 
    379379 
    380     $TWiki::cfg{EnableHierarchicalWebs} = 1; 
     380    $Foswiki::cfg{EnableHierarchicalWebs} = 1; 
    381381    $this->{twiki}->{store}->createWeb($this->{twiki}->{user}, $subweb); 
    382382    $this->{twiki}->{store}->saveTopic( $currUser, $this->{test_web}, $testTopic, "Nowt"); 
    383383    $this->{twiki}->{store}->saveTopic( 
    384         $currUser, $this->{test_web}, $TWiki::cfg{WebPrefsTopicName}, 
     384        $currUser, $this->{test_web}, $Foswiki::cfg{WebPrefsTopicName}, 
    385385        <<THIS, undef); 
    386386\t* Set ALLOWWEBVIEW = MrGreen 
    387387THIS 
    388388    $this->{twiki}->{store}->saveTopic( 
    389         $currUser, $subweb, $TWiki::cfg{WebPrefsTopicName}, 
     389        $currUser, $subweb, $Foswiki::cfg{WebPrefsTopicName}, 
    390390        <<THIS, undef); 
    391391\t* Set ALLOWWEBVIEW = MrOrange 
    392392THIS 
    393393    $this->{twiki}->finish(); 
    394     $this->{twiki} = new TWiki(); 
     394    $this->{twiki} = new Foswiki(); 
    395395    $this->PERMITTED($subweb,$testTopic,"VIEW",$MrOrange); 
    396396    $this->DENIED($subweb,$testTopic,"VIEW",$MrGreen); 
    … …  
    410410                                , undef); 
    411411    $this->{twiki}->finish(); 
    412     $this->{twiki} = new TWiki(); 
     412    $this->{twiki} = new Foswiki(); 
    413413    $this->PERMITTED($this->{test_web},$testTopic,"VIEW",$MrOrange); 
    414414    $this->DENIED($this->{test_web},$testTopic,"VIEW",$MrGreen); 
Note: See TracChangeset for help on using the changeset viewer.