Author: chromatic
Date: Fri Mar 28 19:44:45 2008
New Revision: 26617
Modified:
branches/type_ids/t/op/info.t
branches/type_ids/t/pmc/pmc.t
Log:
[t] Removed PMC type ids from remaining failing tests.
Modified: branches/type_ids/t/op/info.t
==============================================================================
--- branches/type_ids/t/op/info.t (original)
+++ branches/type_ids/t/op/info.t Fri Mar 28 19:44:45 2008
@@ -21,8 +21,9 @@
plan(1)
+ P0 = new 'ResizablePMCArray'
+ I0 = typeof P0
- set I0, .ResizablePMCArray
find_type I1, "ResizablePMCArray"
is (I0, I1, 'find_type matches dot syntax')
.end
Modified: branches/type_ids/t/pmc/pmc.t
==============================================================================
--- branches/type_ids/t/pmc/pmc.t (original)
+++ branches/type_ids/t/pmc/pmc.t Fri Mar 28 19:44:45 2008
@@ -1,5 +1,5 @@
#!perl
-# Copyright (C) 2001-2007, The Perl Foundation.
+# Copyright (C) 2001-2008, The Perl Foundation.
# $Id$
use strict;
@@ -84,8 +84,8 @@
print "not "
OK_1:
print "ok 1\n"
- typeof I0,P0
- eq I0, .Integer, OK_2
+ isa I0, P0, 'Integer'
+ eq I0, 1, OK_2
print "not "
OK_2:
print "ok 2\n"
