base62: adding a base63 encoder/decoder.

[factor.git] / extra / base62 / base62-tests.factor

diff --git a/extra/base62/base62-tests.factor b/extra/base62/base62-tests.factor
new file mode 100644 (file)
index 0000000..24c334d
--- /dev/null
+++ b/extra/base62/base62-tests.factor
@@ -0,0 +1,13 @@
+USING: base62 math.parser strings tools.test ;
+
+{ "" } [ "" >base62 >string ] unit-test
+{ "" } [ "" base62> >string ] unit-test
+
+{ "0" } [ B{ 0 } >base62 >string ] unit-test
+{ B{ 0 } } [ "0" base62> ] unit-test
+
+{ "00" } [ B{ 0 0 } >base62 >string ] unit-test
+{ B{ 0 0 } } [ "00" base62> ] unit-test
+
+{ "Q0DRQksv" } [ "SIMPLE" >base62 >string ] unit-test
+{ "SIMPLE" } [ "Q0DRQksv" base62> >string ] unit-test