Annotation of loncom/xml/lontable.test, revision 1.2
1.1 foxr 1: #!/usr/bin/perl
2:
3: # The LearningOnline Network with CAPA
4: # Generating TeX tables.
5: #
1.2 ! foxr 6: # $Id: lontable.test,v 1.1 2008/12/02 11:57:25 foxr Exp $
1.1 foxr 7: #
8: #
9: # Copyright Michigan State University Board of Trustees
10: #
11: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
12: #
13: # LON-CAPA is free software; you can redistribute it and/or modify
14: # it under the terms of the GNU General Public License as published by
15: # the Free Software Foundation; either version 2 of the License, or
16: # (at your option) any later version.
17: #
18: # LON-CAPA is distributed in the hope that it will be useful,
19: # but WITHOUT ANY WARRANTY; without even the implied warranty of
20: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21: # GNU General Public License for more details.
22: #
23: # You should have received a copy of the GNU General Public License
24: # along with LON-CAPA; if not, write to the Free Software
25: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
26: #
27: # /home/httpd/html/adm/gpl.txt
28: #
29: # http://www.lon-capa.org/
30: ## Copyright for TtHfunc and TtMfunc by Ian Hutchinson.
31: # TtHfunc and TtMfunc (the "Code") may be compiled and linked into
32: # binary executable programs or libraries distributed by the
33: # Michigan State University (the "Licensee"), but any binaries so
34: # distributed are hereby licensed only for use in the context
35: # of a program or computational system for which the Licensee is the
36: # primary author or distributor, and which performs substantial
37: # additional tasks beyond the translation of (La)TeX into HTML.
38: # The C source of the Code may not be distributed by the Licensee
39: # to any other parties under any circumstances.
40: #
41:
42:
43: # A TEST SUITE??? You've got to be kidding!!! LonCAPA don't have no
44: # TEST SUITEs!!!
45: #
46: # Well lontable does and this is it. The test suite ensures that
47: # the lontable.pm module is able to create the data structures it
48: # purports to create. The suite also ensures that the correct
49: # information is passed ot the LaTeX::Table class at generate
50: # time.
51: #
52:
53: use strict;
54: use lontable;
1.2 ! foxr 55: use Test::More tests=>88;
1.1 foxr 56:
57: #------------------- Default Construction tests: ---------------------------------
58: # Tests the getter forms of the configuration methods too:
59:
60: my $testobject = new Apache::lontable();
61: ok(($testobject->alignment() eq 'left'), "Default Construction - Correct alignment");
62: ok(($testobject->table_border() == 0), "Default Construction - Correct table border");
63: ok(($testobject->cell_border() == 0), "Default Construction - Correct cell border");
64: ok(($testobject->caption() eq ''), "Default Construction - Correct caption");
65: ok(($testobject->theme() eq "Zurich"), "Default Construction - Correct theme");
66: ok(($testobject->get_object_attribute('column_count') == 0),
67: "Default Construction - zero columncount");
68: ok((!$testobject->get_object_attribute('row_open')),
69: "Default Construction - Row not open");
70: my $rows = $testobject->get_object_attribute('rows');
71: ok((scalar(@$rows) == 0), 'Default Construction - empty row array');
72:
73:
74: #--------------- Configured construction tests -----------------------------------
75: #
76:
1.2 ! foxr 77: $testobject = new Apache::lontable({alignment => 'right',
1.1 foxr 78: outer_border => 1,
79: inner_border => 1,
80: caption => 'Test caption',
81: theme => 'Houston'});
82: ok($testobject->alignment() eq 'right', 'Configured Construction - Correct alignment');
83: ok($testobject->table_border() == 1, 'Configured Construction - correct border');
84: ok($testobject->cell_border() == 1, 'Configured Construction - correct cell border');
85: ok($testobject->caption eq 'Test caption', 'Configured Construction - Correct caption');
86: ok($testobject->theme() eq 'Houston', 'Confiugred construction - correct theme');
87:
88:
89: #-------------- Test global configuration setters ----------------------------
90:
91: # Each test starts with a fresh object:
92:
93: # Table of methods to test...
94:
1.2 ! foxr 95: $testobject = new Apache::lontable();
! 96:
1.1 foxr 97: my @configmethods = ('alignment', 'table_border', 'cell_border', 'caption', 'theme');
98:
99: # Table of parameters for each method and expected results from the getter
100:
101: my @values = ('center', '1', '1', "Testing", 'Miami');
102: my $i = 0;
103: foreach my $method (@configmethods) {
104: $testobject = new Apache::lontable();
105: $testobject->$method($values[$i]);
106: ok($testobject->$method() eq $values[$i], "Global Config: Testing $method as a setter");
107: $i++;
108: }
1.2 ! foxr 109:
! 110: #--------------- Test row management --------------------------------------
! 111:
! 112: # start row adds a row to the table; in default config unless overridden.
! 113:
! 114: $testobject = new Apache::lontable();
! 115:
! 116: $testobject->start_row(); # Unconfigured row.
! 117: ok($testobject->get_object_attribute('row_open') == 1, "One row added");
! 118: $rows = $testobject->get_object_attribute('rows');
! 119: ok(scalar(@$rows) == 1, ' only one row');
! 120: my $row = $rows->[0];
! 121: my $cells = $row->{'cells'};
! 122: ok($row->{'default_halign'} eq 'left', "default row halign");
! 123: ok($row->{'default_valign'} eq 'top', 'default row valign');
! 124: ok(scalar(@$cells) == 0, 'Initial cell count');
! 125:
! 126: # Start row with row open makes a second row:
! 127:
! 128: $testobject->start_row();
! 129: ok($testobject->get_object_attribute('row_open') == 1, "Two rows.. still open");
! 130: $rows = $testobject->get_object_attribute('rows');
! 131: ok(scalar(@$rows) == 2, 'two rows now');
! 132:
! 133: # Creating row with configuration:
! 134:
! 135: $testobject->start_row({'default_halign' => "center",
! 136: 'default_valign' => 'bottom'});
! 137: $rows = $testobject->get_object_attribute('rows');
! 138: $row = $rows->[-1]; # Last row should be configured:
! 139: ok($row->{'default_halign'} eq 'center', "Overridden horiz align");
! 140: ok($row->{'default_valign'} eq 'bottom', 'Overridden vert. align');
! 141:
! 142: # end row says no row is open..we'll need to look at it again when we
! 143: # start adding cells, as it also manages the max cell count.
! 144:
! 145: $testobject->end_row();
! 146: ok($testobject->get_object_attribute('row_open') == 0, "Row closed");
! 147:
! 148:
! 149: #-------------------- Cell management -------------------------------
! 150:
! 151: $testobject = new Apache::lontable();
! 152: $testobject->start_row();
! 153: $testobject->add_cell("cell 0");
! 154: $testobject->add_cell("cell 1");
! 155: $testobject->end_row();
! 156:
! 157: # At this point we should have one row (that's already been tested).
! 158: # we should have max cell count of 2
! 159: # we should be able to see the cells we added with default values.
! 160:
! 161: ok($testobject->get_object_attribute('column_count') == 2, 'max cells ok');
! 162: $rows = $testobject->get_object_attribute('rows');
! 163: $row = $rows->[0];
! 164: my $cols = $row->{'cells'}; # Reference to cell array
! 165: ok(scalar(@$cols) == 2, ' correct cell count');
! 166: my $cell = $cols->[0];
! 167: ok($cell->{'contents'} eq 'cell 0', 'Correct cell 0 contents');
! 168: ok($cell->{'rowspan'} == 1, 'Correct cell 0 rowspan');
! 169: ok($cell->{'colspan'} == 1, 'Correct cell 0 colspan');
! 170: $cell = $cols->[1];
! 171: ok($cell->{'contents'} eq 'cell 1', 'correct cell 1 contents');
! 172: ok($cell->{'rowspan'} == 1, 'correct cell 1 rowspan');
! 173: ok($cell->{'colspan'} == 1, 'correct cell 1 column span');
! 174:
! 175: # Add a second row that has 3 columns and some rowspans.
! 176: # - column_count -> 3
! 177: # - the cells should have the correct rowspans/colspans.
! 178:
! 179: $testobject->start_row();
! 180: $testobject->add_cell("row2 cell 0",
! 181: {'rowspan' => 2});
! 182: $testobject->add_cell('row2 cell 1',
! 183: {'rowspan' => 3});
! 184: $testobject->add_cell('row 2 cell 3');
! 185: $testobject->end_row();
! 186:
! 187: $row = $rows->[1];
! 188: $cols = $row->{'cells'};
! 189: ok(scalar(@$cols) == 3, 'correct columnm count');
! 190: ok($testobject->get_object_attribute('column_count') == 3, 'max cols ok');
! 191:
! 192: $cell = $cols->[0];
! 193: ok($cell->{'contents'} eq 'row2 cell 0', 'Contents 2,0');
! 194: ok($cell->{'rowspan'} == 2, 'rowspand 2,0');
! 195: ok($cell->{'colspan'} == 1, 'colspan 2,0');
! 196:
! 197: $cell = $cols->[1];
! 198: ok($cell->{'contents'} eq 'row2 cell 1', 'Contents 2,1');
! 199: ok($cell->{'rowspan'} == 3, 'rowspand 2,1');
! 200: ok($cell->{'colspan'} == 1, 'colspan 2,2');
! 201:
! 202: $cell = $cols->[2];
! 203: ok($cell->{'contents'} eq 'row 2 cell 3', "Contents 2,2");
! 204: ok($cell->{'rowspan'} == 1, "Rowspan 2,2");
! 205: ok($cell->{'colspan'} == 1, 'Colspan 2,2');
! 206:
! 207: #--------------------------- Test colspans with row spans. ----------------------
! 208: #
! 209: # Make a table that looks like:
! 210: #
! 211: # +-------------------------+---------------------+
! 212: # | Spans 2 cols, 3 rows| spans 2 cols 1 row |
! 213: # | +-----------+---------+
! 214: # | | span 1,1 | span 1 1|
! 215: # | +-----------+---------+
! 216: # | |2rows 1col | span 1 1|
! 217: # +----------+--------------+ +---------+
! 218: # | Span 1 1 | span 1 1 | |span 1 1 |
! 219: # +----------+---------+----+-----------+---------+
! 220:
! 221:
! 222: $testobject = new Apache::lontable();
! 223:
! 224: $testobject->start_row();
! 225: $testobject->add_cell('2 cols 3 rows', {rowspan => 3, colspan => 2});
! 226: $testobject->add_cell('2 cols 1 row', {colspan => 2});
! 227: $testobject->end_row();
! 228:
! 229: $testobject->start_row();
! 230: $testobject->add_cell('ordinary cell');
! 231: $testobject->add_cell('ordinary cell');
! 232: $testobject->end_row();
! 233:
! 234: $testobject->start_row();
! 235: $testobject->add_cell('2 rows 1 col', {rowspan => 2});
! 236: $testobject->add_cell('ordinary cell');
! 237: $testobject->end_row();
! 238:
! 239: $testobject->start_row();
! 240: $testobject->add_cell('ordinary cell');
! 241: $testobject->add_cell('ordinary cell');
! 242: $testobject->add_cell('ordinary cell');
! 243: $testobject->end_row();
! 244:
! 245: # First of all the table should have figured out tere are 4 cols and 4 rows:
! 246:
! 247: ok($testobject->get_object_attribute('column_count') == 4, 'col count with spans');
! 248:
! 249: # First row should be trivial 2 cells with the spans described.
! 250:
! 251: my $row = $testobject->get_row(0);
! 252: my $cells = $row->{'cells'}; # Refs an array of cells.
! 253: ok(scalar(@$cells) == 2, ' 2 cell hashes in the row 0');
! 254: ok($cells->[0]->{'rowspan'} == 3, '1,1 rowspan');
! 255: ok($cells->[0]->{'colspan'} == 2, '1,1 colspan');
! 256: ok($cells->[0]->{'contents'} eq '2 cols 3 rows', '1,1 contents');
! 257: ok($cells->[1]->{'rowspan'} == 1, '1 2 rowspan');
! 258: ok($cells->[1]->{'colspan'} == 2, '1 2 colspan');
! 259: ok($cells->[1]->{'contents'} eq '2 cols 1 row', '1 2 contents');
! 260:
! 261: # Second row, the first cell should carry down an empty cell from the row
! 262: # above it (first cell), same colspan, rowspan of 2 now, then there should
! 263: # be two ordinary cells:
! 264:
! 265: $row = $testobject->get_row(1);
! 266: $cells = $row->{'cells'};
! 267: ok(scalar(@$cells) == 3, ' 3 cell hashes in row 1');
! 268: ok($cells->[0]->{'rowspan'} == 2, '2,1 rowspan carried from above');
! 269: ok($cells->[0]->{'colspan'} == 2, '2,1 colspan carried from above');
! 270: ok($cells->[0]->{'contents'} eq '', '2,1 should be empty');
! 271: ok($cells->[1]->{'rowspan'} == 1, '2,2 rowspan');
! 272: ok($cells->[1]->{'colspan'} == 1, '2,2 colspan');
! 273: ok($cells->[1]->{'contents'} eq 'ordinary cell', '2,2 contents');
! 274: ok($cells->[2]->{'rowspan'} == 1, '2,3 rowspan');
! 275: ok($cells->[2]->{'colspan'} == 1, '2,3 colspan');
! 276: ok($cells->[2]->{'contents'} eq 'ordinary cell','2,3 contents');
! 277:
! 278: # 3'd row. Shoould look a lot like the second row, but the second cell
! 279: # has a rowspan of 2.
! 280:
! 281: $row = $testobject->get_row(2);
! 282: $cells = $row->{'cells'};
! 283: ok(scalar(@$cells) == 3, '3 cell hashes in row 3');
! 284: ok($cells->[0]->{'rowspan'} == 1, '3,1 rowspan carried from above, down -> 1');
! 285: ok($cells->[0]->{'colspan'} == 2, '3,1 colspan carried from above.');
! 286: ok($cells->[0]->{'contents'} eq "" , '3,1 contetns empty');
! 287:
! 288: ok($cells->[1]->{'rowspan'} == 2, '3,2, rowspan');
! 289: ok($cells->[1]->{'colspan'} == 1, '3,2 colspan');
! 290: ok($cells->[1]->{'contents'} eq '2 rows 1 col', '3,2 contents');
! 291:
! 292: ok($cells->[2]->{'rowspan'} == 1, '3,3 rowspan');
! 293: ok($cells->[2]->{'colspan'} == 1, '3,3 colspan');
! 294: ok($cells->[2]->{'contents'} eq 'ordinary cell', '3,3 contents');
! 295:
! 296: # last row, should have cell 3 carried down from above. all other cells
! 297: # are ordinary.
! 298:
! 299: $row = $testobject->get_row(3);
! 300: $cells = $row->{'cells'};
! 301: ok(scalar(@$cells) == 4, '4 cell hashes in row 4');
! 302: ok($cells->[0]->{'rowspan'} == 1, "4,1 rowsspan");
! 303: ok($cells->[0]->{'colspan'} == 1, "4,1 colspan");
! 304: ok($cells->[0]->{'contents'} eq 'ordinary cell', '4,1 contents');
! 305:
! 306: ok($cells->[1]->{'rowspan'} == 1, '4,2 rowspan');
! 307: ok($cells->[1]->{'colspan'} == 1, '4,2 colspan');
! 308: ok($cells->[1]->{'contents'} eq 'ordinary cell', '4,2, contents');
! 309:
! 310: ok($cells->[2]->{'rowspan'} == 1, "4,3 rowspan carried down");
! 311: ok($cells->[2]->{'colspan'} == 1, '4,3 colspan carried down');
! 312: ok($cells->[2]->{'contents'} eq '', '4,3 contents empty');
! 313:
! 314: ok($cells->[3]->{'rowspan'} == 1, "4,4 rowspan");
! 315: ok($cells->[3]->{'colspan'} == 2, '4,4 colspan');
! 316: ok($cells->[3]->{'contents'} eq 'ordinary cell', '4,4 contents');
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to lontable.test CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml