add valid-number? validation

hellcoderz · May 7, 2012 · dd71c36 · dd71c36
1 parent 94fc41f
commit dd71c36
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/noir/validation.clj b/src/noir/validation.clj
@@ -53,7 +53,14 @@
   (and (not (empty? v))
    (> (Long/parseLong v) 0)))
 
-
+(defn valid-number?
+  "Returns true if the string can be cast to a Long"
+  [v]
+  (try
+    (Long/parseLong v)
+    true
+    (catch Exception e
+      false)))
 
 (declare ^:dynamic *errors*)