[svn:parrot] r46014 - trunk/t/op

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Sun Apr 25 19:45:48 2010
New Revision: 46014
URL: https://trac.parrot.org/parrot/changeset/46014

Log:
[TT# 1592][t] Improve test for open opcode delegation. All tests in the file pass in both optimized/unoptimized builds on darwin/x86

Modified:
   trunk/t/op/io.t

Modified: trunk/t/op/io.t
==============================================================================
--- trunk/t/op/io.t	Sun Apr 25 16:05:56 2010	(r46013)
+++ trunk/t/op/io.t	Sun Apr 25 19:45:48 2010	(r46014)
@@ -44,6 +44,7 @@
     set classes['FileHandle'], classid
 
     $P1 = open '/foo'
+    is($P1,42,'open opcode delegates to the open method on the FileHandle PMC')
 
     # replace the original, so we don't break other tests
     set classes['FileHandle'], $I0
@@ -166,7 +167,7 @@
 
 .sub open :method
     .param pmc args :slurpy
-    ok(1,'open opcode delegates to the FileHandle PMC')
+    .return(42)
 .end