Author: allison
Date: Tue Oct 2 01:10:08 2007
New Revision: 21741
Modified:
branches/pdd15oo/t/pmc/mmd.t
Log:
[pdd15oo] Converting 'find_type' idiom in MMD tests to new metamodel.
Modified: branches/pdd15oo/t/pmc/mmd.t
==============================================================================
--- branches/pdd15oo/t/pmc/mmd.t (original)
+++ branches/pdd15oo/t/pmc/mmd.t Tue Oct 2 01:10:08 2007
@@ -32,16 +32,16 @@
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
- .local int type_perl_int
- type_perl_int = find_type 'PerlInt'
+ .local int type_perl_int
+ type_perl_int = find_type 'PerlInt'
.local pmc divide
divide = global "Integer_divide_PerlInt"
mmdvtregister .MMD_DIVIDE, .Integer, type_perl_int, divide
- $P0 = new 'type_perl_int'
+ $P0 = new 'PerlInt'
$P1 = new 'Integer'
- $P2 = new 'type_perl_int'
+ $P2 = new 'PerlInt'
$P1 = 10
$P2 = 3
$P0 = $P1 / $P2
@@ -513,12 +513,10 @@
.sub 'test' :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
- .local int type_perl_string
- type_perl_string = find_type 'PerlInt'
$P0 = new 'String'
$P0 = "ok 1\n"
- $P1 = new 'type_perl_string'
+ $P1 = new 'PerlInt'
$P1 = "ok 2\n"
p($P0)
p($P1)
@@ -554,12 +552,10 @@
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
- .local int type_perl_string
- type_perl_string = find_type 'PerlInt'
$P0 = new 'String'
$P0 = "ok 1\n"
- $P1 = new 'type_perl_string'
+ $P1 = new 'PerlInt'
$P1 = "ok 2\n"
p($P0)
p($P1)
@@ -595,12 +591,10 @@
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
- .local int type_perl_string
- type_perl_string = find_type 'PerlInt'
$P0 = new 'String'
$P0 = "ok 1\n"
- $P1 = new 'type_perl_string'
+ $P1 = new 'PerlInt'
$P1 = "ok 2\n"
p($P0)
p($P1)
@@ -639,14 +633,10 @@
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
- .local int type_perl_string
- type_perl_string = find_type 'PerlInt'
- .local int type_perl_int
- type_perl_int = find_type 'PerlInt'
$P0 = new 'String'
$P0 = "ok 1\n"
- $P1 = new 'type_perl_string'
+ $P1 = new 'PerlInt'
$P1 = "ok 2\n"
p($P0)
p($P1)
@@ -658,7 +648,7 @@
$P1 = "ok 4\n"
p($P0)
p($P1)
- $P0 = new 'type_perl_int'
+ $P0 = new 'PerlInt'
$P0 = 42
p($P0)
.end
@@ -694,14 +684,10 @@
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
- .local int type_perl_string
- type_perl_string = find_type 'PerlInt'
- .local int type_perl_int
- type_perl_int = find_type 'PerlInt'
$P0 = new 'String'
$P0 = "ok 1\n"
- $P1 = new 'type_perl_string'
+ $P1 = new 'PerlInt'
$P1 = "ok 2\n"
p($P0)
p($P1)
@@ -740,14 +726,10 @@
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
- .local int type_perl_string
- type_perl_string = find_type 'PerlInt'
- .local int type_perl_int
- type_perl_int = find_type 'PerlInt'
$P0 = new 'String'
$P0 = "ok 1\n"
- $P1 = new 'type_perl_string'
+ $P1 = new 'PerlInt'
$P1 = "ok 2\n"
p($P0)
p($P1)
@@ -784,21 +766,17 @@
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
- .local int type_perl_string
- type_perl_string = find_type 'PerlInt'
- .local int type_perl_int
- type_perl_int = find_type 'PerlInt'
$P0 = new 'String'
$P0 = "ok 1\n"
- $P1 = new 'type_perl_string'
+ $P1 = new 'PerlInt'
$P1 = "ok 2\n"
p($P0)
p($P1)
- $P0 = new 'type_perl_int'
+ $P0 = new 'PerlInt'
$P0 = 42
p($P0)
- $P0 = new 'type_perl_int'
+ $P0 = new 'PerlInt'
$P0 = 43
q($P0)
.end
@@ -876,14 +854,10 @@
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
- .local int type_perl_string
- type_perl_string = find_type 'PerlInt'
- .local int type_perl_int
- type_perl_int = find_type 'PerlInt'
.local pmc d, l, r
- l = new 'type_perl_int'
- r = new 'type_perl_int'
+ l = new 'PerlInt'
+ r = new 'PerlInt'
l = 3
r = 39
d = l."__add"(r)
@@ -1054,8 +1028,7 @@
.sub main :main
newclass $P0, 'Foo'
- $I0 = find_type 'Foo'
- $P0 = new $I0
+ $P0 = new 'Foo'
$P0.'bar'('Bar!')
@@ -1258,11 +1231,8 @@
.local pmc class
newclass class, [ 'Some'; 'Class' ]
- .local int class_type
- class_type = find_type [ 'Some'; 'Class' ]
-
.local pmc instance
- instance = new class_type
+ instance = new [ 'Some'; 'Class' ]
.local string name
name = typeof instance
@@ -1281,11 +1251,8 @@
.local pmc class
newclass class, [ 'Some'; 'Class' ]
- .local int class_type
- class_type = find_type [ 'Some'; 'Class' ]
-
.local pmc instance
- instance = new class_type
+ instance = new [ 'Some'; 'Class' ]
foo( instance )
end
