On Thu, 12 Jul 2007 09:26:25 -0700
Mark Glines <[EMAIL PROTECTED]> wrote:
> I don't have a fix (yet), but here's a patch to add a couple of tests
> for it. One test makes sure it emits the right #line when a complex
> pmclass statement is all on one line, and the second makes sure #line
> is adjusted when pmclass *isn't* on the same line.
>
> The first test succeeds, the second one fails.
Ever get the feeling you're just talking to yourself? I do.
Andy's r19845 changes changed the generated .c output slightly, which
broke the tests I had added. Here is an updated patch to
t/tools/pmc2c.t, to make them pass again.
Mark
=== t/tools/pmc2c.t
==================================================================
--- t/tools/pmc2c.t (revision 21481)
+++ t/tools/pmc2c.t (local)
@@ -28,7 +28,7 @@
use Fatal qw{open close};
use Test::More;
-use Parrot::Test tests => 11;
+use Parrot::Test tests => 13;
use Parrot::Config;
my $pmc2c = join $PConfig{slash}, qw(. tools build pmc2c.pl);
@@ -181,6 +181,28 @@
);
END_C
+pmc2c_output_like( <<'END_PMC', <<'END_C', 'maps' );
+pmclass a hll dale maps Integer {
+ void init() {
+ }
+}
+END_PMC
+Parrot_a_init(PARROT_INTERP, PMC *pmc)
+#line 2
+END_C
+
+pmc2c_output_like( <<'END_PMC', <<'END_C', 'maps' );
+pmclass a
+ hll dale
+ maps Integer {
+ void init() {
+ }
+}
+END_PMC
+Parrot_a_init(PARROT_INTERP, PMC *pmc)
+#line 4
+END_C
+
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
