#!perl
###### Test PML perl function

use strict;
use Test;

BEGIN{plan test => 3};

use PML;

my $parser = new PML;

my @code = <DATA>;

$parser->parse(\@code);
ok(1);

my $tmp = $parser->execute;
ok(1);

# now check for 1 2 3
if ($tmp =~ /1/ and $tmp =~ /2/ and $tmp =~ /3/)
{
	ok(1);
}
else
{
	ok(0);
}

__END__
# this is test PML CODE

1

@perl
{
	return 2;
}

3