removing a compilation warn.
[koha.git] / t / output.t
1 BEGIN { $| = 1; print "1..25\n"; }
2 END {print "not ok 1\n" unless $loaded;}
3 use C4::Output;
4 $loaded = 1;
5 print "ok 1\n";
6
7 #
8 # ensure &startpage returns correct value
9 #
10 if ("<html>\n" eq startpage()) {
11     print "ok 2\n";
12 } else {
13     print "not ok 2\n";
14 }
15
16 #
17 # Check that &gotopage returns proper value
18 #
19 if ("<META HTTP-EQUIV=Refresh CONTENT=\"0;URL=http:foo\">" eq gotopage('foo')) {
20     print "ok 3\n";
21 } else {
22     print "not ok 3\n";
23 }
24
25 #
26 # skipping &startmenu for now
27 #
28
29 #
30 # skipping &endmenu for now
31
32 #
33 # ensure &mktablehdr returns a proper value
34 #
35
36 if ("<table border=0 cellspacing=0 cellpadding=5>\n" eq mktablehdr()) {
37     print "ok 4\n";
38 } else {
39     print "not ok 4\n";
40 }
41
42 #
43 # ensure &mktablerow returns a proper value
44 #
45 # 1 row, no background image
46 if ("<tr valign=top bgcolor=red><td>text</td></tr>\n" eq
47     mktablerow(1,'red','text')) {
48     print "ok 5\n";
49 } else { 
50     print "not ok 5\n";
51 }
52 # 1 row, background image
53 if ("<tr valign=top bgcolor=red><td background=\"foo.jpg\">text</td></tr>\n" eq
54     mktablerow(1,'red','text','foo.jpg')) {
55     print "ok 6\n";
56 } else {
57     print "not ok 6\n";
58 }
59 #2 rows, no background image
60 if ("<tr valign=top bgcolor=red><td>text</td><td>text</td></tr>\n" eq
61     mktablerow(2,'red','text','text')) {
62     print "ok 7\n";
63 } else {
64     print "not ok 7\n";
65 }
66
67 # 2 rows, background image
68 if ("<tr valign=top bgcolor=red><td background=\"foo.jpg\">text</td><td background=\"foo.jpg\">text</td></tr>\n" eq 
69     mktablerow(2,'red','text','text', 'foo.jpg')) {
70     print "ok 8\n";
71 } else {
72     print "not ok 8\n";
73 }
74
75 #
76 # ensure mktableft returns the proper value
77 #
78
79 if ("</table>\n" eq mktableft()) {
80     print "ok 9\n";
81 } else {
82     print "not ok 9\n";
83 }
84
85
86 #
87 # skipping mkform for now
88 #
89
90 #
91 # skipping mkform3 for now
92 #
93
94 #
95 # skipping mkform2 for now
96 #
97
98 #
99 # ensure endpage returns the proper value
100 #
101
102 if ("</body></html>\n" eq endpage()) {
103     print "ok 10\n";
104 } else {
105     print "not ok 10\n";
106 }
107
108
109 #
110 # ensure mklink returns the right value
111 #
112
113 if ("<a href=\"foo.html\">foo</a>" eq mklink('foo.html', 'foo')) {
114     print "ok 11\n";
115 } else {
116     print "not ok 11\n";
117 }
118
119 #
120 # ensure mkheadr returns the proper value
121 #
122
123 if ("<FONT SIZE=6><em>foo</em></FONT><br>" eq mkheadr(1,'foo')) {
124     print "ok 12\n";
125 } else {
126     print "not ok 12\n";
127 }
128
129 if ("<FONT SIZE=6><em>foo</em></FONT>" eq mkheadr(2,'foo')) {
130     print "ok 13\n";
131 } else {
132     print "not ok 13\n";
133 }
134
135 if ("<FONT SIZE=6><em>foo</em></FONT><p>" eq mkheadr(3,'foo')) {
136     print "ok 14\n";
137 } else {
138     print "not ok 14\n";
139 }
140
141 #
142 # test &center and &endcenter
143 #
144
145 if ("<CENTER>\n" eq center()) {
146     print "ok 15\n";
147 } else { 
148     print "not ok15\n";
149 }
150
151 if ("</CENTER>\n" eq endcenter()) {
152     print "ok 16\n";
153 } else { 
154     print "not ok 16\n";
155 }
156
157 #
158 # ensure bold returns proper value
159 #
160
161 if ("<b>foo</b>" eq bold('foo')) {
162     print "ok 17\n";
163 } else {
164     print "not ok\n";
165 }
166
167 #
168 # ensure &mkformnotable returns a valid value
169 #
170
171 @inputHidden = qw(hidden hiddenname hiddenvalue);
172 @inputRadio = qw(radio radioname radiovalue);
173 @inputText = qw(text textname textvalue);
174 @inputTextarea = qw(textarea textareaname textareavalue);
175 @inputSubmit = qw(submit submitname submitvalue);
176 @inputReset = qw(reset resetname resetvalue);
177
178 # 1 input; hidden
179 @inputs = (\@inputHidden);
180 $return ="<form action=actionurl method=post>\n";
181 $return .= "<input type=hidden name=hiddenname value=\"hiddenvalue\">\n";
182 $return .= "</form>";
183
184 if ($return eq mkformnotable('actionurl', @inputs)) {
185     print "ok 18\n";
186 } else {
187     print "not ok 18\n";
188 }
189
190 # 1 input; radio
191 @inputs = (\@inputRadio);
192 $return ="<form action=actionurl method=post>\n";
193 $return .= "<input type=radio name=radioname value=\"radiovalue\">radiovalue\n";
194 $return .= "</form>";
195
196 if ($return eq mkformnotable('actionurl', @inputs)) {
197     print "ok 19\n";
198 } else {
199     print "not ok 19\n";
200 }
201
202 # 1 input; text
203 @inputs = (\@inputText);
204 $return = "<form action=actionurl method=post>\n";
205 $return .= "<input type=text name=textname value=\"textvalue\">\n";
206 $return .= "</form>";
207
208 if ($return eq mkformnotable('actionurl', @inputs)) {
209     print "ok 20\n";
210 } else {
211     print "not ok 20\n";
212 }
213
214
215 # 1 input; textarea
216 @inputs = (\@inputTextarea);
217 $return = "<form action=actionurl method=post>\n";
218 $return .= "<textarea name=textareaname wrap=physical cols=40 rows=4>textareavalue</textarea>\n";
219 $return .= "</form>";
220
221 if ($return eq mkformnotable('actionurl', @inputs)) {
222     print "ok 21\n";
223 } else {
224     print "not ok 21\n";
225 }
226
227 # 1 input; submit
228 @inputs = (\@inputSubmit);
229 $return = "<form action=actionurl method=post>\n";
230 $return .= "<input type=submit name=submitname value=\"submitvalue\">\n";
231 $return .= "</form>";
232
233 if ($return eq mkformnotable('actionurl', @inputs)) {
234     print "ok 22\n";
235 } else {
236     print "not ok 22\n";
237 }
238
239 # 1 input; reset
240 @inputs = (\@inputReset);
241 $return = "<form action=actionurl method=post>\n";
242 $return .= "<input type=reset name=resetname value=\"resetvalue\">\n";
243 $return .= "</form>";
244
245 if ($return eq mkformnotable('actionurl', @inputs)) {
246     print "ok 23\n";
247 } else {
248     print "not ok 23\n";
249 }
250
251 # 2 inputs; hidden and submit
252 @inputs = (\@inputHidden, \@inputSubmit);
253 $return = "<form action=actionurl method=post>\n";
254 $return .= "<input type=hidden name=hiddenname value=\"hiddenvalue\">\n";
255 $return .= "<input type=submit name=submitname value=\"submitvalue\">\n";
256 $return .= "</form>";
257
258 if ($return eq mkformnotable('actionurl', @inputs)) {
259     print "ok 24\n";
260 } else {
261     print "not ok 24\n";
262 }
263
264
265 # 3 inputs; text, submit, and reset
266 @inputs = (\@inputText, \@inputSubmit, \@inputReset);
267 $return = "<form action=actionurl method=post>\n";
268 $return .= "<input type=text name=textname value=\"textvalue\">\n";
269 $return .= "<input type=submit name=submitname value=\"submitvalue\">\n";
270 $return .= "<input type=reset name=resetname value=\"resetvalue\">\n";
271 $return .= "</form>";
272
273 if ($return eq mkformnotable('actionurl', @inputs)) {
274     print "ok 25\n";
275 } else {
276     print "not ok 25\n";
277 }
278
279
280
281
282