From 73053ef2306a6fbcf791ed87c551751700b5f5fd Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 25 Dec 2007 18:11:56 -0500 Subject: [PATCH] Add failing unit test --- core/prettyprint/prettyprint-tests.factor | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/core/prettyprint/prettyprint-tests.factor b/core/prettyprint/prettyprint-tests.factor index 2d959528ed..700c7ea33c 100755 --- a/core/prettyprint/prettyprint-tests.factor +++ b/core/prettyprint/prettyprint-tests.factor @@ -272,6 +272,20 @@ unit-test "another-narrow-layout" another-narrow-test check-see ] unit-test +: class-see-test + { + "IN: temporary" + "TUPLE: class-see-layout bar ;" + "GENERIC: class-see-layout" + "" + "USING: temporary ;" + "M: class-see-layout class-see-layout ;" + } ; + +[ t ] [ + "class-see-layout" class-see-test check-see +] unit-test + [ ] [ \ effect-in synopsis drop ] unit-test [ [ + ] ] [