1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
() = evalfile ("./test.sl");
require ("csv");
private variable Table = struct {author = {}, title = {}, sample = {}};
private define add_entry (author, title, sample)
{
list_append (Table.author, author);
list_append (Table.title, title);
list_append (Table.sample, sample);
}
add_entry ("Poe, Edgar Allan", "The Raven", "\
Once upon a midnight dreary, while I pondered weak and weary,\n\
Over many a quaint and curious volume of forgotten lore,\n\
While I nodded, nearly napping, suddenly there came a tapping,\n\
As of some one gently rapping, rapping at my chamber door.\n\
\"Tis some visitor,\" I muttered, tapping at my chamber door -\n\
Only this, and nothing more.");
add_entry ("Frost, Robert", "Mending Wall", "\
He moves in darkness as it seems to me,\n\
Not of woods only and the shade of trees.\n\
He will not go behind his father's saying,\n\
And he likes having thought of it so well\n\
He says again, \"Good fences make good neighbors.\"");
private define test_csv ()
{
variable file = sprintf ("/tmp/testcsv-%ld.csv", _time() mod getpid());
csv_writecol (file, Table);
variable names = get_struct_field_names (Table);
variable table = csv_readcol (file;has_header);
if (any(names != get_struct_field_names (table)))
{
failed ("csv_read/write failed to produce a table with the expected column names");
return;
}
foreach (names)
{
variable name = ();
ifnot (_eqs(get_struct_field (table, name), get_struct_field (table, name)))
{
failed ("column %S entries are not equal", name);
return;
}
}
table = csv_readcol (file, 1, 3; has_header);
if (any(names[[1,3]-1] != get_struct_field_names (table)))
{
failed ("csv_read/write failed to produce a table with the expected column names");
return;
}
foreach (get_struct_field_names (table))
{
name = ();
ifnot (_eqs(get_struct_field (table, name), get_struct_field (table, name)))
{
failed ("column %S entries are not equal", name);
return;
}
}
() = remove (file);
}
define slsh_main ()
{
testing_module ("csv");
test_csv ();
end_test ();
}
|
