[svn:parrot] r47100 - in trunk: config/gen/config_pm t/op

plobsing at svn.parrot.org plobsing at svn.parrot.org
Sat May 29 06:12:51 UTC 2010


Author: plobsing
Date: Sat May 29 06:12:50 2010
New Revision: 47100
URL: https://trac.parrot.org/parrot/changeset/47100

Log:
fix t/op/arithmetics_pmc.t after ops_massacre

Modified:
   trunk/config/gen/config_pm/config_pir.in
   trunk/t/op/arithmetics_pmc.t

Modified: trunk/config/gen/config_pm/config_pir.in
==============================================================================
--- trunk/config/gen/config_pm/config_pir.in	Sat May 29 03:53:41 2010	(r47099)
+++ trunk/config/gen/config_pm/config_pir.in	Sat May 29 06:12:50 2010	(r47100)
@@ -40,7 +40,6 @@
 =cut
 
 .include "interpinfo.pasm"
-.loadlib 'os'
 
 .sub _config
     .local string prefix, conf_file
@@ -48,6 +47,7 @@
 
     $S0 = concat prefix, "/runtime"
 
+    $P0 = loadlib 'os'
     $P0 = new ['OS']
     push_eh file_not_found
         # OS.stat throws on file not found

Modified: trunk/t/op/arithmetics_pmc.t
==============================================================================
--- trunk/t/op/arithmetics_pmc.t	Sat May 29 03:53:41 2010	(r47099)
+++ trunk/t/op/arithmetics_pmc.t	Sat May 29 06:12:50 2010	(r47100)
@@ -16,13 +16,11 @@
 
 =cut
 
-.loadlib 'trans_ops' # for pow
-
 .sub main :main
     .include 'test_more.pir'
     .include "iglobals.pasm"
 
-    plan(44)
+    plan(40)
 
     # Don't check BigInt or BigNum without gmp
     .local pmc interp     # a handle to our interpreter object.
@@ -57,7 +55,6 @@
     test_logical_xor(type)
     test_logical_or(type)
     test_modulus(type)
-    test_pow(type)
     test_subtract(type)
 .end
 
@@ -331,36 +328,6 @@
   end:
 .end
 
-.sub test_pow
-    .param pmc type
-
-    $P0 = new type
-    $P0 = 40
-    $P1 = new type
-    $P1 = 2
-    $P2 = new type
-    $P2 = 115200
-
-    $P99 = $P2
-
-    $S0 = "original dest is untouched in pow for "
-    $S1 = type
-    concat $S0, $S1
-
-    # ignore exceptions
-    push_eh done
-    pow $P2, $P0, $P1
-
-    $I0 = cmp $P99, 115200
-
-    is( $I0, 0, $S0 )
-    goto end
-
-  done:
-    ok(1, 'ignoring exceptions')
-  end:
-.end
-
 .sub test_subtract
     .param pmc type
 


More information about the parrot-commits mailing list