Skip to content

Commit

Permalink
Add commented out test for loading standard Parrot PIR libraries
Browse files Browse the repository at this point in the history
  • Loading branch information
leto committed May 5, 2010
1 parent 36cbc3e commit d4df269
Showing 1 changed file with 8 additions and 0 deletions.
8 changes: 8 additions & 0 deletions t/sql/test.sql
Expand Up @@ -143,6 +143,14 @@ CREATE FUNCTION test_file_open() RETURNS int AS $$
.return($P0)
$$ LANGUAGE plparrot;

CREATE FUNCTION test_load_pir_library() RETURNS int AS $$
.include 'test_more.pir'
.return(5)
$$ LANGUAGE plparrot;

-- This does not work yet due to a bug in Parrot
--select is(test_load_pir_library(), 5, 'we can load PIR 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_file_open(), 42, 'File.open is mocked');
Expand Down

0 comments on commit d4df269

Please sign in to comment.