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/AttrsTests.pm

    r14 r816  
    33package AttrsTests; 
    44 
    5 use base qw(TWikiTestCase); 
    6  
    7 use TWiki::Attrs; 
     5use base qw(FoswikiTestCase); 
     6 
     7use Foswiki::Attrs; 
    88 
    99sub new { 
    … …  
    1515        my $this = shift; 
    1616 
    17         my $attrs = TWiki::Attrs->new(undef, 1); 
    18         $this->assert($attrs->isEmpty()); 
    19         $attrs = TWiki::Attrs->new("", 1); 
    20         $this->assert($attrs->isEmpty()); 
    21         $attrs = TWiki::Attrs->new(" \t  \n\t", 1); 
     17        my $attrs = Foswiki::Attrs->new(undef, 1); 
     18        $this->assert($attrs->isEmpty()); 
     19        $attrs = Foswiki::Attrs->new("", 1); 
     20        $this->assert($attrs->isEmpty()); 
     21        $attrs = Foswiki::Attrs->new(" \t  \n\t", 1); 
    2222        $this->assert($attrs->isEmpty()); 
    2323} 
    … …  
    2626        my $this = shift; 
    2727 
    28         my $attrs = TWiki::Attrs->new("a", 1); 
     28        my $attrs = Foswiki::Attrs->new("a", 1); 
    2929        $this->assert(!$attrs->isEmpty()); 
    3030        $this->assert_not_null($attrs->{"a"}); 
    3131        $this->assert_str_equals("1", $attrs->{"a"}); 
    3232 
    33         $attrs = TWiki::Attrs->new("a12g b987", 1); 
     33        $attrs = Foswiki::Attrs->new("a12g b987", 1); 
    3434        $this->assert_not_null($attrs->remove("a12g")); 
    3535        $this->assert_null($attrs->{"a12g"}); 
    … …  
    3838        $this->assert($attrs->isEmpty(), "Fail ".$attrs->stringify()); 
    3939 
    40         $attrs = TWiki::Attrs->new("Acid AnhydrousCopperSulphate='white' X", 1); 
     40        $attrs = Foswiki::Attrs->new("Acid AnhydrousCopperSulphate='white' X", 1); 
    4141        $this->assert_not_null($attrs->remove("Acid")); 
    4242        $this->assert_not_null($attrs->remove("X")); 
    … …  
    4848        my $this = shift; 
    4949 
    50         my $attrs = TWiki::Attrs->new("\"wibble\"", 1); 
     50        my $attrs = Foswiki::Attrs->new("\"wibble\"", 1); 
    5151        $this->assert(!$attrs->isEmpty()); 
    5252        $this->assert_str_equals("wibble", $attrs->remove("_DEFAULT")); 
    … …  
    5454        $this->assert($attrs->isEmpty()); 
    5555 
    56         $attrs = TWiki::Attrs->new("\"wibble\" \"fleegle\"", 1); 
     56        $attrs = Foswiki::Attrs->new("\"wibble\" \"fleegle\"", 1); 
    5757        $this->assert_str_equals("wibble", $attrs->remove("_DEFAULT")); 
    5858        $this->assert($attrs->isEmpty()); 
    … …  
    6262        my $this = shift; 
    6363 
    64         my $attrs = TWiki::Attrs->new("var1=val1 var2= val2, var3 = 3 var4 =val4", 1); 
     64        my $attrs = Foswiki::Attrs->new("var1=val1 var2= val2, var3 = 3 var4 =val4", 1); 
    6565        $this->assert_str_equals("val1", $attrs->remove("var1")); 
    6666        $this->assert_str_equals("val2", $attrs->remove("var2")); 
    … …  
    7373        my $this = shift; 
    7474 
    75         my $attrs = TWiki::Attrs->new("var1=\\\"val1 var2= \\\'val2, var3 = 3 var4 =val4", 1); 
     75        my $attrs = Foswiki::Attrs->new("var1=\\\"val1 var2= \\\'val2, var3 = 3 var4 =val4", 1); 
    7676        $this->assert_str_equals("\"val1", $attrs->remove("var1")); 
    7777        $this->assert_str_equals("\'val2", $attrs->remove("var2")); 
    … …  
    8484        my $this = shift; 
    8585 
    86         my $attrs = TWiki::Attrs->new("var1 =\"val 1\", var2= \"val 2\" \" default \" var3 = \" val 3 \"", 1); 
     86        my $attrs = Foswiki::Attrs->new("var1 =\"val 1\", var2= \"val 2\" \" default \" var3 = \" val 3 \"", 1); 
    8787        $this->assert_str_equals("val 1", $attrs->remove("var1")); 
    8888        $this->assert_str_equals("val 2", $attrs->remove("var2")); 
    … …  
    9595        my $this = shift; 
    9696 
    97         my $attrs = TWiki::Attrs->new("var1 ='val 1', var2= 'val 2' ' default ' var3 = ' val 3 '", 1); 
     97        my $attrs = Foswiki::Attrs->new("var1 ='val 1', var2= 'val 2' ' default ' var3 = ' val 3 '", 1); 
    9898        $this->assert_str_equals("val 1", $attrs->remove("var1")); 
    9999        $this->assert_str_equals("val 2", $attrs->remove("var2")); 
    … …  
    106106        my $this = shift; 
    107107 
    108         my $attrs = TWiki::Attrs->new("a ='\"', b=\"'\" \"'\"", 1); 
     108        my $attrs = Foswiki::Attrs->new("a ='\"', b=\"'\" \"'\"", 1); 
    109109        $this->assert_str_equals("\"", $attrs->remove("a")); 
    110110        $this->assert_str_equals("'", $attrs->remove("b")); 
    111111        $this->assert_str_equals("'", $attrs->remove("_DEFAULT")); 
    112112        $this->assert($attrs->isEmpty()); 
    113         $attrs = TWiki::Attrs->new("'\"'", 1); 
     113        $attrs = Foswiki::Attrs->new("'\"'", 1); 
    114114        $this->assert_str_equals("\"", $attrs->remove("_DEFAULT")); 
    115115        $this->assert($attrs->isEmpty()); 
    … …  
    119119        my $this = shift; 
    120120 
    121         my $attrs = TWiki::Attrs->new("a ='\"', b=\"'\" \"'\"", 1); 
     121        my $attrs = Foswiki::Attrs->new("a ='\"', b=\"'\" \"'\"", 1); 
    122122        my $s = $attrs->stringify(); 
    123         $attrs = TWiki::Attrs->new($attrs->stringify(), 1); 
     123        $attrs = Foswiki::Attrs->new($attrs->stringify(), 1); 
    124124        $this->assert_str_equals("\"", $attrs->remove("a")); 
    125125        $this->assert_str_equals("'", $attrs->remove("b")); 
    … …  
    133133    my $s = '"abc def="ghi" jkl" def="mno" pqr=" stu="vwx""'; 
    134134    $this->assert_str_equals('abc def="ghi" jkl', 
    135                              TWiki::Attrs::extractValue($s)); 
     135                             Foswiki::Attrs::extractValue($s)); 
    136136} 
    137137 
    … …  
    141141    my $s = '"abc def="ghi" jkl" def="mno" pqr=" stu="vwx""'; 
    142142    $this->assert_str_equals('ghi', 
    143                              TWiki::Attrs::extractValue($s, "def")); 
     143                             Foswiki::Attrs::extractValue($s, "def")); 
    144144} 
    145145 
    … …  
    149149    my $s = '"abc def="ghi" jkl" def="mno" pqr=" stu="vwx""'; 
    150150    $this->assert_str_equals('', 
    151                              TWiki::Attrs::extractValue($s, "jkl")); 
     151                             Foswiki::Attrs::extractValue($s, "jkl")); 
    152152} 
    153153 
    … …  
    157157    my $s = '"abc def="ghi" jkl" def="mno" pqr=" stu="vwx""'; 
    158158    $this->assert_str_equals(' stu=', 
    159                              TWiki::Attrs::extractValue($s, 'pqr')); 
     159                             Foswiki::Attrs::extractValue($s, 'pqr')); 
    160160} 
    161161 
    … …  
    165165    my $s = '"abc def="ghi" jkl" def="mno" pqr=" stu="vwx""'; 
    166166    $this->assert_str_equals('vwx', 
    167                              TWiki::Attrs::extractValue($s, 'stu')); 
     167                             Foswiki::Attrs::extractValue($s, 'stu')); 
    168168} 
    169169 
    … …  
    217217    my( $this, $s ) = @_; 
    218218 
    219     my $new = new TWiki::Attrs($s,0); 
     219    my $new = new Foswiki::Attrs($s,0); 
    220220    my %old = extractParameters($s); 
    221221 
    … …  
    253253    my $this = shift; 
    254254    my $s = "\nBarf"; 
    255     my $new = new TWiki::Attrs($s,0); 
     255    my $new = new Foswiki::Attrs($s,0); 
    256256    $s = "Barf\n"; 
    257     $new = new TWiki::Attrs($s,0); 
     257    $new = new Foswiki::Attrs($s,0); 
    258258    $s = "\n"; 
    259     $new = new TWiki::Attrs($s,0); 
     259    $new = new Foswiki::Attrs($s,0); 
    260260    $s = "\"The\nCat\" format=\"Shat\nOn\nThe\nMat\""; 
    261261    $this->check_string( $s ); 
    … …  
    265265    my $this = shift; 
    266266    my $s = "   Barf"; 
    267     my $new = new TWiki::Attrs($s,0); 
     267    my $new = new Foswiki::Attrs($s,0); 
    268268    $this->assert_str_equals($s, $new->{_RAW}); 
    269269} 
Note: See TracChangeset for help on using the changeset viewer.