[svn:parrot] r37584 - trunk/t/dynpmc

[coke at svn.parrot.org]

Author: coke
Date: Thu Mar 19 06:04:42 2009
New Revision: 37584
URL: https://trac.parrot.org/parrot/changeset/37584

Log:
remove another Deprecated .HLL_map
Tene++ # HLL namespaces are lowercase
Tene++ # a version of this patch I didn't read.

Modified:
   trunk/t/dynpmc/subproxy.t

Modified: trunk/t/dynpmc/subproxy.t
==============================================================================
--- trunk/t/dynpmc/subproxy.t	Thu Mar 19 05:17:58 2009	(r37583)
+++ trunk/t/dynpmc/subproxy.t	Thu Mar 19 06:04:42 2009	(r37584)
@@ -11,7 +11,7 @@
 
 =head1 NAME
 
-t/dynpmc/subproxy.t - test if Sub is overridable by .HLL_map
+t/dynpmc/subproxy.t - test if Sub is overridable via hll_map()
 
 =head1 SYNOPSIS
 
@@ -19,8 +19,8 @@
 
 =head1 DESCRIPTION
 
-Tests the .HLL_map of Sub PMCs. The test is using .SubProxy, which
-happens to be a .Sub.
+Tests the hll mapping of Sub PMCs. The test is using SubProxy, which
+happens to be a Sub.
 
 =cut
 
@@ -38,16 +38,15 @@
 ok
 OUTPUT
 
-pir_output_is( << 'CODE', << 'OUTPUT', "test type of HLL_mapped .Sub" );
+pir_output_is( << 'CODE', << 'OUTPUT', "test type of hll_map'ped .Sub" );
 .sub main :main
-    .const 'Sub' b = 'bar'
+    .local pmc b, f
+    b = get_global 'bar'
     $S0 = typeof b
-    print $S0
-    print "\n"
-    .const 'Sub' f = 'foo'
+    say $S0
+    f = get_root_global ['some'], 'foo'
     $S0 = typeof f
-    print $S0
-    print "\n"
+    say $S0
 .end
 
 .sub bar
@@ -56,7 +55,14 @@
 
 .HLL "Some"
 .loadlib "subproxy"
-.HLL_map "Sub" = "SubProxy"
+.sub load :anon :immediate
+    .local pmc interp
+    .local pmc sub,subproxy
+    interp = getinterp
+    sub = get_class 'Sub'
+    subproxy = get_class 'SubProxy'
+    interp.'hll_map'(sub,subproxy)
+.end
 
 .sub foo
     noop