vin: adding some tests.

diff --git a/extra/vin/vin-tests.factor b/extra/vin/vin-tests.factor
new file mode 100644 (file)
index 0000000..07be581
--- /dev/null
+++ b/extra/vin/vin-tests.factor
@@ -0,0 +1,5 @@
+USING: tools.test vin ;
+
+{ t } [ "11111111111111111" valid-vin? ] unit-test
+{ t } [ "1M8GDM9AXKP042788" valid-vin? ] unit-test
+{ f } [ "1M8GDM9A_KP042788" valid-vin? ] unit-test