cvsuser 04/05/28 01:53:59
Modified: t/pmc perlint.t
Log:
added a diagnosis message
Revision Changes Path
1.17 +17 -2 parrot/t/pmc/perlint.t
Index: perlint.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/perlint.t,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -w -r1.16 -r1.17
--- perlint.t 8 Mar 2004 00:20:09 -0000 1.16
+++ perlint.t 28 May 2004 08:53:59 -0000 1.17
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: perlint.t,v 1.16 2004/03/08 00:20:09 chromatic Exp $
+# $Id: perlint.t,v 1.17 2004/05/28 08:53:59 jrieks Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 27;
+use Parrot::Test tests => 28;
use Parrot::PMC '%pmc_types';
my $perlint = $pmc_types{'PerlInt'};
my $ok = '"ok 1\n"';
@@ -63,6 +63,21 @@
.endm
ENDOFMACRO
+warn "failed to get type of PerlInt!" unless defined $perlint;
+
+output_is(<<"CODE", <<'OUTPUT', ".PerlInt == $perlint");
+# type
+ set I0, .PerlInt
+ eq I0,$perlint,ok_1
+ print "value of .PerlInt is "
+ print I0
+ print " and not $perlint\\nnot "
+ok_1:
+ print $ok
+ end
+CODE
+ok 1
+OUTPUT
output_is(<<"CODE", <<'OUTPUT', "type");
new P0,.PerlInt
