Test CSV output
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 18 Apr 2014 18:26:08 +0000 (18:26 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 18 Apr 2014 18:26:08 +0000 (18:26 +0000)
tests/small_stats_csv.out [new file with mode: 0644]
tests/test.hs

diff --git a/tests/small_stats_csv.out b/tests/small_stats_csv.out
new file mode 100644 (file)
index 0000000..2da6efd
--- /dev/null
@@ -0,0 +1,3 @@
+Tag,Time,Percentage
+arbtt, 3m00s,100.00
+before_14, 1m00s,33.33
index fb283b3..8f888e4 100644 (file)
@@ -56,6 +56,9 @@ goldenTests = testGroup "Golden tests"
     , goldenVsString "stats small"
         "tests/small_stats.out" $
         run "dist/build/arbtt-stats/arbtt-stats" ["--logfile", "tests/small.log", "--categorize", "tests/small.cfg"] B.empty
+    , goldenVsString "stats small csv"
+        "tests/small_stats_csv.out" $
+        run "dist/build/arbtt-stats/arbtt-stats" ["--logfile", "tests/small.log", "--categorize", "tests/small.cfg", "--output-format", "csv"] B.empty
     , goldenVsString "stats small unicode"
         "tests/unicode_stats.out" $
         run "dist/build/arbtt-stats/arbtt-stats" ["--logfile", "tests/unicode.log", "--categorize", "tests/unicode.cfg"] B.empty