From 3d41ad773dfe277d3e67e5c961083d679cfda6f7 Mon Sep 17 00:00:00 2001
From: Duke Leto <jonathan@leto.net>
Date: Wed, 2 Jun 2010 12:14:16 -0700
Subject: [PATCH] Add a test for FileHandle.open in PL/PIRU

---
 t/sql/test.sql | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/t/sql/test.sql b/t/sql/test.sql
index 811717b..ad8c957 100644
--- a/t/sql/test.sql
+++ b/t/sql/test.sql
@@ -15,7 +15,7 @@ BEGIN;
 \i plparrot.sql
 
 -- Plan the tests.
-SELECT plan(32);
+SELECT plan(33);
 
 CREATE OR REPLACE FUNCTION create_plparrot()
 RETURNS BOOLEAN
@@ -179,6 +179,16 @@ CREATE FUNCTION test_filehandle_open() RETURNS int AS $$
     .return($P0)
 $$ LANGUAGE plparrot;
 
+CREATE FUNCTION test_filehandle_open_plpiru() RETURNS int AS $$
+    $P1 = new 'FileHandle'
+    push_eh throws_error
+    $P0 = $P1.'open'("thisstuffisnthere", 'r')
+    pop_eh
+    .return($P0)
+ throws_error:
+    .return(1)
+$$ LANGUAGE plpiru;
+
 CREATE FUNCTION test_file_open() RETURNS int AS $$
     $P1 = new 'File'
     $P0 = $P1.'open'("blah", 'r')
@@ -199,7 +209,8 @@ select is(test_load_pir_library(), 5, 'we can .include PIR libraries included wi
 select is(test_load_pbc_library(), 5, 'we can load_bytecode PBC libraries included with Parrot');
 
 select is(test_open(), 42, 'open opcode is mocked');
-select is(test_filehandle_open(), 42, 'FileHandle.open is mocked');
+select is(test_filehandle_open(), 42, 'FileHandle.open is mocked in PL/PIR');
+select is(test_filehandle_open_plpiru(), 1, 'FileHandle.open is not mocked in PL/PIRU');
 
 
 select is(test_file_open(), 42, 'File.open is mocked');