cvsuser 04/12/02 18:06:30
Modified: t/dynclass pybuiltin.t
Log:
Potential fix for bug #32784
Revision Changes Path
1.5 +26 -8 parrot/t/dynclass/pybuiltin.t
Index: pybuiltin.t
===================================================================
RCS file: /cvs/public/parrot/t/dynclass/pybuiltin.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- pybuiltin.t 30 Nov 2004 21:49:25 -0000 1.4
+++ pybuiltin.t 3 Dec 2004 02:06:30 -0000 1.5
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: pybuiltin.t,v 1.4 2004/11/30 21:49:25 rubys Exp $
+# $Id: pybuiltin.t,v 1.5 2004/12/03 02:06:30 rubys Exp $
=head1 NAME
@@ -16,7 +16,8 @@
=cut
-use Parrot::Test tests => 3;
+use Parrot::Test tests => 4;
+use Parrot::Config;
output_is(<< 'CODE', << 'OUTPUT', "delegating");
##PIR##
@@ -63,11 +64,6 @@
print $P3
print "\n"
- find_lex $P2, "long"
- $P3 = $P2($P0)
- print $P3
- print "\n"
-
find_lex $P2, "oct"
$P3 = $P2($P0)
print $P3
@@ -80,10 +76,32 @@
31.0
0x1f
31
-31L
037
OUTPUT
+SKIP: { skip("No BigInt Lib configured", 1) if !$PConfig{gmp};
+output_is(<< 'CODE', << 'OUTPUT', "bigint");
+##PIR##
+.sub main @MAIN
+ new_pad 0
+ loadlib $P0, "python_group"
+ find_global P0, "PyBuiltin", "__load__"
+ invoke
+
+ find_type $I0, "PyInt"
+ new $P0, $I0
+ set $P0, 31
+
+ find_lex $P1, "long"
+ $P2 = $P1($P0)
+ print $P2
+ print "\n"
+.end
+CODE
+31L
+OUTPUT
+}
+
output_is(<< 'CODE', << 'OUTPUT', "range");
##PIR##
.sub main @MAIN
