[svn:parrot] r26615 - branches/type_ids/t/pmc

[chromatic]

Author: chromatic
Date: Fri Mar 28 19:34:55 2008
New Revision: 26615

Modified:
   branches/type_ids/t/pmc/continuation.t
   branches/type_ids/t/pmc/fixedintegerarray.t

Log:
[t] Fixed two more tests which relied on type ids.

One of the FixedIntegerArray tests specifically tested an opcode which uses
type IDs, so it's gone now.


Modified: branches/type_ids/t/pmc/continuation.t
==============================================================================
--- branches/type_ids/t/pmc/continuation.t      (original)
+++ branches/type_ids/t/pmc/continuation.t      Fri Mar 28 19:34:55 2008
@@ -1,5 +1,5 @@
 #!perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2008, The Perl Foundation.
 # $Id$
 
 use strict;
@@ -142,8 +142,8 @@
 .sub _test_2
     .param pmc n
     .param pmc cont
-    typeof $I40, n
-    if $I40 != .Integer goto L3
+    $I40 = isa n, 'Integer'
+    ne $I40, 1, L3
     $P44 = n_mul n, 3
     .return ($P44)
 L3:

Modified: branches/type_ids/t/pmc/fixedintegerarray.t
==============================================================================
--- branches/type_ids/t/pmc/fixedintegerarray.t (original)
+++ branches/type_ids/t/pmc/fixedintegerarray.t Fri Mar 28 19:34:55 2008
@@ -1,12 +1,12 @@
 #! perl
-# Copyright (C) 2001-2007, The Perl Foundation.
+# Copyright (C) 2001-2008, The Perl Foundation.
 # $Id$
 
 use strict;
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test tests => 15;
+use Parrot::Test tests => 14;
 
 =head1 NAME
 
@@ -313,7 +313,15 @@
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "new_p_i_s" );
-    new P0, 'FixedIntegerArray', "(1, 17,42,0,77,0b111,    0Xff)"
+    new P0, 'FixedIntegerArray'
+    set P0, 7
+    set P0[0], 1
+    set P0[1], 17
+    set P0[2], 42
+    set P0[3], 0
+    set P0[4], 77
+    set P0[5], 0b111
+    set P0[6], 0xff
     set I0, P0
     print I0
     print "\n"
@@ -338,21 +346,6 @@
 ok
 OUTPUT
 
-pir_output_is( <<'CODE', <<'OUTPUT', "get_repr, with array created with type 
id" );
-.sub main
-    new $P0, 'FixedIntegerArray', "(1, 17,42,0,77,0b111,    0Xff)"
-    set $I0, $P0
-    print $I0
-    print "\n"
-    get_repr $S0, $P0
-    print $S0
-    print "\n"
-.end
-CODE
-7
-[ 1, 17, 42, 0, 77, 7, 255 ]
-OUTPUT
-
 TODO: {
     local $TODO = 'These tests require an obscure opcode that does not exist';