Add unit tests for msxml-to-csv

db4
Slava Pestov 2009-01-31 20:56:00 -06:00
parent 7a8dc80426
commit 335f0d99bf
3 changed files with 13 additions and 0 deletions

View File

@ -0,0 +1,10 @@
IN: msxml-to-csv.tests
USING: msxml-to-csv tools.test csv io.encodings.utf8
io.files.temp kernel ;
[ t ] [
"test.csv" temp-file
"resource:extra/msxml-to-csv/test.xml" msxml>csv
"test.csv" temp-file utf8 file>csv
"resource:extra/msxml-to-csv/test.csv" utf8 file>csv =
] unit-test

View File

@ -0,0 +1,2 @@
A,B
C,D
1 A B
2 C D

View File

@ -0,0 +1 @@
<Worksheet><Table><Row><Cell>A</Cell><Cell>B</Cell></Row><Row><Cell>C</Cell><Cell>D</Cell></Row></Table></Worksheet>