From b608fde28f22ca99352f324294025d9e015856eb Mon Sep 17 00:00:00 2001
From: tcurtis <tyler.l.curtis@gmail.com>
Date: Mon, 9 Aug 2010 14:06:07 -0500
Subject: [PATCH] Test deeper trees with :combine.

---
 t/tree-optimizer.t | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/t/tree-optimizer.t b/t/tree-optimizer.t
index 992ec4b..2ead5cc 100644
--- a/t/tree-optimizer.t
+++ b/t/tree-optimizer.t
@@ -2,7 +2,7 @@
 
 pir::load_bytecode('Tree/Optimizer.pbc');
 
-plan(33);
+plan(37);
 
 {
     my $opt := Tree::Optimizer.new;
@@ -209,6 +209,17 @@ pir::load_bytecode('PAST/Pattern.pbc');
        ':combine produces same result as without it.');
     ok($pattern.count == 2,
        'With :combine, .transform is not called.');
+    $past := PAST::Stmts.new(PAST::Val.new(:value(6)));
+    $target := PAST::Pattern::Stmts.new(PAST::Pattern::Val.new(:value(14)));
+    ok($opt.run($past.clone) ~~ $target,
+       'Second :combine test optimizer runs correctly without combine.');
+    ok($pattern.count == 4,
+       'Second :combine test optimizer calls .transform twice without :combine.');
+    $past := PAST::Stmts.new(PAST::Val.new(:value(6)));
+    ok($opt.run($past.clone, :combine(1)) ~~ $target,
+       ':combine produces same result as without it for second test optimizer.');
+    ok($pattern.count == 4,
+       'With :combine, .transform is not called with second test optimizer.');
 }
 
 {