summaryrefslogtreecommitdiff
path: root/factor/examples/greeter
diff options
context:
space:
mode:
Diffstat (limited to 'factor/examples/greeter')
-rw-r--r--factor/examples/greeter/greeter-tests.factor4
-rw-r--r--factor/examples/greeter/greeter.factor4
2 files changed, 8 insertions, 0 deletions
diff --git a/factor/examples/greeter/greeter-tests.factor b/factor/examples/greeter/greeter-tests.factor
new file mode 100644
index 0000000..2c86a79
--- /dev/null
+++ b/factor/examples/greeter/greeter-tests.factor
@@ -0,0 +1,4 @@
+USING: examples.greeter tools.test ;
+IN: examples.greeter.tests
+
+{ "Hello, test" } [ "test" greeting ] unit-test
diff --git a/factor/examples/greeter/greeter.factor b/factor/examples/greeter/greeter.factor
new file mode 100644
index 0000000..825cb43
--- /dev/null
+++ b/factor/examples/greeter/greeter.factor
@@ -0,0 +1,4 @@
+USING: kernel sequences ;
+IN: examples.greeter
+
+: greeting ( name -- greeting ) "Hello, " swap append ;