From 7fc44aa44489e4cf31bda67c93c67de1eacd24e3 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 31 Oct 2008 21:07:57 -0500
Subject: [PATCH] Add failing tests

---
 core/classes/predicate/predicate-tests.factor | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 core/classes/predicate/predicate-tests.factor

diff --git a/core/classes/predicate/predicate-tests.factor b/core/classes/predicate/predicate-tests.factor
new file mode 100644
index 0000000000..9f3b3e2141
--- /dev/null
+++ b/core/classes/predicate/predicate-tests.factor
@@ -0,0 +1,14 @@
+USING: math tools.test ;
+IN: classes.predicate
+
+PREDICATE: negative < integer 0 < ;
+PREDICATE: positive < integer 0 > ;
+
+GENERIC: abs ( n -- n )
+M: integer abs ;
+M: negative abs -1 * ;
+M: positive abs ;
+
+[ 10 ] [ -10 abs ] unit-test
+[ 10 ] [ 10 abs ] unit-test
+[ 0 ] [ 0 abs ] unit-test