Add unit tests for msxml-to-csv

diff --git a/extra/msxml-to-csv/msxml-to-csv-tests.factor b/extra/msxml-to-csv/msxml-to-csv-tests.factor
new file mode 100644 (file)
index 0000000..57c2c77
--- /dev/null
+++ b/extra/msxml-to-csv/msxml-to-csv-tests.factor
@@ -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
\ No newline at end of file

diff --git a/extra/msxml-to-csv/test.csv b/extra/msxml-to-csv/test.csv
new file mode 100644 (file)
index 0000000..51880af
--- /dev/null
+++ b/extra/msxml-to-csv/test.csv
@@ -0,0 +1,2 @@
+A,B
+C,D
\ No newline at end of file

diff --git a/extra/msxml-to-csv/test.xml b/extra/msxml-to-csv/test.xml
new file mode 100644 (file)
index 0000000..2c4ca42
--- /dev/null
+++ b/extra/msxml-to-csv/test.xml
@@ -0,0 +1 @@
+<Worksheet><Table><Row><Cell>A</Cell><Cell>B</Cell></Row><Row><Cell>C</Cell><Cell>D</Cell></Row></Table></Worksheet>