From 12b0e16232f4d23f6c6d2b63c043feb612271bcf Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Tue, 22 Jun 2010 16:41:14 -0400 Subject: [PATCH] Unit tests for a couple of serious compiler bugs --- basis/compiler/tests/optimizer.factor | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/basis/compiler/tests/optimizer.factor b/basis/compiler/tests/optimizer.factor index 13917fd6bf..606d1a0edf 100644 --- a/basis/compiler/tests/optimizer.factor +++ b/basis/compiler/tests/optimizer.factor @@ -4,7 +4,8 @@ sbufs strings tools.test vectors words sequences.private quotations classes classes.algebra classes.tuple.private continuations growable namespaces hints alien.accessors compiler.tree.builder compiler.tree.optimizer sequences.deep -compiler.test definitions generic.single shuffle math.order ; +compiler.test definitions generic.single shuffle math.order +compiler.cfg.debugger ; IN: compiler.tests.optimizer GENERIC: xyz ( obj -- obj ) @@ -440,3 +441,9 @@ TUPLE: grid-mesh-tuple { length read-only } { step read-only } ; ] keep ; [ { 0.5 } ] [ grid-mesh-test-case ] unit-test + +[ { 1 } "bar" ] [ { 1 } [ [ [ [ "foo" throw ] [ "bar" throw ] recover ] attempt-all f ] [ ] recover ] compile-call ] unit-test + +GENERIC: bad-push-test-case ( a -- b ) +M: object bad-push-test-case "foo" throw ; inline +[ { 1 } "bar" ] [ { 1 } [ [ [ [ bad-push-test-case ] [ "bar" throw ] recover ] attempt-all f ] [ ] recover ] compile-call ] unit-test