[S06-macros/macros-d1.t] fixed a test a bit

Carl Masak · Carl Masak · commit c677b73b493f · 2012-02-22T14:56:44.000+01:00
Rakudo presently fails this one; fixed so that it fails
it in a nicer way.
diff --git a/S06-macros/macros-d1.t b/S06-macros/macros-d1.t
@@ -1,7 +1,7 @@
 use v6;
 
 use Test;
-plan 9;
+plan 10;
 
 # Just to avoid tedium, the macros in this file are
 # named after Santa's reindeers.
@@ -98,9 +98,10 @@ plan 9;
 
 {
     macro blitzen($param) {
-        quasi { $param x 3 }
+        quasi { $param }
     }
 
-    is blitzen("ho!"), "ho!ho!ho!",
+    my $result = blitzen("ho ho ho");
+    is $result, "ho ho ho",
         "lexical lookup from quasi to macro params works";
 }

Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,7 @@`
`1`	`1`	`use v6;`
`2`	`2`
`3`	`3`	`use Test;`
`4`		`-plan 9;`
	`4`	`+plan 10;`
`5`	`5`
`6`	`6`	`# Just to avoid tedium, the macros in this file are`
`7`	`7`	`# named after Santa's reindeers.`
`@@ -98,9 +98,10 @@ plan 9;`
`98`	`98`
`99`	`99`	`{`
`100`	`100`	`macro blitzen($param) {`
`101`		`- quasi { $param x 3 }`
	`101`	`+ quasi { $param }`
`102`	`102`	`}`
`103`	`103`
`104`		`- is blitzen("ho!"), "ho!ho!ho!",`
	`104`	`+ my $result = blitzen("ho ho ho");`
	`105`	`+ is $result, "ho ho ho",`
`105`	`106`	`"lexical lookup from quasi to macro params works";`
`106`	`107`	`}`