Author: particle
Date: Wed Jan 11 17:19:40 2006
New Revision: 11110
Modified:
trunk/t/pmc/integer.t
Log:
PMC: fix faulty Integer.'get_as_base' test
Modified: trunk/t/pmc/integer.t
==============================================================================
--- trunk/t/pmc/integer.t (original)
+++ trunk/t/pmc/integer.t Wed Jan 11 17:19:40 2006
@@ -409,7 +409,7 @@ CODE
42
OUTPUT
-pir_output_is(<<'CODE', <<'OUTPUT', "get_as_base(various)", todo => 'failures
above base 19');
+pir_output_is(<<'CODE', <<'OUTPUT', "get_as_base(various)");
.sub main :main
$P0 = new .Integer
$P0 = 42
@@ -438,9 +438,6 @@ pir_output_is(<<'CODE', <<'OUTPUT', "get
$S0 = $P0.'get_as_base'(19)
bsr PRINT
- $S0 = $P0.'get_as_base'(19)
- bsr PRINT
-
$S0 = $P0.'get_as_base'(23)
bsr PRINT
@@ -466,7 +463,7 @@ CODE
33
28
24
-1t
-1m
-1k
+1j
+1d
+1b
OUTPUT
