# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1545796231 18000
# Node ID 72a8f71c2670f30f36455ac14f1e7151ff8552d6
# Parent  b9239b4fe503554f30e89960d20eefa3513fa7dc
Move things around

diff -r b9239b4fe503 -r 72a8f71c2670 .hgignore
--- a/.hgignore	Tue Dec 25 22:47:24 2018 -0500
+++ b/.hgignore	Tue Dec 25 22:50:31 2018 -0500
@@ -2,4 +2,4 @@
 lisp.prof
 scratch.lisp
 docs/build
-test/large*
+test/data/large*
diff -r b9239b4fe503 -r 72a8f71c2670 conserve.asd
--- a/conserve.asd	Tue Dec 25 22:47:24 2018 -0500
+++ b/conserve.asd	Tue Dec 25 22:50:31 2018 -0500
@@ -12,8 +12,7 @@
 
   :serial t
   :components ((:file "package")
-               (:module "src" :serial t
-                :components
+               (:module "src" :serial t :components
                 ((:file "main")))))
 
 (asdf:defsystem :conserve/test
@@ -28,9 +27,8 @@
 
   :serial t
   :components ((:file "package.test")
-               (:module "test"
-                :serial t
-                :components ((:file "tests"))))
+               (:module "test" :serial t :components
+                ((:file "tests"))))
   :perform (asdf:test-op (op system)
              (funcall (read-from-string "conserve/test:run-tests"))))
 
diff -r b9239b4fe503 -r 72a8f71c2670 test/bench.lisp
--- a/test/bench.lisp	Tue Dec 25 22:47:24 2018 -0500
+++ b/test/bench.lisp	Tue Dec 25 22:50:31 2018 -0500
@@ -50,7 +50,7 @@
   (setf *data* (random-data)))
 
 (defun write-file-this ()
-  (with-open-file (s "test/large-this.csv"
+  (with-open-file (s "test/data/large-this.csv"
                      :direction :output
                      :if-exists :supersede)
     (time
@@ -58,7 +58,7 @@
             (write-rows *data* s)))))
 
 (defun write-file-cl-csv ()
-  (with-open-file (s "test/large-cl-csv.csv"
+  (with-open-file (s "test/data/large-cl-csv.csv"
                      :direction :output
                      :if-exists :supersede)
     (time (loop :repeat *data-repetitions* :do
@@ -66,7 +66,7 @@
                                   :stream s
                                   :newline (string #\newline))))))
 (defun write-file-fare ()
-  (with-open-file (s "test/large-fare.csv"
+  (with-open-file (s "test/data/large-fare.csv"
                      :direction :output
                      :if-exists :supersede)
     (fare-csv:with-rfc4180-csv-syntax ()
@@ -91,7 +91,7 @@
 
 
 (defun read-file-this ()
-  (with-open-file (s "test/large-this.csv")
+  (with-open-file (s "test/data/large-this.csv")
     (time (loop
             :with data = *data*
             :for row = (read-row s nil :eof)
@@ -103,7 +103,7 @@
             :do (assert (equal expected-row row))))))
 
 (defun read-file-cl-csv ()
-  (with-open-file (s "test/large-cl-csv.csv")
+  (with-open-file (s "test/data/large-cl-csv.csv")
     (let ((result 0))
       (time (handler-case
                 (loop
@@ -129,7 +129,7 @@
 ;; '() over '("").  Why would you sell out the marginally-useful case (a 1-col
 ;; CSV) in favor of the utterly useless case (a 0-col CSV)?
 (defun read-file-fare ()
-  (with-open-file (s "test/large-fare.csv")
+  (with-open-file (s "test/data/large-fare.csv")
     (fare-csv:with-rfc4180-csv-syntax ()
       (time (loop
               :with data = *data*