rosetta-code.gnome-sort: add some tests

diff --git a/extra/rosetta-code/gnome-sort/gnome-sort-tests.factor b/extra/rosetta-code/gnome-sort/gnome-sort-tests.factor
new file mode 100644 (file)
index 0000000..473dcaf
--- /dev/null
+++ b/extra/rosetta-code/gnome-sort/gnome-sort-tests.factor
@@ -0,0 +1,10 @@
+! Copyright (C) 2017 Alexander Ilin.
+! See http://factorcode.org/license.txt for BSD license.
+USING: tools.test rosetta-code.gnome-sort ;
+IN: rosetta-code.gnome-sort.tests
+
+{ V{ } } [ V{ } gnome-sort ] unit-test
+{ V{ 0 } } [ V{ 0 } gnome-sort ] unit-test
+{ V{ 0 1 2 3 4 5 } } [ V{ 0 1 2 3 4 5 } gnome-sort ] unit-test
+{ V{ 0 1 2 3 4 5 } } [ V{ 5 4 3 2 1 0 } gnome-sort ] unit-test
+{ V{ 0 1 2 3 4 5 } } [ V{ 2 4 5 1 3 0 } gnome-sort ] unit-test