[svn:parrot] r47739 - trunk/t/pmc

[NotFound at svn.parrot.org]

Author: NotFound
Date: Mon Jun 21 14:58:48 2010
New Revision: 47739
URL: https://trac.parrot.org/parrot/changeset/47739

Log:
test Hash get_key_type method

Modified:
   trunk/t/pmc/hash.t

Modified: trunk/t/pmc/hash.t
==============================================================================
--- trunk/t/pmc/hash.t	Mon Jun 21 14:43:06 2010	(r47738)
+++ trunk/t/pmc/hash.t	Mon Jun 21 14:58:48 2010	(r47739)
@@ -25,7 +25,7 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(171)
+    plan(172)
 
     initial_hash_tests()
     more_than_one_hash()
@@ -142,6 +142,8 @@
     h[1] = 42
     i = h['01']
     isnt(i, 42, 'key type STRING')
+    i = h.'get_key_type'()
+    is(i, .Hash_key_type_STRING, 'method get_key_type return type STRING')
 
     push_eh invalid_type
     h = -973 # Let's hope it will never become a valid type