Ticket #488: load_pct.t

#!perl

# Copyright (C) 2006-2009, Parrot Foundation.
# $Id: interp.t 36833 2009-02-17 20:09:26Z allison $

use strict;
use warnings;

use Test::More tests => 6;
use File::Spec;

my $hello_pbc = File::Spec->catfile( 't', 'greet.pbc' );

my $module = 'Parrot::Interpreter';
use_ok('Parrot::Embed') or exit;

can_ok( $module, 'new' );
my $interp = $module->new();
ok( $interp, 'new() should return a valid interpreter' );
isa_ok( $interp, $module );

my $pir =<<"END_PIR";
.sub mypct
    load_bytecode '../../runtime/parrot/library/PCT.pbc'
    .return(42)
.end    
END_PIR

my $eval = $interp->compile( $pir );
my $mypct = $interp->find_global('mypct');
my $res = $mypct->invoke( 'PS', '' );
isa_ok $res, 'Parrot::PMC';
is $res->get_string, 42, 'mypct returns value correctly';