Remove "default" validator.. it's not actually a validator (#11)

* Remove "default" validator.. it's not actually a validator * Disable email notifications
fisxoj · Aug 12, 2018 · d98e0a0 · d98e0a0
1 parent cadd42d
commit d98e0a0
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 13 deletions.
diff --git a/.travis.yml b/.travis.yml
@@ -1,5 +1,7 @@
 language: common-lisp
 sudo: false
+notifications:
+  email: false
 
 env:
   global:

diff --git a/src/validate.lisp b/src/validate.lisp
@@ -108,9 +108,3 @@
     (local-time::invalid-timestring (c)
       (declare (ignore c))
       (fail value "value is not a valid timestamp."))))
-
-(defun default (value &optional (default-value ""))
-  "Provides a value if none is present."
-  (if (alexandria:emptyp value)
-      default-value
-      value))
diff --git a/t/validate.lisp b/t/validate.lisp
@@ -4,7 +4,7 @@
 
 (in-package :validate-test)
 
-(plan 8)
+(plan 7)
 
 ;; Test parsing
 
@@ -105,9 +105,4 @@
   (is-error (v:timestamp "potato") 'v:<validation-error>
             "Raises an error on an invalid timestamp."))
 
-;; Default values
-(subtest "Default"
-  (is (v:default nil "potato") "potato" "Supplies a value instead of nil.")
-  (is (v:default "" "potato") "potato" "Supplies a value for an empty string."))
-
 (finalize)
diff --git a/validate.asd b/validate.asd
@@ -4,7 +4,7 @@
 |#
 
 (defsystem validate
-  :version "0.6.0"
+  :version "0.7.0"
   :author "Matt Novenstern"
   :license "LLGPLv3"
   :depends-on ("iterate"