From 6e397d524480a890387fcca601f80e86badb90ee Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 5 Aug 2015 19:13:53 -0700 Subject: [PATCH] generic.standard: add some tests. --- core/generic/standard/standard-tests.factor | 3 +++ 1 file changed, 3 insertions(+) diff --git a/core/generic/standard/standard-tests.factor b/core/generic/standard/standard-tests.factor index fdf1fd7b63..009db7a8d8 100644 --- a/core/generic/standard/standard-tests.factor +++ b/core/generic/standard/standard-tests.factor @@ -375,6 +375,9 @@ must-fail-with [ "IN: generic.standard.tests GENERIC# broken-generic# 1 ( a -- b )" eval( -- ) ] [ error>> bad-dispatch-position? ] must-fail-with +[ "IN: generic.standard.tests GENERIC# broken-generic# 2/3 ( a b c -- )" eval( -- ) ] +[ error>> bad-dispatch-position? ] +must-fail-with ! Generic words cannot be inlined { } [ "IN: generic.standard.tests GENERIC: foo ( x -- x )" eval( -- ) ] unit-test