From 4022f2401399c0911103eaf7988fde4372b7f727 Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Wed, 2 Jul 2014 22:15:26 +0200
Subject: [Factor] Día 2 (sin terminar)

---
 factor/examples/test-suite/test-suite.factor | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 factor/examples/test-suite/test-suite.factor

(limited to 'factor/examples/test-suite/test-suite.factor')

diff --git a/factor/examples/test-suite/test-suite.factor b/factor/examples/test-suite/test-suite.factor
new file mode 100644
index 0000000..42d0f28
--- /dev/null
+++ b/factor/examples/test-suite/test-suite.factor
@@ -0,0 +1,13 @@
+USING: tools.test io io.streams.null kernel namespaces sequences ;
+
+USE: examples.greeter
+USE: examples.strings
+
+IN: examples.test-suite
+
+: test-all-examples ( -- )
+    [ "examples" test ] with-null-writer
+    test-failures get empty?
+    [ "All tests passed" print ] [ :test-failures ] if ;
+
+MAIN: test-all-examples
-- 
cgit v1.2.3