ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/URL/test/test_URLclass.pm
Revision: 1.7.2.2
Committed: Fri Aug 4 09:16:33 2000 UTC (24 years, 9 months ago) by williamc
Content type: text/plain
Branch: HPWbranch
Changes since 1.7.2.1: +1 -1 lines
Log Message: 
use Class

File Contents

# User Rev Content
1 williamc 1.1 #
2     # CVS url handler test suite
3     #
4    
5     package URL::test::test_URLclass;
6     require 5.001;
7 williamc 1.7.2.2 use URL::URLclass;
8 williamc 1.6 @ISA = ("Utilities::TestClass"); #methods both from the test class
9 williamc 1.1
10     sub init {
11     my $self=shift;
12     }
13    
14     sub test {
15     my $self=shift;
16    
17     # test 1
18 williamc 1.7 $urlA="a://testserver/path/dira/dirb/file";
19     $urlB="b://testserver/path/dira/dirb/file?param1++:=H&param2=T-";
20     $urlC="c:///path/dira/dirb/file?param1++:=H&param2=T-";
21     $urlD="d:path/dira/dirb/file?param1++:=H&param2=T-";
22    
23     $self->newtest("Standard URL no vars");
24 williamc 1.1 $self->newobject($urlA);
25 williamc 1.7 $self->expect("a");
26 williamc 1.1 $self->testinterface("type");
27     $self->clearexpect();
28 williamc 1.7 $self->expect($urlA);
29     $self->testinterface("origurl");
30 williamc 1.1 $self->testinterface("url");
31     $self->clearexpect();
32 williamc 1.7 $self->expect("testserver");
33     $self->testinterface("servername");
34 williamc 1.1 $self->clearexpect();
35 williamc 1.7 $self->expect("path/dira/dirb/file");
36     $self->testinterface("path");
37 williamc 1.1 $self->clearexpect();
38 williamc 1.7
39     $self->newtest("Standard url with parameters");
40 williamc 1.1 $self->newobject($urlB);
41 williamc 1.7 $self->expect("b");
42     $self->testinterface("type");
43     $self->clearexpect();
44     $self->expect($urlB);
45     $self->testinterface("origurl");
46 williamc 1.1 $self->testinterface("url");
47     $self->clearexpect();
48 williamc 1.7 $self->expect("testserver");
49     $self->testinterface("servername");
50     $self->clearexpect();
51     $self->expect("path/dira/dirb/file");
52     $self->testinterface("path");
53     $self->clearexpect();
54     $self->expect("H");
55     $self->testinterface("param","param1++:");
56     $self->clearexpect();
57     $self->expect("T-");
58     $self->testinterface("param","param2");
59     $self->clearexpect();
60    
61     $self->newtest("url empty server");
62     $self->newobject($urlC);
63     $self->expect($urlC);
64     $self->testinterface("origurl");
65     $self->clearexpect();
66     $self->expect("c:path/dira/dirb/file?param1++:=H&param2=T-");
67 williamc 1.1 $self->testinterface("url");
68     $self->clearexpect();
69 williamc 1.7 $self->expect("");
70     $self->testinterface("servername");
71     $self->clearexpect();
72     $self->expect("path/dira/dirb/file");
73     $self->testinterface("path");
74     $self->clearexpect();
75     $self->expect("H");
76     $self->testinterface("param","param1++:");
77     $self->clearexpect();
78     $self->expect("T-");
79     $self->testinterface("param","param2");
80     $self->clearexpect();
81     $self->expect("file");
82     $self->testinterface("file");
83 williamc 1.1 $self->clearexpect();
84    
85 williamc 1.7 $self->newtest("url no server");
86     $self->newobject($urlD);
87     $self->expect($urlD);
88     $self->testinterface("origurl");
89 williamc 1.1 $self->testinterface("url");
90     $self->clearexpect();
91 williamc 1.7 $self->expect("");
92     $self->testinterface("servername");
93     $self->clearexpect();
94     $self->expect("path/dira/dirb/file");
95     $self->testinterface("path");
96     $self->clearexpect();
97     $self->expect("file");
98     $self->testinterface("file");
99     $self->clearexpect();
100     $self->expect("H");
101     $self->testinterface("param","param1++:");
102     $self->clearexpect();
103     $self->expect("T-");
104     $self->testinterface("param","param2");
105     $self->clearexpect();
106    
107     $self->newtest("Equality checking");
108     $self->newobject($urlA);
109     $uA=URL::URLclass->new($urlA);
110     $uB=URL::URLclass->new($urlB);
111     $uC=URL::URLclass->new($urlC);
112     $uD=URL::URLclass->new($urlD);
113     $self->expect(1);
114     $self->testinterface("equals",$uA);
115     $self->clearexpect();
116     $self->expect(0);
117     $self->testinterface("equals",$uB);
118     $self->testinterface("equals",$uC);
119     $self->testinterface("equals",$uD);
120     $self->clearexpect();
121    
122     $self->newtest("Merge Test");
123 williamc 1.1 $self->newobject($urlC);
124 williamc 1.7 my $urlE="C://Cbaseserver:/test/?param1++:=Q?&passkey=AA_:yZZ3e&var1=val1";
125     $uE=URL::URLclass->new($urlE);
126     $self->expect(0);
127     $self->testinterface("merge",$uE);
128     $self->clearexpect();
129    
130     $self->expect("c://Cbaseserver:/test/path/dira/dirb/file?".
131     "param1++:=H&param2=T-&passkey=AA_:yZZ3e&var1=val1");
132 williamc 1.1 $self->testinterface("url");
133     $self->clearexpect();
134 williamc 1.7 $self->expect("H");
135 williamc 1.2 $self->testinterface("param","param1++");
136 williamc 1.1 $self->clearexpect();
137 williamc 1.4 $self->expect("AA_:yZZ3e");
138     $self->testinterface("param","passkey");
139     $self->clearexpect();
140 williamc 1.7 $self->expect("test/path/dira/dirb/file");
141     $self->testinterface("path");
142 williamc 1.4 $self->clearexpect();
143    
144 williamc 1.1 }