Artifact
08da0f45752603ee6cade4485d9c1fcace903194
File
tests/ods-test.scm
— part of check-in
[214b154bb2]
at
2011-09-07 23:52:18
on branch trunk
— Partial implemenation of writing out ods file from megatest.db
(user:
mrwellan
size: 293)
[more...]
0000: 28 6c 6f 61 64 20 22 6f 64 73 2e 73 63 6d 22 29 (load "ods.scm")
0010: 0a 0a 28 6f 64 73 3a 6c 69 73 74 2d 3e 6f 64 73 ..(ods:list->ods
0020: 20 0a 20 22 74 65 73 74 69 6e 67 22 0a 20 22 74 . "testing". "t
0030: 65 73 74 69 6e 67 2e 6f 64 73 22 0a 20 20 27 28 esting.ods". '(
0040: 28 53 68 65 65 74 31 20 28 22 52 6f 77 20 31 2c (Sheet1 ("Row 1,
0050: 41 22 20 22 52 6f 77 20 31 2c 42 22 29 0a 20 09 A" "Row 1,B"). .
0060: 20 20 20 28 22 52 6f 77 20 32 2c 41 22 20 22 52 ("Row 2,A" "R
0070: 6f 77 20 32 2c 42 22 29 29 0a 20 20 20 20 28 53 ow 2,B")). (S
0080: 68 65 65 74 32 20 28 31 20 32 29 0a 09 20 20 20 heet2 (1 2)..
0090: 20 28 33 20 34 29 0a 09 20 20 20 20 28 29 0a 09 (3 4).. ()..
00a0: 20 20 20 20 28 22 54 68 69 73 20 69 73 20 73 68 ("This is sh
00b0: 65 65 74 20 32 22 29 29 0a 20 20 20 20 28 53 68 eet 2")). (Sh
00c0: 65 65 74 5f 33 20 28 22 54 65 73 74 22 20 22 49 eet_3 ("Test" "I
00d0: 74 65 6d 20 50 61 74 68 22 20 22 43 61 74 65 67 tem Path" "Categ
00e0: 6f 72 79 22 20 22 56 61 6c 75 65 22 20 22 43 6f ory" "Value" "Co
00f0: 6d 6d 65 6e 74 22 29 0a 09 20 20 20 20 20 28 22 mment").. ("
0100: 4c 56 53 5f 65 73 64 22 20 22 65 62 38 7a 78 66 LVS_esd" "eb8zxf
0110: 66 64 22 20 22 43 65 6c 6c 73 22 20 20 22 6e 22 fd" "Cells" "n"
0120: 29 29 29 29 0a )))).