[svn:parrot] r21778 - branches/pdd15oo/t/dynpmc

[jquelin]

Author: jquelin
Date: Wed Oct  3 09:19:07 2007
New Revision: 21778

Modified:
   branches/pdd15oo/t/dynpmc/foo.t
   branches/pdd15oo/t/dynpmc/gdbmhash.t
   branches/pdd15oo/t/dynpmc/rational.t

Log:
more find_type removal

Modified: branches/pdd15oo/t/dynpmc/foo.t
==============================================================================
--- branches/pdd15oo/t/dynpmc/foo.t     (original)
+++ branches/pdd15oo/t/dynpmc/foo.t     Wed Oct  3 09:19:07 2007
@@ -27,8 +27,7 @@
 
 .sub main :main
     loadlib P1, "foo"
-    find_type $I0, "Foo"
-    new $P1, $I0
+    $P1 = new "Foo"
 
     $I1 = $P1
     print $I1
@@ -46,8 +45,7 @@
     loadlib P1, $S0
 
     ## ensure that we can still make Foo instances.
-    find_type $I0, "Foo"
-    new $P1, $I0
+    $P1 = new "Foo"
     $I1 = $P1
     print $I1
     print "\n"
@@ -71,8 +69,7 @@
     loadlib P1, $S0
 
     ## ensure that we can still make Foo instances.
-    find_type $I0, "Foo"
-    new $P1, $I0
+    $P1 = new "Foo"
     $I1 = $P1
     print $I1
     print "\n"
@@ -94,8 +91,7 @@
     loadlib P1, $S0
 
     ## ensure that we can still make Foo instances.
-    find_type $I0, "Foo"
-    new $P1, $I0
+    $P1 = new "Foo"
     $I1 = $P1
     print $I1
     print "\n"
@@ -121,8 +117,7 @@
     loadlib P1, $S0
 
     ## ensure that we can still make Foo instances.
-    find_type $I0, "Foo"
-    new $P1, $I0
+    $P1 = new "Foo"
     $I1 = $P1
     print $I1
     print "\n"

Modified: branches/pdd15oo/t/dynpmc/gdbmhash.t
==============================================================================
--- branches/pdd15oo/t/dynpmc/gdbmhash.t        (original)
+++ branches/pdd15oo/t/dynpmc/gdbmhash.t        Wed Oct  3 09:19:07 2007
@@ -35,10 +35,8 @@
 .sub test :main
     .local pmc gdbmhash_lib
     gdbmhash_lib = loadlib "gdbmhash"
-    .local int gdbmhash_type
-    gdbmhash_type = find_type "GDBMHash"
     .local pmc hash_1
-    hash_1 = new gdbmhash_type
+    hash_1 = new "GDBMHash"
 CODE
 
 pir_output_is( $new_hash_1 . << 'CODE', << 'OUTPUT', "typeof" );

Modified: branches/pdd15oo/t/dynpmc/rational.t
==============================================================================
--- branches/pdd15oo/t/dynpmc/rational.t        (original)
+++ branches/pdd15oo/t/dynpmc/rational.t        Wed Oct  3 09:19:07 2007
@@ -27,8 +27,7 @@
 
 .sub main :main
     loadlib P1, "rational"
-    find_type $I0, "Rational"
-    new $P1, $I0
+    $P1 = new "Rational"
 
     $I1 = $P1
     print $I1
@@ -46,8 +45,7 @@
     loadlib P1, $S0
 
     ## ensure that we can still make Rational instances.
-    find_type $I0, "Rational"
-    new $P1, $I0
+    $P1 = new "Rational"
     $I1 = $P1
     print $I1
     print "\n"
@@ -71,8 +69,7 @@
     loadlib P1, $S0
 
     ## ensure that we can still make Rational instances.
-    find_type $I0, "Rational"
-    new $P1, $I0
+    $P1 = new "Rational"
     $I1 = $P1
     print $I1
     print "\n"
@@ -94,8 +91,7 @@
     loadlib P1, $S0
 
     ## ensure that we can still make Rational instances.
-    find_type $I0, "Rational"
-    new $P1, $I0
+    $P1 = new "Rational"
     $I1 = $P1
     print $I1
     print "\n"
@@ -121,8 +117,7 @@
     loadlib P1, $S0
 
     ## ensure that we can still make Rational instances.
-    find_type $I0, "Rational"
-    new $P1, $I0
+    $P1 = new "Rational"
     $I1 = $P1
     print $I1
     print "\n"